Mit VBA Datei öffnen

Forumthread: Mit VBA Datei öffnen

27.10.2005 13:40:01

Christian

Hallo zusammen,
ich kenne mich mit VBA leider gar nicht aus...möchte in Excel einen Button einfügen, der bei Betätigung, eine pdf Datei öffnet.
Bei Excel Dateien geht das mit:


Private Sub CommandButton7_Click()
Workbooks.Open "\Quelle\Preise_.xls"
End Sub

Wie funktioniert das denn bei anderen Dateien?!?!
Vielen Dank!
Christian

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mit VBA Datei öffnen

27.10.2005 13:42:03

Matthias
AW: Mit VBA Datei öffnen

27.10.2005 13:52:59

Christian
AW: Mit VBA Datei öffnen

27.10.2005 14:00:56

Matthias

AW: Mit VBA Datei öffnen

27.10.2005 13:42:03

Matthias

Hallo Christian,
https://www.herber.de/forum/archiv/536to540/t539985.htm
Gruß Matthias

AW: Mit VBA Datei öffnen

27.10.2005 13:52:59

Christian

Hallo,
also danach habe ich folgendes:


Private Sub CommandButton7_Click()
Option Explicit
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
Sub test()
ShellExecute Application.hwnd, "Open", "\\Quelle\Hilfe_normal.pdf", _
vbNullString, vbNullString, vbNormalFocus
End Sub

klappen tut das aber noch nicht...irgendwas falsch gemacht?!
Vielen Dank
Christian

AW: Mit VBA Datei öffnen

27.10.2005 14:00:56

Matthias

Hallo Christian,
dies in ein allgemeines Modul (und Public voranstellen):


Public 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

Gruß Matthias

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine Datei mit VBA in Excel zu öffnen, kannst du eine der folgenden Methoden verwenden. Hier zeigen wir dir, wie du eine Excel-Datei und eine PDF-Datei öffnest.

Excel-Datei öffnen: Füge den folgenden VBA-Code in das Codefenster eines CommandButtons ein, um eine Excel-Datei zu öffnen:
```
Private Sub CommandButton7_Click()
   Workbooks.Open "\\Quelle\Preise_.xls"
End Sub
```

PDF-Datei öffnen: Um eine PDF-Datei zu öffnen, musst du den ShellExecute-Befehl verwenden. Hier ist der Code, den du in ein allgemeines Modul einfügen solltest:

Public 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

Sub ÖffnePDF()
   ShellExecute Application.hwnd, "Open", "\\Quelle\Hilfe_normal.pdf", _
   vbNullString, vbNullString, vbNormalFocus
End Sub

Stelle sicher, dass der Code im richtigen Modul eingefügt ist und dass der Pfad zur Datei korrekt ist.

Häufige Fehler und Lösungen

Datei wird nicht gefunden: Stelle sicher, dass der Pfad zu der Datei korrekt eingegeben wurde. Überprüfe auch, ob die Datei tatsächlich am angegebenen Ort existiert.
ShellExecute funktioniert nicht: Wenn der ShellExecute-Befehl nicht funktioniert, überprüfe, ob die Deklaration im richtigen Modul und als Public deklariert ist.
Zugriffsrechte: Es kann sein, dass du nicht die erforderlichen Berechtigungen hast, um auf die Datei zuzugreifen. Stelle sicher, dass du die richtigen Berechtigungen für den Ordner hast.

Alternative Methoden

Datei öffnen mit Dialogbox: Du kannst eine Dialogbox verwenden, um eine beliebige Datei auszuwählen und zu öffnen. Hier ist ein Beispiel:

Sub DateiÖffnenMitDialog()
  Dim Datei As Variant
  Datei = Application.GetOpenFilename("Alle Dateien (*.*), *.*", , "Wähle eine Datei")
  If Datei <> False Then
      Workbooks.Open Datei
  End If
End Sub

Praktische Beispiele

Öffnen einer externen Excel-Datei: Um eine andere Excel-Datei zu öffnen, verwende den folgenden Code:
```
Sub ÖffneAndereExcel()
  Workbooks.Open "C:\Pfad\zu\deiner\Datei.xlsx"
End Sub
```

Öffnen einer PDF-Datei: Hier ist der Code, um eine PDF-Datei zu öffnen:

Sub ÖffnePDFDatei()
  ShellExecute Application.hwnd, "Open", "C:\Pfad\zu\deiner\Datei.pdf", vbNullString, vbNullString, vbNormalFocus
End Sub

Tipps für Profis

Nutze Fehlerbehandlung in deinem VBA-Code, um Probleme beim Öffnen von Dateien zu identifizieren. Beispiel:

On Error Resume Next
Workbooks.Open "C:\Pfad\zu\deiner\Datei.xlsx"
If Err.Number <> 0 Then
  MsgBox "Datei konnte nicht geöffnet werden: " & Err.Description
End If
On Error GoTo 0

Experimentiere mit verschiedenen Dateiformaten, indem du den Open-Befehl anpasst. Du kannst auch andere Dateitypen öffnen, nicht nur Excel- oder PDF-Dateien.

FAQ: Häufige Fragen

1. Wie kann ich eine Datei auswählen, bevor ich sie öffne?
Verwende die GetOpenFilename-Methode, um eine Dialogbox zur Dateiauswahl anzuzeigen.

2. Kann ich eine PDF-Datei mit VBA öffnen?
Ja, du kannst eine PDF-Datei mit dem ShellExecute-Befehl öffnen, wie im Tutorial beschrieben.

Beliebteste Forumthreads (12 Monate)

Forumthread: Mit VBA Datei öffnen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Mit VBA Dateien in Excel öffnen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread