Pfad ändern

Forumthread: Pfad ändern
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Pfad ändern

Pfad ändern

28.01.2016 14:07:14

Erik

Hallo zusammen !
Habe folgendes Makro:
Dim wb As Workbook
Dim lngZ As Long
Dim strFileName
Dim strFilter As String
strFilter = "csv Dateien(*.csv*), *.csv*"
ChDrive "D"
ChDir "D:\"
strFileName = Application.GetOpenFilename(strFilter)
If strFileName = False Then Exit Sub
Set wb = Workbooks.Open(strFileName)
Jetzt soll als Dateipfad die Voreinstellung C:\Benutzer\Erik\Downloads\
stehen. Allerdings läft die Excel Tabelle auf mehreren Computern, sodaß Erik sich immer ändert.
Kann man das irgendwie bewerkstelligen ?
Gruß
Erik

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Pfad ändern

28.01.2016 14:15:33

Rudi
AW: Pfad ändern

28.01.2016 14:49:46

Erik
AW: Pfad ändern

29.01.2016 01:45:22

Michael

AW: Pfad ändern

28.01.2016 14:15:33

Rudi

Hallo,
pfad = environ("homedrive") & environ("homepath") &"\downloads\"
Gruß
Rudi

AW: Pfad ändern

28.01.2016 14:49:46

Erik

Hallo Rudi,
wo genau muß der Pfad hin ?
kannst Du mir das Bitte hinschreiben?
Lieber Gruß
Erik

AW: Pfad ändern

29.01.2016 01:45:22

Michael

Hi zusammen,
so:

Sub aa()
Dim wb As Workbook
Dim lngZ As Long
Dim strFileName
Dim strFilter As String
strFilter = "csv Dateien(*.csv*), *.csv*"
ChDrive Environ("homedrive")
ChDir Environ("homedrive") & Environ("homepath")
strFileName = Application.GetOpenFilename(strFilter)
If strFileName = False Then Exit Sub
Stop
Set wb = Workbooks.Open(strFileName)
End Sub

Gruß,
Michael