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

Beliebige Datei öffnen

Forumthread: Beliebige Datei öffnen

Beliebige Datei öffnen
17.11.2015 13:01:59
muehli
Guten Tag zusammen,
ich versuche gerade per VBA eine x-beliebige zu öffnen.
Ich bin das Ganze so angegangen:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As  _
Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long


Private Sub btn_ETOproject_Click()
Pfad = Range("S10").Value
rc = ShellExecute(0, "open", Pfad, "", "", SW_HIDE)
End Sub
In Range S10 steht:
C:\Tools\ETO Project.xlsm
irgendwie funktioniert es aber nicht.
Kann mir jemand helfen?
Freundliche Grüße
muehli

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beliebige Datei öffnen
17.11.2015 13:23:22
Herbert
Hallo,
hast Du es schon mal mit dem Datei-Dialog versucht:
   Dim vFile As Variant
'* Dialog zum öffnen einer Datei
vFile = Application.GetOpenFilename
If vFile = False Then Exit Sub
Workbooks.Open vFile
Ansonsten solltest Du anstatt Deines "Private Declare Function..." den folgenden Code nehmen:
#If VBA7 Or Win64 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As _
Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As  _
String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd  _
As _
Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As  _
String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
#If VBA7 Or Win64 Then
Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As Long
#Else
Private Declare Function GetDesktopWindow Lib "user32" () As Long
#End If
Servus

Anzeige
AW: Beliebige Datei öffnen
17.11.2015 14:11:12
muehli
Hallo Herbert,
vielen Dank für die schnelle Antwort!
mit Workbooks.Open vFile kann man nur EXCEL-Files öffnen, wenn ich das richtig verstanden habe.
Reicht für meine Anwengung auch zu 80%.
Ich nehme an, dass dann die zweite Variante ein beliebiges Dateiformat öffnet, oder?
Freundliche Grüße und danke
Muehli

Anzeige
AW: Beliebige Datei öffnen
17.11.2015 21:27:17
Uduuh
Hallo,
versuchs mal mit 
Sub yyy ()
dim myshell as object
set myshell = createobject("wscript.shell")
myshell.run chr(34) & Range("S10").Value & chr(43)
End Sub
Gruß aus’m Pott
Udo

Anzeige
AW: Beliebige Datei öffnen
18.11.2015 07:53:47
muehli
Hi Udo,
danke für die Antwort.
Habe es gerade mit deinem Code versucht. Aber die Methode ist "fehlgeschlagen".
Freundliche Grüße
Muehli

AW: Beliebige Datei öffnen
21.11.2015 17:54:36
Michael
Hi zusammen,
noch ein Versuch: Shell öffnet PROGRAMME, aber man kann auch DATEIN starten, wobei Windows das jeweils passende Programm dafür mit öffnet, also bei .DOCX eben word usw.
Dazu muß man dem Shell das "cmd" voranstellen, das ist der "Kommandoprozessor".
Das Makro: 
Option Explicit
Sub aufrufen()
Dim i&
Dim ergebnis
Dim aufruf As String
For i = 2 To 5
aufruf = "cmd /c " & Range("B" & i).Value
ergebnis = Shell(aufruf, vbNormalFocus)
MsgBox "Das war Nr. " & i & " Ergebnis: " & ergebnis
Next
End Sub

Ich habe mal getestet mit: 
B2: C:\Windows\System32\calc.exe          das öffnet den Taschenrechner
B3: C:\A_Herber\BlaBla.txt                das öffnet den Editor mit der Textdatei
B4: C:\A_Herber\Formel_Werte.GIF          das öffnet (leider) den IE mit dem Bild
B5: C:\A_Herber\PDF-Test.pdf              das öffnet den Acrobat Reader samt PDF

Vielleicht hilft das ja weiter.
Schöne Grüße,
Michael
P.S.: ein Umweg über Batch-Datei wurde hier beschrieben:
https://www.herber.de/forum/archiv/720to724/721183_cmd_befehle_mit_vba_ausfuehren.html
Anzeige
;

