Laufzeitfehler 5174

Hallo Zusammen,
ich habe mit Hilfe verschiedener Foren und des Internets eine Datenbank erstellt. Diese ermöglicht mir die Eingabe, Bearbeitung und Sichtung von Daten.
Darüber hinaus besteht die Möglichkeit Dokumente, die in verschiedenen Ordnern liegen zu öffnen. Das habe ich folgendermaßen umgesetzt. Ich habe einen Stammpfad vorgegebenen und diesen ergänze ich durch mehrere Comboboxen dynamischen. Je nach dem was ich in Combobox1 wähle, ist der erste Teil des Pfades entsprechend. Je nach dem was ich in Cimbobox2 wähle, wird dies an das Ende vom neuen Pfad angesetzt und so weiter. In der letzten Combobox hab ich die Auswahl, welches Dokument ich öffnen möchte. Es sind PDF und Word Dateien, die eindeutig sind, also alle haben unterschiedliche Namen.
Es ist so, dass Word Dateien geöffnet, kopiert und in einer neuen Excel-Datei eingefügt werden und anschließend wird das Word Dokument geschlossen. Bei PDF Daten ist es so, dass diese geöffnet werden sollen und das passiert auch, jedoch erscheint direkt nach dem öffnen die Fehlermeldung 5174. Gibt es eine Möglichkeit diese Fehlermeldung zu unterdrücken, oder diese anzuwählen und direkt zu beenden?
Ich füge im nächsten Kommentar meine Codes ein.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender


Private Sub CommandButton4_Click()
Dim oPDF As Object
If Me.ComboBox4.ListIndex > -1 And Me.ComboBox5.ListIndex > -1 And Me.ComboBox6.ListIndex > -1  _
Then
Set oPDF = CreateObject("Shell.Application")
oPDF.Open "E:\Studium\Masterarbeit\Datenbank\" & Me.ComboBox4 & "\" & Me.ComboBox5 & "\" & Me. _
ComboBox6 & ".pdf"
Call CopyTableFromWordDocument("E:\Studium\Masterarbeit\Datenbank\" & Me.ComboBox4 & "\" & Me. _
ComboBox5 & "\" & Me.ComboBox6 & ".docx")
End If
Set oPDF = Nothing
If ComboBox4.Value = "" Then
MsgBox "Ordner ist nicht eingetragen!"
ComboBox4.SetFocus
Exit Sub
End If
End Sub

Private Function CopyTableFromWordDocument(WordDocumentPath As String) As Excel.Workbook
Dim objWdApp As Object
Dim objWdDoc As Object
Set objWdApp = CreateObject("Word.Application")
Set objWdDoc = objWdApp.Documents.Open(WordDocumentPath, ReadOnly:=True)
Dim wkb As Excel.Workbook
Set wkb = Workbooks.Add
With wkb.Worksheets(1)
Call objWdDoc.Tables(1).Range.Copy
Call .Paste(Destination:=.Range("A1"))
End With
Call objWdApp.Quit(Savechanges:=False)
Set CopyTableFromWordDocument = wkb
UserForm1.Hide
Range("L5").Select
Range("L5") = "..."
End Function

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler 5174

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread