Sub Test()
path1 = ThisWorkbook.Path
AppActivate Shell(path1 & "\B\" & "A.exe")
End Sub
µ²ªG ¬O§ä¤£¨ìÀÉ®×
¦ý¥Î
Dim fso, As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(path1 & "\B\" & "A.exe") Then
msgbox "OK"
End If
«o ¦s¦bOK ¦ýµLªk°õ¦æ ¦]¬°§ä¤£¨ìÀÉ®×
À³¦p¦ó×¥¿»yªk?
ÁÂÁ«ü¾É§@ªÌ: yangjie ®É¶¡: 2014-12-5 08:48
¦^´_ 1#yangjie
¦b¦UºØ¿ù»~¤¤¾Ç²ß
Sub test()
Dim path1 As String
path1 = ThisWorkbook.Path & "\" & "¸ê®Æ®w"
ChDir path1
Dim myret As Long
myret = Shell("B.exe", 1)
AppActivate myret
End Sub
´NOK¤F