'创建文本文件
Sub CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\1.csv", True)
'写一行,并带有一个新行字符。
tf.WriteLine("Testing 1, 2, 3.")
'向文件写三个新行字符。
tf.WriteBlankLines(3)
'写一行。
tf.Write ("This is a test.")
tf.Close
End Sub
直接另存为就就可以了
留联系瞧瞧。