導入 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

結束子