Forumthreads zu verwandten Themen

VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
Anzeige
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
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
Anzeige
Ö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
xldialogprintersetup beim öffnen der Datei per vba
Marcel

Hallo zusammen,
Ich habe folgendes Problem:
Beim öffnen meiner Exceldatei öffnet sich das Dialogfenster "Printersetup".
Ich möchte das dieser Vorgang per VBA-Code abgebrochen wird.
Könnt Ihr mir helfen?
Gruß Marcel
09.01.2013 07:21:01
Thread-ID: 1293347
4 Beiträge
Öffnen von Excel-Dateien mittels VBA
Excel-Dateien

Folgendes Problem:
Ich habe die Möglichkeit geschaffen über einen Button verschiedene Anwendungen zu starten (unter anderem auch einfache Excel-Dateien), die Datumsangaben, Wochentage etc. enthalten. Wird nur eine Datei geöffnet, funktioniert alles normal; nur in manchen Fällen erscheint da...
13.05.2013 13:25:48
Thread-ID: 1312694
7 Beiträge
VBA Datei öffnen und darin 1. leere Zelle finden
Steve

Hello ihr Profis,
ich stehe irgendwie auf dem Schlauch und hoffe ihr könnt helfen. Es soll einfach nur geprüft werden of eine Datei vorhanden ist. Wenn diese NICHT vorhanden ist, soll eine bestimmte Excel Tabelle geöffnet und in dieser nach der ersten freien Zelle gesucht werden. Ich dachte...
07.02.2014 12:46:16
Thread-ID: 1348494
9 Beiträge
VBA Dateien öffnen, editieren, speichern
Tim

Hallo zusammen,
ich hoffe ihr könnt mir weiterhelfen.
Ich habe folgende Aufgabe:
- Ordner mit monatlich wechselnder Anzahl von CSVs
- Diese müssen geöffnet, formatiert u. als xls mit dem Namen aus Zelle "B5" abgespeichert werden
Mein Ziel ist es diesen Prozess zu automatisie...
25.08.2014 18:10:20
Thread-ID: 1378118
9 Beiträge
VBA Datei öffnen in zweiter Instanz
Matthias

Hallo zusammen
Ich habe ein Script gefunden, das es verbietet, in einer bestehenden Excel-Instanz, eine Datei zu öffnen. Sie öffnet sich in einer zweiten Instanz.
Könnte man dieses Script womöglich vereinfachen?
Dieser "Schreibschutz" verwirrt mich etwas, die Datei wird nämlich zuer...
03.10.2014 21:36:42
Thread-ID: 1384734
7 Beiträge
VBA Exceldatei öffnen und bearbeiten
Nico

Hey ho :)
ich hoffe Ihr könnt mir helfen.
Erstmal was vorhanden ist:
Ich habe eine Datei dort habe ich die Tabellenblätter Rechnungen und Kalender, diese Datei soll sozusagen als Hauptdatei fungieren.
Nun habe ich Ordner die nach Jahren gegliedert sind 2013,2014 etc. in diesen O...
28.01.2015 20:59:14
Thread-ID: 1405876
2 Beiträge
VBA-Abfrage bei Datei-öffnen?
Stephan

Hallo an alle VBA-Profis,
kurz zu meiner Person:
Ich bin Stephan, neu hier und habe nur durch den Macrorecorder und durch gewisse Stöbereien auf Onkel-Google etwas Kenntnis vom VBA-Programmieren.
Getreu dem Motto "Learning by doing" krieche ich durch die Foren, versuche Codes zu ver...
09.10.2015 09:10:38
Thread-ID: 1451506
6 Beiträge
Mit VBA eine externe Datei öffnen
FrodoBodo

