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

Per VBA Datei öffnen

Forumthread: Per VBA Datei öffnen

Per VBA Datei öffnen
04.03.2022 17:07:07
Günther
Hallo in die Expertenrunde,
ich habe eine kleine Frage zu dem Öffnen einer Datei per VBA mittels SHELL und CMD unter der Rahmenbedingung, dass der Dateiname ein & enthält.

shell "cmd /C ""C:\temp\A und B.pdf""" 'funktioniert
shell "cmd /C ""C:\temp\A & B.pdf""" 'funktioniert nicht
Gibt es einen Weg, dies ohne voriges Umbenennen der Datei zu lösen? Wenn ja, wie?
Danke im Voraus für alle Rückmeldungen.
Grüße
Günther
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per VBA Datei öffnen
05.03.2022 08:13:01
Peter
Aus anderen Zusammenhängen kenne ich, dass man manchmal das "&" verdoppeln muss! Teste mal!
AW: Per VBA Datei öffnen
04.03.2022 17:25:33
Nepumuk
Hallo Günther,
versuch es so:

Option Explicit
Private Declare PtrSafe Function ShellExecuteA Lib "shell32.dll" ( _
ByVal hwnd As LongPtr, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
Private Const SW_MAXIMIZE As Long = 3
Public Sub Test()
ShellExecuteA 0, "OPEN", "C:\temp\A & B.pdf", vbNullString, vbNullString, SW_MAXIMIZE
End Sub
Gruß
Nepumuk
Anzeige
AW: Per VBA Datei öffnen
04.03.2022 22:06:58
Günther
Danke Nepumuk - funktioniert bestens - es ist immer ein Vergnügen, vom Profi zu lernen ...
Grüße
Günther
AW: Per VBA Datei öffnen
06.03.2022 15:36:44
Günther
Hallo Nepumuk,
ich habe mich leider zu früh gefreut :-(
Die Lösung mit ShellExecuteA lässt sich zwar von &-Zeichen nicht beirren, dafür werden aber Unicode-Zeichen im Dateinamen nicht unterstützt.
(Mein bevorzugtes Unicode-Testzeichen ist ≤ oder ≥ .)
Selbiges ist wiederum für die Shell/CMD-Variante kein Problem.
Sollte ein Dateiname aber &-Zeichen UND Unicode-Zeichen beinhalten, geht keine der beiden Varianten ... :-(
Kennst Du noch eine Alternative?
Viuele Grüße und Danke
Günther
Anzeige
AW: Per VBA Datei öffnen
06.03.2022 17:04:58
Nepumuk
Hallo Günther,
dann versuch es so:

Option Explicit
Private Declare PtrSafe Function ShellExecuteW Lib "shell32.dll" ( _
ByVal hwnd As LongPtr, _
ByVal lpOperation As LongPtr, _
ByVal lpFile As LongPtr, _
ByVal lpParameters As LongPtr, _
ByVal lpDirectory As LongPtr, _
ByVal nShowCmd As Long) As LongPtr
Private Const SW_MAXIMIZE As Long = 3
Public Sub Test()
Dim strFilename As String
strFilename = Dir("C:\temp\*.pdf")
ShellExecuteW 0, StrPtr("OPEN"), StrPtr("C:\temp\Test" & ChrW$(&H2264) & ".pdf"), 0, 0, SW_MAXIMIZE
End Sub
Meine Testdatei hat den Namen: Test≤.pdf
Gruß
Nepumuk
Anzeige
AW: Per VBA Datei öffnen
07.03.2022 09:25:15
Günther
Hallo Nepumuk,
Danke Dir - funktioniert super!
Grüße Günther
AW: Per VBA Datei öffnen
06.03.2022 17:31:30
Anton
Hallo Günther ,
probier es so:

Sub b()
  Dim pfad As String  
  pfad = Range("A1")  'Pfad in Zelle A1 speichern
  CreateObject("Shell.Application").ShellExecute pfad, "", "", "open", 1
End Sub  

mfg Anton
Anzeige
AW: Per VBA Datei öffnen
07.03.2022 09:24:07
Günther
Hallo Anton,
Danke Dir - funktioniert super!
Grüße Günther
;

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
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
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
Ö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
Anzeige
Ö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
Access datei in excel öffnen?
kaan

Hallo,
kann ich über eine Schaltfläche in Excel 2010 durch drauf klicken eine belibiege Access datei öffnen?
so klappt das irgend wie nicht.....
Sub access() Const ACCESS_FILENAME As String = "C:\Users\selin_naz\Downloads\bsp-v17" Dim objAccess As Object Set objAccess = CreateObject...
03.11.2013 19:46:23
Thread-ID: 1336971
2 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
Anzeige
Datei lässt sich nicht öffnen / Zugriff via VBA?
Matthias

Hallo zusammen
Ich habe in einem File durch einen Automatismus (der wohl noch nicht ganz so ist wie er sein sollte) einen Murks hingekriegt und geschätze 10'000 Input-Kästchen in die Spalte A geschrieben. Nun bringe ich dieses File via Excel nicht mehr auf (lädt ewig und dann stürzt Excel a...
23.07.2014 11:59:03
Thread-ID: 1371800
10 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
Datei öffnen mit VBA
Friedhelm

Hallo in die Runde,
ich habe aus einem Verzeichnis eine Excel Datei geöffnet. Ich möchte mit einem Makro das gleiche Verzeichnis öffnen, damit ich eine weitere Excel Datei öffnen kann.
Die Namen der Dateien sollen dann in den Variablen WB1, WB2 stehen, so das ich die Dateien gezielt aus...
27.01.2015 16:58:17
Thread-ID: 1405414
7 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Dateien mit VBA in Excel öffnen

Schritt-für-Schritt-Anleitung

  1. Öffnen des VBA-Editors: Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Einfügen eines Moduls: Rechtsklicke im Projektfenster auf „VBAProject (DeineDatei.xlsm)“ und wähle Einfügen > Modul.

  3. Code einfügen: Kopiere den folgenden Code in das Modul:

    Option Explicit
Private Declare PtrSafe Function ShellExecuteA Lib "shell32.dll" ( _
   ByVal hwnd As LongPtr, _
   ByVal lpOperation As String, _
   ByVal lpFile As String, _
   ByVal lpParameters As String, _
   ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As LongPtr
Private Const SW_MAXIMIZE As Long = 3

Public Sub DateiÖffnen()
   ShellExecuteA 0, "OPEN", "C:\temp\A & B.pdf", vbNullString, vbNullString, SW_MAXIMIZE
End Sub
  4. Anpassen des Dateipfades: Ersetze C:\temp\A & B.pdf mit dem Pfad und Dateinamen, den du öffnen möchtest.
  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro über Entwicklertools > Makros aus.

Häufige Fehler und Lösungen

  • Fehler bei verbotenen Zeichen: Wenn der Dateiname ein &-Zeichen enthält, musst du es möglicherweise verdoppeln. Teste den Namen als A && B.pdf.

  • Unicode-Zeichen: Wenn du Unicode-Zeichen wie ≤ oder ≥ im Dateinamen verwenden möchtest, benutze die ShellExecuteW-Funktion. Beispiel:

    Private Declare PtrSafe Function ShellExecuteW Lib "shell32.dll" ( _
   ByVal hwnd As LongPtr, _
   ByVal lpOperation As LongPtr, _
   ByVal lpFile As LongPtr, _
   ByVal lpParameters As LongPtr, _
   ByVal lpDirectory As LongPtr, _
   ByVal nShowCmd As Long) As LongPtr

Alternative Methoden

  1. Datei öffnen mit CreateObject:

    Sub DateiÖffnenMitShell()
   Dim pfad As String
   pfad = Range("A1") ' Pfad in Zelle A1 speichern
   CreateObject("Shell.Application").ShellExecute pfad, "", "", "open", 1
End Sub

  2. Access VBA: Wenn du Access verwendest, kannst du mit ähnlichem Code Dateien öffnen. Verwende die DoCmd-Funktion, um beliebige Dateien zu finden und zu öffnen.

Praktische Beispiele

  • Öffnen einer PDF-Datei:

    Public Sub PDFÖffnen()
   Shell "cmd /C ""C:\temp\deine_datei.pdf"""
End Sub

  • Öffnen einer DLL-Datei:

    Public Sub DLLÖffnen()
   ShellExecuteW 0, StrPtr("OPEN"), StrPtr("C:\temp\deine_datei.dll"), 0, 0, SW_MAXIMIZE
End Sub

Tipps für Profis

  • Verwende Variablen: Um den Code flexibler zu gestalten, speichere Dateipfade in Variablen.

  • Fehlerbehandlung: Implementiere On Error GoTo für eine bessere Kontrolle bei Fehlern.

  • Testzeichen: Achte auf die korrekte Handhabung von Testzeichen, um sicherzustellen, dass die Datei ohne Probleme geöffnet wird.

FAQ: Häufige Fragen

1. Wie kann ich eine Excel-Datei über VBA öffnen?
Du kannst eine Excel-Datei öffnen, indem du Workbooks.Open "Pfad\zur\Datei.xlsx" verwendest.

2. Unterstützt VBA alle Dateiformate?
VBA kann die meisten Dateiformate öffnen, aber für spezielle Formate wie DLL oder andere nicht-native Formate kann es Einschränkungen geben.

Beliebteste Forumthreads (12 Monate)

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