Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Beliebige Datei öffnen

Beliebige Datei öffnen
01.12.2015 11:28:20
muehli
Hallo zusammen,
folgender Code soll jede beliebige Datei öffnen:
Private Sub btn_spare1_Click()
Pfad = Range("S14").Value
If Pfad = "" Or Pfad = "FALSCH" Then
MsgBox ("Kein Pfad definiert")
Else
UserForm1.Hide
Application.Visible = 1
aufruf = "cmd /c " & Pfad
ergebnis = Shell(aufruf, vbNormalFocus)
End If
End Sub
das klappt auch schon sehr gut dank Michael (ich weiss nicht wie ich auf alte Beiträge, die nicht mehr in der Liste stehen antworten kann :( )
Die einzigen Dateien die es nicht öffnet, sind Excel-Dateien mit Makros.
Wie kann ich hier eine Abfrage hinzufügen, die schaut ob eine Exceldatei angesprochen wird und das ganze dann per "Workbooks.open" öffnet?
Oder geht das auch einfacher?
Freundliche Grüße und danke
Muehli

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beliebige Datei öffnen
01.12.2015 11:51:39
Rudi
Hallo,
Private Sub btn_spare1_Click()
pfad = Range("S14").Value
If pfad = "" Or pfad = "FALSCH" Then
MsgBox ("Kein Pfad definiert")
Else
UserForm1.Hide
Application.Visible = 1
If LCase(pfad) Like "*.xls*" Then '.xlsx/ .xlsm
Workbooks.Open pfad
Else
aufruf = "cmd /c " & pfad
ergebnis = Shell(aufruf, vbNormalFocus)
End If
End If
End Sub
Gruß
Rudi

Anzeige
AW: Beliebige Datei öffnen
04.12.2015 10:06:25
muehli
Vielen Dank Rudi!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige