Datei öffnen

Forumthread: Datei öffnen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Datei öffnen

Datei öffnen

26.04.2006 13:21:15

Henning

Hallo.
Habe ein Excel-Arbeitsblatt erstellt, und möchte nun per Makro eine zweite Datei öffnen. Dies soll über ein Browserfenster gemacht werden, wie bei Windows (Datei / öffnen / ...).
Die Datei soll über dieses Fenster ausgewählt und geöffnet.
Wenn das möglich ist möchte ich dem Fenster auch eine eigene Überschrift geben, zB. "Wählen Sie die Datei xyz aus.".
Danke im Voraus
Henning

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datei öffnen

26.04.2006 14:12:50

xpc
AW: Datei öffnen

26.04.2006 16:00:05

Henning
AW: Datei öffnen

26.04.2006 23:39:03

MichaV
AW: Datei öffnen

26.04.2006 14:18:37

Thias

AW: Datei öffnen

26.04.2006 14:12:50

xpc

Hallo,
den Dialog rufst du über:
Application.Dialogs(xlDialogOpen).Show
auf.
Gruß
xpc

AW: Datei öffnen

26.04.2006 16:00:05

Henning

Habe den Code
"Application.Dialogs(xlDialogOpen).Show"
benutzt. Das funktioniert auch wie gewünscht. habe aber noch ein kleines Problem damit. Ist es möglich den Namen der Datei herauszubekommen, die damit gerade geöffnet wurde.

AW: Datei öffnen

26.04.2006 23:39:03

MichaV

Hallo,
hast Du mal https://www.herber.de/forum/messages/758557.html versucht?
Ist es möglich den Namen der Datei herauszubekommen, die damit gerade geöffnet wurde. geht nämlich mit Application.Dialogs(xlDialogOpen).Show nicht ;o)
Gruß- Micha
PS: Rückmeldung wäre nett.

AW: Datei öffnen

26.04.2006 14:18:37

Thias

Hi,
wie wär's damit (Laufwerk und Pfad musst Du natürlich noch anpassen):


Sub Öffne()
ChDrive "Y:\"
ChDir "Y:\bas-Files"
xFilter = "Textdateien (*.txt), *.txt"
xDatei = Application.GetOpenFilename(xFilter, 1, "Datei Öffnen", "Öffnen", False)
If InStr(1, "*falsch*false*", LCase(xDatei), vbTextCompare) > 0 Then
MsgBox "Datei-Öffnen-Dialog wurde abgebrochen!", 16
Exit Sub
End If
Workbooks.OpenText Filename:=xDatei, Origin:=xlWindows
End Sub

- Rückmeldung wäre nett -

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