Следующий файл в DIR не открывается - PullRequest
Новая
       35

Следующий файл в DIR не открывается

0 голосов
/ 09 февраля 2020

Все мои sendkeys выполняются правильно, документ сохраняется и закрывается, но следующий документ не открывается. До того, как я добавил sendkeys, все документы в DIR открывались, но теперь следующий документ не будет. Что я делаю не так? 

Sub Password()
Dim CustRow, LastRow As Long
Dim Password As String
Dim fileName As Variant
With Sheet1
LastRow = .Range("C9999").End(xlUp).Row
fileName = Dir("C:\State_K-1_Info\Password\*.pdf")


Do While fileName <> ""

    CreateObject("Shell.Application").Open ("C:\State_K-1_Info\Password\" & fileName)
    Application.Wait Now + 0.00005
    For CustRow = 2 To LastRow
    Password = .Range("C" & CustRow).Value

    Application.SendKeys "{F6}", True
     Application.Wait Now + 0.00001
    Application.SendKeys "{Tab}", True
    Application.Wait Now + 0.00001
    Application.SendKeys Password, True
    Application.Wait Now + 0.00002
    Application.SendKeys "(~)", True
     Application.Wait Now + 0.00001
    Application.SendKeys Password, True
    Application.Wait Now + 0.00002
    Application.SendKeys "(~)", True
     Application.Wait Now + 0.00001
    Application.SendKeys "(~)", True
     Application.Wait Now + 0.00001
    Application.SendKeys "^(s)", True
    Application.Wait Now + 0.00001
    Application.SendKeys "%{F4}", True
    Application.Wait Now + 0.00001

    fileName = Dir
    Next CustRow
Loop
End With
End Sub
...