Ошибка выполнения Excel 1004 после копирования данных из PDF - PullRequest
Новая
       0

Ошибка выполнения Excel 1004 после копирования данных из PDF

0 голосов
/ 13 сентября 2018

Я делаю извлечение из файла PDF и вставляю его в Excel, что прекрасно работает.Когда я пытаюсь обработать извлеченные данные, я получаю сообщение «Ошибка времени выполнения 1004»

У меня следующий код: 

Sub PDF_Upload()
    Dim objWord As Object
    Dim objDoc As Object
    Dim wdFileName
    Dim LastRow As Long
    Dim fso As New FileSystemObject
    Dim fileName As String

    fileName = fso.GetFileName("C:\ABC.pdf")
    Title = Replace(fileName, ".pdf", "")

    Set objWord = CreateObject("word.Application")
    wdFileName = "C:\ABC.pdf"

    Set objDoc = objWord.Documents.Open(wdFileName)
    objWord.Selection.WholeStory
    objWord.Selection.Copy

    ' create new sheet and call it the pdf name
    Sheets.Add
    ActiveSheet.name = Title
    [A1].Select
    ActiveSheet.Paste

    ' Close Word
    objDoc.Close SaveChanges:=False
    objWord.Quit
    Application.DisplayAlerts = True

    ' check
    Sheets(Title).Select
    ' process fails in the next line
    LastRow = ActiveSheet.Range("A1").Offset(ActiveSheet.Rows.Count - 1, 0).End(xlUp).Row
End Sub

Все работает, пока я не доберусь до последней строки'LastRow = ActiveSheet ....'

Любые идеи о том, что вызывает ошибку.Я изучил другие сообщения об ошибке 1004 в StackOverflow ( 1 , 2 , 3 , ...), но не могу найти ничего, что может помочь.

1 Ответ

0 голосов
/ 13 сентября 2018

Благодаря комментариям выше удалось получить решение. Публикуем здесь, чтобы помочь кому-то: 

With Worksheets(Title)
    LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
...