2
VBA Pfadvoreinstellung wird nicht übernommen
ChDir ([Start!B2])
B2 = Y:\Neugeb\....
Guten Morgen,
mein Problem ist Folgendes: Ich habe ein VBA-Skript gebastelt welches .csv Datein Automatisch in .xls umwandelt und formatiert.
Formatieren Funktioniert einwandfrei.
Jetz wollte ich mit den ChDir Befehl das Arbeitsverzeichniss (wo die .csv liegen) festlegen.
Hab es auch schon mit Application.DefaultFilePath = [Start!B2] versucht nur funktioniert leider auch nicht .
Weis da jemand eine Lösung ?
Mfg Flenn 90
mein Problem ist Folgendes: Ich habe ein VBA-Skript gebastelt welches .csv Datein Automatisch in .xls umwandelt und formatiert.
Formatieren Funktioniert einwandfrei.
Jetz wollte ich mit den ChDir Befehl das Arbeitsverzeichniss (wo die .csv liegen) festlegen.
Hab es auch schon mit Application.DefaultFilePath = [Start!B2] versucht nur funktioniert leider auch nicht .
Weis da jemand eine Lösung ?
Mfg Flenn 90
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 138043
Url: https://administrator.de/contentid/138043
Printed on: April 25, 2024 at 21:04 o'clock
2 Comments
Latest comment
Hallo Flenn90,
du musst vor dem Einsatz von ChDir noch ChDrive ausführen.
Kleines Beispiel ohne verschiedene Tabellenblätter:
Sub Test_Chdir()
Dim Dateiname As String
Cells(1, 2) = "F:\Scanner\"
ChDrive Cells(1, 2)
ChDir Cells(1, 2)
Dateiname = Application.GetOpenFilename(fileFilter:="Test Datei (*.txt), *.txt")
End Sub
Gruß
Xolger
du musst vor dem Einsatz von ChDir noch ChDrive ausführen.
Kleines Beispiel ohne verschiedene Tabellenblätter:
Sub Test_Chdir()
Dim Dateiname As String
Cells(1, 2) = "F:\Scanner\"
ChDrive Cells(1, 2)
ChDir Cells(1, 2)
Dateiname = Application.GetOpenFilename(fileFilter:="Test Datei (*.txt), *.txt")
End Sub
Gruß
Xolger
Hallo Xolger,
danke für den Hinweis jetz funktioniert es wie soll
Gruß
Flenn90
danke für den Hinweis jetz funktioniert es wie soll
Gruß
Flenn90
