Opgelost foutmelding vba code macro.

[fire746]

Hallo ik wil onderstaande vba code gebruiken om met een macro meerdere PDF files om te zetten naar excel.
Maar deze code geeft een fout code, toegevoegd middels 2 foto's. Wie kan mij hiermee helpen om dit werkend te krijgen, ik zie het niet.

Option Explicit
Option Compare Text

Sub pdfExcelMacro()
Dim pdf_path As String
Dim excel_path As String
Dim filename As String
Dim x1workbook As Workbook
Dim x1worksheet As Worksheet
Dim wordApp As New Word.Application
Dim wordDoc As Word.Document
Dim wordRange As Word.Range

'file path***********it should be exactly same. look at slash \
pdf_path " ThisWorkbook.path & " \ pdf_files \ ""
excel_path " ThisWorkBook.path & " \ excel_files \ ""
'*********************************************************
Application.ScreenUpdating = False
Application.StatusBar = False

wordApp.Visible = True

filename VBA.Dir(pdfpath)

While filename <> ""
    If filename Like "*.pdf" Then
        Application.CutCopyMode " False"
        
        'here we open word
        Set wordDoc = wordApp.Documents.Open(pdfpath & filename, Format:="PDF Files", ReadOnly:=True)
        Set wordRange = wordDoc.Paragraphs(1).Range
        wordRange.WholeStory
        
        Set x1workbook = Excel.Workbooks.Add
        Set x1worksheet = xlWorksheet.Sheets(1)
        
        'here we copy the word range
        wordRange.Copy
        
        'now pasting word data in excel
        
        x1worksheet.PasteSpecial Format:="Text", linl:=False, DisplayAsIcon:=False
        x1workbook.SaveAs (excelpath & VBA.Replace(filename, ".pdf", "xlsx"))
        
        x1workbook.Close False
        wordDoc.Close False
    End If
    
    filename = VBA.Dir()
Wend

Application.CutCopyMode = False
Application.StatusBar = False
Application.ScreenUpdating = False
MsgBox "Done", vbInformation
'to display folder
Call Shell("explorer.exe " & excelpath, vbNormalFocus)

End Sub

 

[glda19]

Mogen geen spaties voor en na de \ staan In een path

 

[edmoor]

Haal de regel Option Explicit weg of declareer de variabelen die nog niet gedeclareerd zijn.
De regels pdf_path en excel_path zijn totaal fout.

 

[AHulpje]

En vergelijk jouw code met de code in bijgaand document, nogal wat gewijzigd, werkt nu wel.

 

[fire746]

Bedankt voor de reacties, is inderdaad anders, maar nu stop de macro bij, zie toegevoegde foto

 

[edmoor]

En welke melding krijg je daar bij?

 

[Warme bakkertje]

Wou net posten dat er een foutje in de code zit nl. dat er op die regel een punt moet voor xlsx
En hoe ziet het excel_path eruit want als alles correct is werkt de code wel.

x1workbook.SaveAs excel_path & VBA.Replace(filename, ".pdf", ".xlsx")

 

[edmoor]

Scherp!

 

[fire746]

Hartelijk dank voor de hulp de code werkt.

 

[AHulpje]

Zonder de . voor xlsx werkt de code ook, de filenaam ziet er dan een beetje vreemd uit: filenaamxlsx.xlsx.
Ik neem aan dat een niet bestaande directory de oorzaak was.