Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei öffnen, *.txt bzw. *.xls

Forumthread: Datei öffnen, *.txt bzw. *.xls

Datei öffnen, *.txt bzw. *.xls
30.01.2004 10:36:21
Bernd
Hallo!
Ich versuche in einem Excel-VBA-Makro einen "Datei öffnen" Dialog hinzubekommen, bei dem man zwischen "*.txt" und "*.xls" Dateien wählen kann. Die "*.txt" Dateien sollen dann mit Trennzeichen Semikolon geöffnet werden. Einzeln ist das kein Problem mit "Open" bzw. "OpenText", es soll aber in einem Dialog erfolgen. Kann mit jemand helfen?
Grüße - Bernd
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Application.Dialogs(xlDialogOpen).Show '(oT)
30.01.2004 10:48:52
xXx
AW: Datei öffnen, *.txt bzw. *.xls
30.01.2004 10:53:19
Worti
Hallo Bernd,
so kannst du es machen:

Sub Datei_Oeffnen()
Dim meineDatei As String
meineDatei = Application.GetOpenFilename("Text (*.txt), *.txt, xls-Format (*.xls), *.xls")
If InStr(meineDatei, "xls") > 0 Then
Workbooks.Open meineDatei
ElseIf InStr(meineDatei, "txt") > 0 Then
Workbooks.OpenText meineDatei
End If
End Sub

Worti
Anzeige
AW: Datei öffnen, *.txt bzw. *.xls
30.01.2004 11:19:19
Bernd
Die Lösung von Worti ist optimal.
Danke - Bernd
AW: Datei öffnen, *.txt bzw. *.xls
30.01.2004 10:55:35
xaverl
Hi Bernd,
ich hab das bei mir so hinbekommen:
Sub Datei_import()
Dim Datei_import As Variant
'Variable für die Importdatei
Dim Limit_Datei As Variant
'Zum Ansprechen der Excel-Datei

'Den Namen der Limit-Arbeitsmappe ermitteln
Limit_Datei = ActiveWorkbook.Name
'Die zu importierende Datei wird ausgewählt und importiert
Datei_import = Application.GetOpenFilename("Text-Dateien(*.txt),*.txt", "*.txt", _
"- - - Bitte Importdatei auswählen - - - ")
If Datei_import = False Then Exit Sub
'Hier wird eine TxT-Datei auf ein Arbeitsblatt kopiert
Workbooks.OpenText _
Filename:=Datei_import, _
DataType:=xlDelimited, Tab:=True, Semicolon:=False, Comma:=False, StartRow:=1, _
DecimalSeparator:=",", _
ThousandsSeparator:="."
Cells.Select
Selection.NumberFormat = "0.00"

...
Ich hab das nicht komplett bereinigt, wichtig für dich ist das "Application.getopenfilename", dann kommst du zu dem Dialog.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige