Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige