Datei formatieren

28/02/2009 - 17:54 von Günter Griesbach | Report spam
Hallo NG,

der User öffnet nach 'Application.Dialogs(xlDialogOpen).Show ' eine
.txt-Datei. Dies soll automatisch in eine xls Datei konveriert werden nachdem
er den OK-Button geklickt hat. Wie bzw. was muss ich eintragen, dass Excel
das Makro nach Auswahl der Datei konvertiert? Ich habe es zwar schon mit
einer Makroaufzeichnung probiert, aber irgendiwe funzt es nicht.
Danke bereits im Voraus.

Gruß
Günter
 

Lesen sie die antworten

#1 Andreas Killer
02/03/2009 - 09:12 | Warnen spam
On 28 Feb., 17:54, Günter Griesbach
wrote:

der User öffnet nach 'Application.Dialogs(xlDialogOpen).Show ' eine
.txt-Datei. Dies soll automatisch in eine xls Datei konveriert werden nachdem
er den OK-Button geklickt hat. Wie bzw. was muss ich eintragen, dass Excel
das Makro nach Auswahl der Datei konvertiert? Ich habe es zwar schon mit
einer Makroaufzeichnung probiert, aber irgendiwe funzt es nicht.


Mit Application.Dialogs(xlDialogOpen).Show wird das nichts, der gibt
Dir nicht den Dateinamen zurück. Verwende daher GetOpenFilename.

Und die Makroaufzeichnung geht wenn Du einfach mal auf Datei\Öffnen
klickst und eine Textdatei nach Deinen Vorstellungen öffnest. Dann
kannst Du bestimmt dies Makro selber anpassen:

Sub Makro1()
fileToOpen = Application.GetOpenFilename _
("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
Workbooks.OpenText Filename:=fileToOpen, etc...
End If
End Sub

Andreas.

Ähnliche fragen