[µo°Ý] ¨Ï¥ÎVBAµ{§Ç¶}±Ò«ü©wÀÉ®×"¥¢±Ñ"

lichang

½Ð°Ý¤@¤U¡A§Ú¥¿¦b´ú¸Õ¨Ï¥ÎVBA¶}±Ò«ü©wÀɮסA¦ý·í§Ú´ú¸Õ¶}±Òacrobat©Îline®É¡A³£¥i¥H¥¿±`¶}±Ò
¦ý§Ú´ú¸Õ¶}±Ò«öÁäºëÆF®É¡A¥L³£·|²£¥Í
°õ¦æ¶¥¬q¿ù»~'-2147024156(800702e4)'-
"Exec'¤è¦¡(IWshShell3'ª«¥ó)¥¢±Ñ

½Ð°Ý¦³¤°»ò­­¨î¯à¶}±ÒªºÀɮ׶Ü??
¬°¤°»òµLªk°õ¦æ??


Option Explicit
Sub Q_Sample044()
    'Windows Script Host Object Model³]©w¤Þ¥Î¶µ¥Ø
    Dim myWsh   As IWshRuntimeLibrary.WshShell
    Dim myExec  As IWshRuntimeLibrary.WshExec
    Dim myTimer As Single
    Set myWsh = CreateObject("Wscript.Shell")
    Set myExec = myWsh.Exec("C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\Acrobat.exe")      '«ü©w­n±Ò°ÊªºÀ³¥Îµ{¦¡
    myTimer = Timer + 5             '«ü©wµ²§ô®É¶¡
    Do Until myTimer < Timer
        DoEvents
    Loop
    myExec.Terminate
    Set myExec = Nothing            'ÄÀ©ñª«¥ó
    Set myWsh = Nothing
End Sub