复制多个PDF文件数据在不同的工作表擅长

我已经创build了一个VBA脚本来复制多个PDF文件的所有数据，并粘贴在不同的标签与相同的PDF文件名称的Excel中。

问题是它从PDF文件复制数据并粘贴在工作表的同一个选项卡上，从而替代另一个。 请让我在哪里我错了这个。

Answer 1

您需要重置wsOutp然后检查它是否为wsOutp 。 正如所写，您正在设置wsOutp来引用您的初始循环中的工作表。 然后，在下一个循环之前，必须将其重置为空，因为当您尝试将其设置为引用另一个可能不存在的工作表时，如果失败，则引用仍指向原始工作表。 那么最后发生了什么，你是否删除了下一步的工作表。

所以实际上你的代码不会覆盖到同一张纸上，而是删除你创build的每张纸，所以最后你只留下一张纸。

添加下面的行：

  ' 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