Office: (Office 2007) Datei öffnen

Hallo,

bin wenig erfahrener Makroschreiber und habe folg. Problem (Excel 2000):

Ich will eine Textdatei öffnen, bei der ich wg. des Datenformats einige Einstellungen (Trennzeichen etc.) vornehmen muss. Das hab ich im aufgezeichneten Makro drin. Um nun andere gleichartige Dateien zu öffnen, möchte ich diese entweder per Auswahl-Dialog selektieren (aber ohne die genannten Einstellungen wieder von Hand machen zu müssen). Gibt's da was?

Andere Möglichkeit wäre den mir bekannten Dateinamen der zu öffnenden Datei in eine Zelle zu schreiben, aus der ihn sich das Makro dann holt und in Workbooks.OpenText Filename:= ..... einsetzt. Da weiss ich aber leider auch nicht wie machen...

Vielen Dank für Tips!

Grüße, Kecki

:)

 

Hi Kecki,

im folgenden Bsp. wird eine Textdatei nach Wahl aus LW C:\ bei Klick auf einen Button geöffnet:

Code:

 

Hallo Ralf,

schönen Dank erstmal, damit kann ich die Textdateien auswählen. Allerdings lande ich nun im Textkonvertierungs-Assistenten und muss die Formateinstellungen zum korrekten Einlesen jedesmal wieder neu machen, was ich vermeiden möchte - das Format ist bei jeder Datei gleich. Dazu hatte ich ein Makro für den Weg durch den Textkonvertierungs-Assistenten aufgezeichnet. Kann ich dieses Makro an die Dateiauswahl anschließen?

Grüße, Kecki

 

Hi Kecki,

in meinem Bsp. wird die strFile - Datei geöffnet. Das brauchst Du ja nicht. Für Dich ist es doch wichtig den Dateinamen bequem auswählen zu können. Also in Deinem Makro die Data Source ersetzen. Bsp.:

Data Source=L:\Dateiname.txt
durch
Data Source=strFile
ersetzen.

 

Hallo Ralf,

sorry, damit komm ich nicht klar. Die Data Source wird in meinem aufgezeichneten Makro anders festgelegt:

Workbooks.OpenText Filename:= _ "N:\Technik\Konzentrator\Fluxberechnung\CIRCE2h6\cubopt8.flx", Origin:= _xlMSDOS, StartRow:=16, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _ Comma:=False, Space:=True, Other:=False, OtherChar:="=", FieldInfo:= _Array(Array(1, 9), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1)), _DecimalSeparator:=".", ThousandsSeparator:=","

Wie kriege ich nun einen im File-öffnen Dialog ausgewählten Dateinamen hier rein?

Ich könnte mich auch mit einer weniger komfortablen Lösung anfreunden, wo der Dateiname in einer bestimmten Zelle des Worksheets steht und jedes Mal geändert werden muss - aber das Zuweisen dieses Zellinhalts in die Open Anweisung des Makros hab ich auch nicht hinbekommen.

Grüße, Kecki

 

moin,

ohne zu testen:
Workbooks.OpenText Filename:= _ strFile, Origin..... usw.

Gruß
André

 

Hallo André,

hab ich versucht, doch da bleibt er mit der Meldung "wurde nicht gefunden" hängen. Was bedeutet das strFile denn? Die VBA Hilfe war wenig erhellend...


Grüße, Kecki

 

Hi Kecki,

strFile ist nichts anderes als eine Variable, die den Pfad und Dateinamen aufnimmt. Laß mal den Unterstrich weg, dann solltes gehen. Also so:
Workbooks.OpenText Filename:= strFile

PS: Die Unterstriche nach einem Leerzeichen kennzeichnen einen Zeilenumbruch innerhalb einer Anweisung.

 

Hallo Ralf,

geht leider immer noch nicht, selbe Fehlermeldung.

Wo wird der Variablen strFile denn ein Wert zugewiesen? Damit wir uns nicht missverstehen: ich habe dabei nur das aufgezeichnete Makro gestartet, nicht jedoch den Code für das Datei-Öffnen Fenster, den Du in Deiner ersten Antwort gegeben hattest. Sollte die Zuweisung für strFile dort stattfinden? Wenn ich da einen File auswähle und bestätige, dann wird die Datei ja gleich geöffnet (mit der falschen Formateinstellung).

Grüße, Kecki

 

Hi Kecki,

ab und an sollte man sich den Code auch anschauen. So groß war der nicht, um strFile übersehen zu können. Also ergänze Dein aufgezeichnetes Makro so. Anpassungen (Makroname, evtl. Variablen etc.) Nach Deinen Gegebenheiten noch vornehmen. Kann ich ja von hier schlecht sehen...

Code:

 

Hallo Ralf,

jeahhh, das war's! Herzlichen Dank!

Bitte seh' mir nach, wenn ich nicht alles gleich verstanden habe, bin halt noch Anfänger in VBA.


Grüße, Kecki

 

...Null Problem. Jeder fängt mal klein an. Und selbst die Großen machen Fehler...*Smilie