運行VB腳本時出現錯誤494'Object Required'

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