小编Str*_*ker的帖子

我创建了一个vba脚本来复制来自多个pdf文件的所有数据,并使用相同名称的pdf文件粘贴到不同选项卡中的excel中.

问题是它从pdf文件中复制数据并粘贴在工作表的相同选项卡中,将其替换为另一个.请告诉我这里我出错了.

我已经创建了一个代码来为我提供路径,并为文件夹中的所有文件指定excel.但我的问题是它给了我该文件夹中所有文件的文件名.我只想搜索和检索只有pdf文件的名称才能出类拔萃.

这是我有的:

Sub Example1()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer

'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder(Range("H1").Value)

i = 1

'loops through each file in the directory and prints their names and path

For Each objFile In objFolder.Files
'print file path
Cells(i + 3, 2) = objFile.Path
i = i + 1
Next objFile

End Sub