L oop через, открыть, выполнить SendKeys для PDF-файлов в одной папке - PullRequest
Новая
       41

L oop через, открыть, выполнить SendKeys для PDF-файлов в одной папке

0 голосов
/ 03 февраля 2020 
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

К сожалению, это просто постоянно открывает и закрывает первый файл в папке, на которую есть ссылка в моей строке создания объекта

...