- ©«¤l
- 127
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 178
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2013-1-24
- ³Ì«áµn¿ý
- 2024-11-11
|
[µo°Ý] ¨Ï¥ÎVBAµ{§Ç¶}±Ò«ü©wÀÉ®×"¥¢±Ñ"
½Ð°Ý¤@¤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") '«ü©wn±Ò°ÊªºÀ³¥Îµ{¦¡
myTimer = Timer + 5 '«ü©wµ²§ô®É¶¡
Do Until myTimer < Timer
DoEvents
Loop
myExec.Terminate
Set myExec = Nothing 'ÄÀ©ñª«¥ó
Set myWsh = Nothing
End Sub |
|