Vba 在一个文件夹中的pdf文件上循环、打开和执行SendKeys Sub密码（） '循环浏览文件夹中的所有文件 变暗文件名作为变量 fileName=Dir（“C:\State\u K-1\u Info\Password\*.pdf”） 文件名“”时执行此操作 CreateObject（“Shell.Application”）.Open（“C:\State\u K-1\u Info\Password\001.pdf”） 应用程序。现在等待+0.00005 '插入要对每个文件执行的操作 '此示例将文件名打印到即时窗口 Application.SendKeys“{Tab}”，True Application.SendKeys“^（s）”，True Application.SendKeys“%$F4}”，True '将文件名设置为下一个文件 fileName=Dir 环 端接头
不幸的是，这只是不断地打开和关闭文件夹中的第一个文件，该文件在我的创建对象行中引用，因为这正是您要它做的。你不是想改为Vba 在一个文件夹中的pdf文件上循环、打开和执行SendKeys Sub密码（） '循环浏览文件夹中的所有文件 变暗文件名作为变量 fileName=Dir（“C:\State\u K-1\u Info\Password\*.pdf”） 文件名“”时执行此操作 CreateObject（“Shell.Application”）.Open（“C:\State\u K-1\u Info\Password\001.pdf”） 应用程序。现在等待+0.00005 '插入要对每个文件执行的操作 '此示例将文件名打印到即时窗口 Application.SendKeys“{Tab}”，True Application.SendKeys“^（s）”，True Application.SendKeys“%$F4}”，True '将文件名设置为下一个文件 fileName=Dir 环 端接头,vba,loops,pdf,sendkeys,Vba,Loops,Pdf,Sendkeys,不幸的是，这只是不断地打开和关闭文件夹中的第一个文件，该文件在我的创建对象行中引用，因为这正是您要它做的。你不是想改为.Open（fileName）吗？^很可能是文件名和路径。当我这样做时，没有打开任何文件。@rbrb19我犯了一个错误。正如BigBen所说，它应该是.Open（“C:\etc\etc\”&fileName）。 Sub Password() 'Loop through all files in a folder Dim fileName As Variant fileNa
.Open（fileName）文件名和路径。当我这样做时，没有打开任何文件。@rbrb19我犯了一个错误。正如BigBen所说，它应该是.Open（“C:\etc\etc\”&fileName）
。
Sub Password()
'Loop through all files in a folder
Dim fileName As Variant
fileName = Dir("C:\State_K-1_Info\Password\*.pdf")
Do While fileName <> ""
CreateObject("Shell.Application").Open ("C:\State_K-1_Info\Password\001.pdf")
Application.Wait Now + 0.00005
'Insert the actions to be performed on each file
'This example will print the file name to the immediate window
Application.SendKeys "{Tab}", True
Application.SendKeys "^(s)", True
Application.SendKeys "%{F4}", True
'Set the fileName to the next file
fileName = Dir
Loop
End Sub