エラー494 VBスクリプトを実行するときに 'オブジェクトが必要です'

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