Question

我是VB和编程的新手。基本上我有一个用VB编写的宏我想用来从Excel保存XML，我已经完成了我的映射，但我需要配置一个宏按钮来输出文件。我希望宏检查并创建一个目录（如果它不存在）并将日期从列输出到文件名中。

尝试在“If Not”行上运行VB宏时，我收到错误494。

Sub SaveXML()
'
' SaveXML Macro
'
'
If Not Directory.Exists("C:\File") Then
Directory.CreateDirectory ("C:\File")
End If
ActiveWorkbook.SaveAsXMLData Filename:="C:\File\Data_" & _
Format(Range("B4"), "mmddyyyy") & ".mjl", Map:= _
ActiveWorkbook.XmlMaps("ThisIsMyMap_Map")
End Sub

我尝试在开头添加Imports System和Imports System.IO，但我在Imports System上收到了一条新错误“无效的外部程序”。

我在这里问我的具体例子，部分是因为我不知道对象是什么或为什么要找它。

感谢您的帮助

Answer 1

这解决了它

If Dir("C:\File",vbDirectory) ="" then
    MkDir Path:="C:\File"
End If

运行VB脚本时出现错误494“对象必需”

1 个答案: