Question

我有一个VBA代码，可以打开文件，将文件复制到其中，然后将其粘贴到excel文件中，然后关闭pdf文件。...但是很多时候pdf文件无法在程序中指定的时间内打开或关闭（即等待时间）

目标-我要修改我的VBA代码，例如宏应该等到pdf文件打开并关闭之前，这样就不会跳过打开任何pdf文件，也不会在打开我的代码的桌面上保持任何pdf打开状态行为不当。

请帮助...

我当前的VBA代码是-

Sub Shell_Copy_Paste()

On Error Resume Next

   Dim o As Variant

   Dim i As Long

   Worksheets("sheet1").Activate

   For i = 2 To Range("A1").End(xlDown).Row


   o = Shell(Cells(i, 1), vbNormalFocus)


   Application.Wait (Now + TimeSerial(0, 0, 2)) 'Wait for Acrobat to load


   SendKeys "^a"   'Select All

   SendKeys "^c"   'Copy

   SendKeys "%{F4}"    'Close shell application

   Application.Wait (Now + TimeSerial(0, 0, 2))

   Worksheets("Sheet2").Activate

    Worksheets("Sheet2").Paste

   SendKeys "^v"   'Paste

   Range("A" & Rows.Count).End(xlUp).Offset(1).Select

   Worksheets("sheet1").Activate


    Next

End Sub

等到PDF文件打开，然后等到PDF文件关闭-无需在程序中指定任何特定时间即可等待

0 个答案: