vba datei öffnen dialog

[würmli (Gast)]

Hallo forümler...

ich bau mir momentan ein eigenes vba programmn zusammen um txtdateien in 
excel einzulesen.

ich habe einige formulare erstellt welche die einzulesenden parameter 
etc. konfigurieren. anschliessend soll ein dateiname ausgewählt werden 
können und dann diese datei über die excel importfunktion importiert 
werden.

ich muss nun irgendwie so ein "Datei-öffnen-Dialog" einpflanzen. kan man 
den dialog irgendweie aufrufen. ist dieser nicht als aktiv X 
Steuerelemnt verfügbar?

ich müsste dann die datei auswählen können und den dateinamen in eine 
belibige variable schreiben um das datenimportmakro damit zu füttern....

kann mir da jemand helfen??

vielen dank

gruss Raphael

[Frank L. (franklink)]

Hallo Raphael,
wenn ich mich richtig entsinne, geht das in Excel automatisch, wenn Du 
die Open-Funktion aufrufst und keinen Dateinamen angibt.

Bin mir aber nicht mehr ganz sicher.

Wen Du sichergehen willst, Zeichne den Vorgang komplett als Makro auf, 
anschließend siehst Du die einzelnen Befehle die Excel ausgeführt hat im 
Makro. Diese Befehle kannst Du in Deinem VBA-Programm umsetzten bzw. 
teilweise direkt verwenden.

Gruß
Frank

[Kartoffel S. (kartoffelsalat)]

das erste problem hat sich erledigt....
Application.GetOpenFilename heisst das zauberwörtchen.

ich stehe nun wo anders an.

folgendes:
ich möchte mit dem VBA programm einen ganzen Txt. datensatz einlesen. 
Dieser bsteht aus 3 txt-dateien, wobei das erste kopfdaten und die 
weiteren messdaten enthalten.
der anwender sol später nur einmal ein dateiname auswählen müssen. das 
heist er wählt den dateiname der kopfdaten. -->xxxxxxxxx_KO.TXT

ob die weiteren files mit verschiedenen Physikalischen messdaten auch 
eingelesen werden müssen kan man zuvor in den dialogfemster mit einer 
checkbox einstellen...

der ganze TXT datensatz besteht aus 3 files:
zB.
 xxxxxxxxxx_KO.txt
 xxxxxxxxxx_D1.txt
 xxxxxxxxxx_D2.txt
Der erste datensatz wird eingelesen indem im dateiöfnenfenster die datei 
xxxxxxxxxx_KO.txt gewählt wird und mit dem importassisten konvertiert 
wird. Da die weiteren txt-files ja automatisch erfasst werden, muss ich 
irgendwie die zwei letzten zeichen des dateinamens auf D1 bzw D2 
abändern lassen.
wie könnte man das mit Vba machen??

ich hoffe ich habe das Problem halbwegs verständlich erklärt.

hat jemand eine Ahnung?

grüsse Raphael