Fehler 494 'Objekt erforderlich' beim Ausführen von VB Script

Question

Ich bin neu in VB und Programmierung im Allgemeinen. Im Grunde habe ich ein Makro in VB geschrieben, das ich verwenden möchte, um XML aus Excel zu speichern, ich habe meine Zuordnung gemacht, aber ich muss eine Makro-Schaltfläche konfigurieren, um eine Datei auszugeben. Ich möchte, dass das Makro nach einem Verzeichnis sucht und ein Verzeichnis erstellt, wenn es nicht existiert, und das Datum aus einer Spalte in den Dateinamen ausgeben.

Ich bekomme Fehler 494, wenn ich versuche, das VB Makro auf meiner 'If Not' Zeile auszuführen.

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 

Ich habe versucht, Imports System und Imports System.IO am Anfang Zugabe, aber ich erhalte einen neuen Fehler ‚Ungültige Outside Prozedur‘ auf Imports System.

Ich frage hier nach meinem spezifischen Beispiel, teilweise weil ich nicht weiß, was ein Objekt ist oder warum es danach suchen würde.

Danke für die Hilfe

Answer 1

Dieses es

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