返回列表 上一主題 發帖

[發問] 如何執行 A.exe?

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
2#
發表於 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了

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題