如何指定fext文件名

Question

当我使用VBA代码创建文本文件时，我希望从可以输入我需要的文件名的单元格中获取文件的名称。如何在fso.CreateTextFile命令中引用它？

谢谢

Answer 1

引用fso对象中的范围......

Sub textfile()

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(Range("B9"), True)
    a.WriteLine ("This is a test.")
    a.Close

End Sub