在Excel 2013中编写FileSystemObject VBA不再起作用

Question

在Excel 2013 VBA中，此代码会运行，但不会写入文件，也不会输出任何错误。我启用了Microsoft Scripting Runtime。

我是否需要限定类名？我错过了什么？

Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FolderExists(Write_Dir_Name) Then
   Create_Directory Write_Dir_Name
End If
If Right(Write_File_Name, 4) = ".xml" Then
   Set a = fs.CreateTextFile(Write_File_Name, True)
Else
   Set a = fs.CreateTextFile(Write_File_Name & ".xml", True)
End If

'...    
'Writes data to xml file
'...

a.Close

Answer 1

可能文件正在创建，但不是您正在寻找它的位置。

您只需在调用CreateTextFile时指定文件名，因此它最终会出现在当前目录中。

使用完整路径以防止混淆：

{{1}}