Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1460to1464
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

302 Forumthreads zu ähnlichen Themen

Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Anzeige
Addins beim Datei öffnen per VBA deaktivieren
Gueni

Moin, moin,
ich suche eine Möglichkeit neben den Standardmenus und Symbolleisten von Excel, die auf einen Rechner evtl. weiterhin installierten Addins (mit entsprechenden Menus) beim öffnen einer Datei zu deaktivieren und beim beenden der Datei die ursprüngliche Installation des Rechners /...
18.11.2009 19:14:04
Thread-ID: 1118429
5 Beiträge
Mit VBA Datei auf Server öffnen
egon.kernien@online.de

Hallo Experten!
Ich lasse mit diesem Code eine Exceldatei pda.xls die auf einem Server liegt so öffnen, Daten aus einer Tabelle lesen-kopieren, schliessen.:
ChDir Pfad
strFile = Application.GetOpenFilename
If strFile = "Falsch" Then Exit Sub
Set wbSource = Workbooks.Open(Fi...
03.12.2009 11:32:17
Thread-ID: 1121538
3 Beiträge
Anzeige
Per VBA Excel Datei öffnen und Register wechseln
christoph

Hallo, ich habe als VBA Laie folgendes Problem. Ich möchte im Rahmen eines Makros eine andere bereits geöffnete Exceldatei aktiveren und in dieser neu aktivierten Datei das Registerblatt wechseln - was leider nicht funktioniert. Bisher habe ich folgenden VBA Code zum aktivieren der Datei und...
31.03.2010 15:03:42
Thread-ID: 1149665
9 Beiträge
"Datei öffnen"-Dialog mit Pfadvorgabe
Holger

Hallo Excelaner,
wie kann ich eine Application.GetOpenFilename("Dateityp (*.txt; *.log; *.dat),")
Anweisung auf einen fixen Pfad (z.B. "H:/Test/" ) ausführen?
Es soll also im "Datei öffnen"-Dialog der Pfad schon vorbelegt werden.
Für Hilfe wäre ich sehr dankbar!
Gruß Holge...
12.01.2011 14:51:59
Thread-ID: 1195263
6 Beiträge
vba Datei öffnen, Erweiterung unbekannt
Daniel

Hallo VBA - Experten,
Wie öffne ich in vba eine Exceldatei, ohne dass ich die Dateierweiterung kenne? Mein Problem: ich habe ein Makro erhalten, welches Dateien im Excel 2003 - Format öffnet. Das Öffnen sollte auch funktionieren, wenn die Dateien in einem neueren Format mit anderer Erweiter...
09.04.2011 16:16:22
Thread-ID: 1209733
4 Beiträge
Datei mit VBA öffnen im selben Ordner
Hei.Fisch

Hallo werte Excel und VBA-Gemeinde,
ich komme hier leider nicht weiter:
Ich möchte die Datei Kundenanalyse per VBA öffnen. Sie liegt im gleichen Ordner wie
die Excel-Datei, die das VBA-Programm enthält. Dieses soll die Datei Kundenanalyse öffnen, aus den darin enthaltenen Daten neu...
06.06.2011 11:37:51
Thread-ID: 1217411
3 Beiträge
Öffnen einer Datei per VBA
Christian

Hallo Forum,
ich möchte per VBA eine Datei öffnem, deren Pfad und Namen als Text in einer Zelle steht.
in A1 steht "D:\test.xls"
dann will ich im Macro den Befehl:
Datei$ = Cells(1, 1).Select
verwenden, um den Namen in der Variablen Datei$ zu speichern.
Das geht nicht....
18.08.2011 12:48:10
Thread-ID: 1226611
4 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
4
2
1
8
5
3
2
3
5
3
2
2
5
4
3
6
8
2
1
2
8
9
8