Hallo zusammen,
ich habe eine Datei mit zwei Blättern(Reitern).
Blatt 1 enthält chaotisch erfasst (Zeile für Zeile) Daten und Mengenangaben.
Blatt 2 enthält die Grunddaten (Basisdaten).
Wenn ich nun den Gesamtbestand meiner Sammlung wissen möchte, starte ich ein Makro das fol...
22.10.2015 17:46:36
Thread-ID: 1453843
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Beliebige Datei in Excel mit VBA öffnen

Schritt-für-Schritt-Anleitung

Um eine beliebige Datei mit VBA in Excel zu öffnen, kannst du verschiedene Methoden verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Neues Modul erstellen: Klicke im Menü auf Einfügen > Modul.

  3. Code einfügen: Füge den folgenden Code in das Modul ein:

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub btn_ETOproject_Click()
   Dim Pfad As String
   Pfad = Range("S10").Value
   ShellExecute 0, "open", Pfad, vbNullString, vbNullString, vbHide
End Sub

  4. Dateipfad eingeben: Stelle sicher, dass der Pfad zur Datei in Zelle S10 eingetragen ist.

  5. Makro ausführen: Führe das Makro aus, um die Datei zu öffnen.

Häufige Fehler und Lösungen

  • Fehler: "Die Methode ist fehlgeschlagen"

    • Überprüfe, ob der Pfad in Zelle S10 korrekt ist. Achte darauf, dass die Datei existiert und der Pfad keine Tippfehler enthält.

  • Fehler: "Datei nicht gefunden"

    • Stelle sicher, dass die Datei im angegebenen Verzeichnis liegt. Überprüfe auch, ob die Dateierweiterung korrekt ist.

  • ShellExecute funktioniert nicht

    • Vergewissere dich, dass du den richtigen Code für deine Excel-Version verwendest. Verwende den PtrSafe-Schlüsselwort für 64-Bit-Versionen.

Alternative Methoden

Falls du eine andere Methode ausprobieren möchtest, kannst du den Datei-Dialog verwenden:

Sub DateiOeffnen()
    Dim vFile As Variant
    vFile = Application.GetOpenFilename
    If vFile = False Then Exit Sub
    Workbooks.Open vFile
End Sub

Diese Methode eignet sich gut, wenn du eine Excel-Datei öffnen möchtest. Für andere Dateiformate solltest du die vorherige Methode verwenden.

Praktische Beispiele

Hier sind einige praktische Beispiele, um verschiedene Dateitypen zu öffnen:

  1. Öffnen einer EXCEL-Datei:

    Workbooks.Open "C:\Pfad\zu\deiner\Datei.xlsx"

  2. Öffnen eines Textdokuments:

    Shell "notepad.exe C:\Pfad\zu\deiner\Datei.txt"

  3. Öffnen eines Bildes:

    Shell "C:\Pfad\zu\deinem\Bild.jpg"

Diese Beispiele zeigen, wie einfach es ist, verschiedene Dateiformate mit VBA zu öffnen.

Tipps für Profis

  • Verwende ShellExecute für verschiedene Dateitypen: Mit ShellExecute kannst du beliebige Dateien öffnen und Windows das passende Programm dafür auswählen lassen.

  • Batch-Dateien nutzen: Wenn du mehrere Dateien gleichzeitig öffnen möchtest, erstelle eine Batch-Datei und führe diese über VBA aus.

  • Parameter anpassen: Experimentiere mit den Parametern in ShellExecute, um das Verhalten beim Öffnen der Datei zu steuern (z.B. Sichtbarkeit).

FAQ: Häufige Fragen

1. Kann ich eine DLL-Datei mit VBA öffnen?
Nein, DLL-Dateien sind keine ausführbaren Dateien. Du kannst sie jedoch in deinem VBA-Projekt verwenden, um Funktionen zu deklarieren.

2. Welche Excel-Version benötige ich für diese Methoden?
Die beschriebenen Methoden funktionieren in Excel 2010 und neueren Versionen. Achte darauf, den Code für 32-Bit oder 64-Bit Excel entsprechend anzupassen.

Beliebteste Forumthreads (12 Monate)

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