Board logo

標題: [發問] 如何執行 A.exe? [打印本頁]
作者: yangjie    時間: 2014-12-5 02:07     標題: 如何執行 A.exe?

本帖最後由 yangjie 於 2014-12-5 02:09 編輯

請教諸位大大:
我用VB 寫了小程式 轉成執行檔 A.exe 放在
與workbook同層B資料夾內
在workbook裏,要用VBA來執行 A.exe

Sub Test()
    path1 = ThisWorkbook.Path
    AppActivate Shell(path1 & "\B\"  &   "A.exe")
End Sub
結果 是找不到檔案
但用
    Dim fso, As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(path1 & "\B\" &  "A.exe") Then
         msgbox "OK"
    End If
卻 存在OK  但無法執行 因為找不到檔案
應如何修正語法?
謝謝指導
作者: yangjie    時間: 2014-12-5 08:48

回復 1# yangjie
在各種錯誤中學習
Sub test()
    Dim path1 As String
    path1 = ThisWorkbook.Path & "\" & "資料庫"
    ChDir path1
    Dim myret As Long
    myret = Shell("B.exe", 1)
    AppActivate myret
End Sub
就OK了



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)