帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-8-14 22:10 | 只看該作者

[發問] 如何用VBA關閉外部程式

請教大大
如何用VBA關閉外部程式

煩請大大協助解答,謝謝!!

樓主熱帖

blue2263

中學生 Rank: 2

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

2^#

發表於 2018-8-14 22:32 | 只看該作者

下列網址有說方法,我開啟外部軟體沒問題,但關閉外部軟體,一直用不出來,請教大大如何修改

https://tw.answers.yahoo.com/question/index?qid=20070807000016KK08276

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Public Const WM_CLOSE = &H10

2.在Form上拉兩個按鍵，並COPY下面程式
Private Sub Command1_Click()
Rem 開啟小算盤按鈕
Shell "C:\WINNT\system32\calc.exe" '程式的路徑
End Sub
Private Sub Command2_Click()
Rem 關閉小算盤按鈕
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "小算盤") '欲關閉的程式的名稱
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error posting message."
End If
Else
MsgBox "並未開啟小算盤程式."
End If
End Sub

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2018-8-16 11:52 | 只看該作者

下列網址有說方法,我開啟外部軟體沒問題,但關閉外部軟體,一直用不出來,請教大大如何修改

https://tw.ans ...
blue2263 發表於 2018-8-14 22:32

看不懂實際用意。
如果只是單純要運算數值，EXCEL就可以。

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

blue2263

中學生 Rank: 2

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

4^#

發表於 2018-8-16 21:26 | 只看該作者

回復 3# mark15jill

M大您好
我平時有用EXCEL計記錄,看盤軟體的DDE訊息,有時看盤軟體會出現錯誤
我想出現錯誤時,重啟看盤軟體,所以我的重點是如何關閉外部程式,不是關閉小算盤

ps:我是想小算盤可以關閉成功,依理應用到其它軟體應該也可行
ps:我想關閉重啟的程式是康和.全都賺軟體

TOP

quickfixer

中學生 Rank: 2

帖子: 151
主題: 1
精華: 0
積分: 197
點名: 14
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-4-18

5^#

發表於 2018-8-17 01:48 | 只看該作者

本帖最後由 quickfixer 於 2018-8-17 01:50 編輯

試看看

Sub stopApp()

Dim app As String
Dim objWMI As Object, objProcess As Object, objList As Object
Dim intError As Integer

app = "calc.exe" '這裡填入要關閉的執行檔名稱

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objList = objWMI.ExecQuery("select * from win32_process where name='" & app & "'")

For Each objProcess In objList
intError = objProcess.Terminate
If intError <> 0 Then Exit For
Next

Set objWMI = Nothing
Set objList = Nothing
Set objProcess = Nothing

End Sub

TOP

blue2263

中學生 Rank: 2

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

6^#

發表於 2018-8-18 07:21 | 只看該作者

回復 5# quickfixer

感謝Q大協助,己經解決我的問題了,謝謝!!

TOP