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

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