Extracting PDF into Excel as text

[Roderick_E]

I'm trying to use this example http://www.vbaexpress.com/kb/getarticle.php?kb_id=977 but get a Run-time error '75' Path/File access error on this line of the subroutine:

Sub ReadTextFile()
    Dim FileNum As Integer
    Dim r As Integer
    Dim wb As Workbook
    Dim Data As String
    r = 1
    FileNum = FreeFile
    Set wb = Workbooks.Add
[COLOR=#ff0000][B]    Open PageName For Input As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] [/B][/COLOR]
    Do While Not EOF(FileNum)
        Line Input [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] , Data
        ActiveSheet.Cells(r, 1) = Data
        r = r + 1
    Loop
    Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] 
End Sub

It seems to create the YourPage pdf and txt file ok.

 

[taurean]

You have not defined file path for the text file anywhere so it is erroring.

[B]Open [U][I]PageName[/I][/U] For Input As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL][/B]

PageName should be valid file name with a valid path e.g.

PageName = "C:\Temp\OutPutTextFile.txt"
[B]Open [U][I]PageName[/I][/U] For Input As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL][/B]

 

[Roderick_E]

You have not defined file path for the text file anywhere so it is erroring.

[B]Open [U][I]PageName[/I][/U] For Input As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL][/B]

PageName should be valid file name with a valid path e.g.

PageName = "C:\Temp\OutPutTextFile.txt"
[B]Open [U][I]PageName[/I][/U] For Input As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL][/B]

thanks, I'll give it a try