导入 PDF 到 Excel

Question

我有一个程序用于搜索 Excel 工作表并将它们导入 Excel 工作簿。 想知道我是否可以使用相同的代码，并进行一些修改以在文件夹中搜索 PDF 并将它们导入 Excel 工作簿。

Sub Merge_Excel_Files_Created_By_CMM() Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook ChDrive "I" ChDir "I:\Quality\CMM Data" DimLists As Selection Application.GetOpenFilename(FileFilter:="Microsoft Excel 工作簿 ( .xls; .xlsx; .xlsm) ,.xls; .xlsx; .xlsm", Title:="选择 Excel 文件=合并", MultiSelect

If (vbBoolean <> VarType(fnameList)) Then

    If (UBound(fnameList) > 0) Then
        countFiles = 0
        countSheets = 0

        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual

        Set wbkCurBook = ActiveWorkbook

        For Each fnameCurFile In fnameList
            countFiles = countFiles + 1

            Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile)

            For Each wksCurSheet In wbkSrcBook.Sheets
                countSheets = countSheets + 1
                wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)
            Next

            wbkSrcBook.Close SaveChanges:=False

        Next

        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic

        MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files"
    End If

Else
    MsgBox "No files selected", Title:="Merge Excel files"
End If
 s.Parent.Activate
 s.Select

结束子