闲来无事,想学VBA,忙活了一天写了下面一段代码。仅供自己参考! Public Sub MyTest() Sub MyTest() Set fs = CreateObject("Scripting.FileSystemObject") Set file = fs.CreateTextFile("c: estfile.txt", True) '<