Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
900to904
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Relative Verzeichnisse!?

Relative Verzeichnisse!?
28.08.2007 16:05:24
Pascal
Hallo zusammen.
Ich habe ein Makro voliegen, das auf andere Dateien zugreift. Nun soll das Makro auf anderen Rechnern auch laufen. Die Quelldateien sollen Später im selben Verzeichnis liegen, wie die Datei sebst. Ist es möglich, denb Verzeichnispfad relativ anzugeben und beispielsweise einfach nur zu sagen: Datei xy öffnen anstatt "C:\...\xy.xls"?
Vielen Dank im Voraus
Grüße
Pascal

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Relative Verzeichnisse!?
28.08.2007 16:09:00
Hajo_Zi
hallo Pascal,
benutze ThisWorkbook.Path

AW: Relative Verzeichnisse!?
28.08.2007 16:11:00
Pascal
Hallo Hajo,
dake für die schnelle Antwort, teste ich gleich mal aus...
Viele Grüße
Pascal

AW: Relative Verzeichnisse!?
28.08.2007 16:18:05
Pascal
Hallo Hajo, habe ein kleines Problem.
Habe schon einen bestehenden Programm schritt, bei dem Der Pfad folgendermaßen eingebaut ist:
fileToOpen = "C:\...\Desktop\ordner\xy.txt"
Sheets("Tabelle1").Select
Open fileToOpen For Input As #1
habe nun versucht es so zu machen:
fileToOpen = "thisworkbook.path\xy.txt"
scheinbar war das aber nicht korrekt :-(
Weisst Du was ich falsch gemacht habe?
Gruß

Anzeige
AW: Relative Verzeichnisse!?
28.08.2007 16:21:46
Hajo_Zi
Hallo Pascal,
fileToOpen = " ThisWorkbook.Path & "\xy.txt"
Gruß Hajo

AW: Relative Verzeichnisse!?
28.08.2007 16:27:59
Pascal
Super, vielen Dank.
Funktioniert einwandfrei :-)
Gruß
Pascal

AW: Relative Verzeichnisse!?
28.08.2007 16:38:00
Pascal
Hallo Hajo, es tut mir leid, aber da ist mir doch noch eine Frage gekommen, die ich leider nicht alleine gelöst bekomme:
Ich habe eine Textdatei per query eingelesen.

Sub einlesen()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT; C:\...\xy.txt", _
Destination:=Range("A1"))
.Name = "xy_4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 14
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
End With
End Sub


wenn ich allerdings versuche diesen Bezug hier einzubauen, dann funktioniert es leider auch nicht.
Wahrscheinlich ist die Lösung wieder genauso einfach, aber leider kenne ich sie nicht?!
Gruß
Pascal

Anzeige
AW: Relative Verzeichnisse!?
28.08.2007 16:47:35
ingoG
Hallo Pascal,
so sollte es funzen,
GrußIngo
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT; " & ThisWorkbook.Path & "\xy.txt",

AW: Relative Verzeichnisse!?
28.08.2007 16:55:24
Pascal
Hi Ingo,
ja klappt,danke! Wusste nicht, dass man die Anführungszeichen auch unterbrechen kann... :-)
Gruß
Pascal

AW: Relative Verzeichnisse!?
28.08.2007 16:48:15
Hajo_Zi
Hallo Pascal,
ich mache jetzt gleich Feierabend. Ich vermute
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT; " & ThisWorkbook.Path & "\xy.txt", _
Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige