Frage : Wenn Faltblatt nicht existiert, dann ein verursachen

Ich benutze die Linie des Codes unten in einem Vorprogramm, das Excel vom Zugang öffnet und speichere sie zum Aktenweg, den ich unten spezifiziert habe.  Über mein Form-Me.txt denkt SubFolder das Vorfaltblatt nach, dass die Akte, gespartes under.

1 zu sein ist:

xlBook.SaveAs Dateiname: = „C:\MainFolder\“ u. Me.txtSubFolder u.“ \ FileName.xlsx "

, im Falle dass der Faltblattname, der als Wert im Me.txtSubFolder gespeichert wird, nicht existiert; dann benötige ich irgendeinen Code, der das Vorfaltblatt herstellt und es nach dem Wert nennt, der im Me.txtSubFolder spezifiziert wird.

Any Ideen werden sehr geschätzt.  Danke!

Antwort : Wenn Faltblatt nicht existiert, dann ein verursachen

dieses in ein REGELMÄSSIGES Modul legen

Wahl ausdrücklich
Öffentlichkeit erklären Funktion MakeSureDirectoryPathExists Bibliothek „imagehlp.dll“ (ByVal lpPath als Schnur) als lang
---------------------

zu verwenden

Anruf MakeSureDirectoryPathExists („C:\MainFolder\“ u. Me.txtSubFolder u.“ \ ")

dieses herstellt automatisch die Faltblätter es, wenn sie nicht existieren tun.
using dieses  
     Anruf MakeSureDirectoryPathExists („c:\a\b\c\d\e\ ")
es herstellt alle Faltblätter es, die in der Linie spezifiziert.
NOTE* der letzte Buchstabe der Linie muss ein Gegenschrägstrich sein \