Justin.Lu----Position

  IT博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
  4 随笔 :: 6 文章 :: 3 评论 :: 0 Trackbacks

 

sub CreateFile()
Dim fso As Scripting.FileSystemObject
Dim ts As TextStream
Dim FileName As String
Dim txtLine As String
    
    
Set fso = CreateObject("Scripting.FileSystemObject")
    
    FileName 
= App.Path & "鑽孔疊板數.txt"
    Set ts = fso.CreateTextFile(FileName)
    ts.
writeLine ("ProductNo" & Chr(9& "DRILL_E/P" & Chr(9& _
                    
"Drill E/P" & Chr(9& "ins_date" & Chr(9& _
                    
"DRILL_E/P2" & Chr(9& "Drill E/P2" & Chr(13))  
    ts.Close
end sub
posted on 2005-08-19 09:17 Justin 阅读(302) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。