Anzeige
Archiv - Navigation
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pfad ändern

Pfad ändern
28.01.2016 13: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
Anzeige
AW: Pfad ändern
28.01.2016 13:15:33
Rudi
Hallo,
pfad = environ("homedrive") & environ("homepath") &"\downloads\"
Gruß
Rudi

AW: Pfad ändern
28.01.2016 13: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 00: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige