Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pfad ändern

Forumthread: 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

Anzeige

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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige