将多个 pdf 文件数据复制到不同工作表中的 Excel

Question

我创建了一个 vba 脚本来复制多个 pdf 文件中的所有数据，并以与 pdf 文件同名的方式将其粘贴到不同选项卡中的 Excel 中。

问题是它从 pdf 文件复制数据并将其粘贴到工作表的同一选项卡中，并替换另一个。请告诉我哪里出了问题。

Answer 1

在检查是否没有任何内容之前，您需要重置wsOutp。正如所写，您将设置 wsOutp 以引用初始循环中的工作表。然后，您必须在下一个循环之前将其重置为空，因为当您尝试将其设置为引用可能不存在的另一个工作表时，如果失败，引用仍指向原始工作表。所以最终发生的事情是您在下一步中删除该工作表。

因此，实际上您的代码不会覆盖同一张工作表，而是删除您创建的每个工作表，因此最终只剩下一张工作表。

添加以下行:

    ' Delete sheet with filename if exists
    Set wsOutp = Nothing
    On Error Resume Next
    Set wsOutp = Sheets(strFile)
    On Error GoTo 0
    If Not wsOutp Is Nothing Then
        wsOutp.Delete
    End If