Получение данных из PDF в Excel с использованием VBA - PullRequest
Новая
       65

Получение данных из PDF в Excel с использованием VBA

0 голосов
/ 27 декабря 2018

У меня есть более 1000 файлов PDF, и я хочу извлечь / извлечь данные из PDF.Если я использую PDF для преобразования в Excel, то это займет много времени, поэтому я думаю о том, чтобы извлечь данные из PDF в Excel, используя Excel.

Формат в формате PDF следующий: Год 20XX Месяц MAR

Уникальный идентификационный номер (UIN) Название компании

Подробности Значение IncomeTax IndirectTax OtheTaxes Продажи 20000 1000 10000 500 Покупок 20000 500 500 0 Освобождены 3000 0 0 0

Формат, в котором мне нужнов Excel выглядит следующим образом:

Год Месяц UIN NameofthCompanyssss Значение IncomeTax Косвенный OtherTaxes

1 Ответ

0 голосов
/ 29 декабря 2018

Есть инструменты онлайн, которые делают это для вас.Кроме того, если вы хотите конвертировать все PDF-файлы в папке в текстовые файлы, вы можете легко импортировать текстовые все текстовые файлы в папку в Excel, а затем манипулировать любым удобным для вас способом.Файл PDF - это, по сути, текстовый файл на стероидах.Отправьте ответ, если у вас есть дополнительные вопросы.

Как импортировать несколько текстовых файлов из папки в один лист? 

Sub Test()
'UpdatebyExtendoffice6/7/2016
    Dim xWb As Workbook
    Dim xToBook As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xFiles As New Collection
    Dim I As Long
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
    xFile = Dir(xStrPath & "*.txt")
    If xFile = "" Then
        MsgBox "No files found", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Do While xFile <> ""
        xFiles.Add xFile, xFile
        xFile = Dir()
    Loop
    Set xToBook = ThisWorkbook
    If xFiles.Count > 0 Then
        For I = 1 To xFiles.Count
            Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
            xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xWb.Name
            On Error GoTo 0
            xWb.Close False
        Next
    End If
End Sub
...