Forums Neueste Beiträge
 

Textdatei öffnen per Kombinationsfeld

08/10/2009 - 12:14 von Stefan W | Report spam
Hallo!

Ich habe ca. 80 Dateien die ich gerne "komfortabel" innerhalb von
Excel aufrufen möchte. Diese werden dann automatisch weiterverarbeitet
- was aber hier kein Problem sein sollte.

Mir geht hier nur um das Öffnen der Datei.
Für die Dateinamen habe ich einen NAMEN vergeben: DateiAuswahl
Diese habe ich über "ListFillRange" und "LinkedCell" in ein
Kombinationsfeld geschoben um sie dort auswàhlen zu können.

Ich möchte nun, die Datei die im Kombinationsfeld ausgewàhlt wurde per
Klick auf eine "Befehlsschaltflàche" (normaler Button) in das
Tabellenblatt "Tabelle1" öffnen/einfügen.


Mein Ansatz:
Über den Markoeditor geht folgendes:

Sub test()
Workbooks.OpenText Filename:="C:\Test.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited,
TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1,
1), _
TrailingMinusNumbers:=True
End Sub

Nur wie tausche ich "C:\Test.txt" gegen den gewàhlten Eintrag in der
Liste aus, bzw. ordne hier den Inhalt von "LinkedCell" Eigenschaft des
Kombinationsfeldes (=Test.txt) zu?
 

Lesen sie die antworten

#1 Andreas Killer
08/10/2009 - 16:36 | Warnen spam
Stefan W schrieb:

Für die Dateinamen habe ich einen NAMEN vergeben: DateiAuswahl
Diese habe ich über "ListFillRange" und "LinkedCell" in ein
Kombinationsfeld geschoben um sie dort auswàhlen zu können.


...
Sub test()
Workbooks.OpenText Filename:="C:\Test.txt", _


...
Nur wie tausche ich "C:\Test.txt" gegen den gewàhlten Eintrag in der
Liste aus, bzw. ordne hier den Inhalt von "LinkedCell" Eigenschaft des
Kombinationsfeldes (=Test.txt) zu?


Der Dateiname steht in der Zelle die Du in LinkedCell angegeben hast
und diese Zelle hast Du mit dem Namen "DateiAuswahl" versehen? Dann so:

Workbooks.OpenText Filename:= Range("DateiAuswahl"), etc.

Andreas.

Ähnliche fragen