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
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
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
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.