Question

帮我看一下我最新的问题， Excel VBA问题，有一批格式统一的csv源文件（

帮我看一下我最新的问题，

Excel VBA问题，有一批格式统一的csv源文件（Aug1.csv  Aug2.csv……Aug10.csv  10个按时间顺序命名的源文件）…谢谢

Answer 1

'创建文本文件

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

Answer 2

没看明白你想要问什么

Answer 3

用vba 打开=读数=写数-关闭，这样循环处理。