エクセルVBAで、ユーザーフォームのリストボックスに
現在起動中のアプリやソフト(最小化されてみえないものや、エクセルのウィンドウに隠れてみないもの)の
一覧を表示させ、リストボックス上で選択した際に
その選択したアプリ、ソフトを前面に表示させたいです。
起動中のタスクを調べるコードなどはネット上に上がっていましたが
それだとバックグラウンドで動いているものなども
読み取ってしまい求めている動作になりません。
立ち上がっているが、最小化、ウィンドウ裏に隠れているものを
前面に、といのが行いたいことです。
どなたかご存知の方がいらっしゃれば宜しくお願いします。
No.3ベストアンサー
- 回答日時:
If InStr(strClassName, "Window") = 0 Then
これはちょっと厳しいようですね アプリやソフトの対象が広いですし
strClassName使っちゃAPIなのでダメ見たい・・
FindWindow IsWindowVisible GetNextWindow GetClassName
Const GW_HWNDLAST = 1
Const GW_HWNDNEXT = 2
Dim hWnd As Long
Sub main()
Dim strCaption As String * 500
Dim strClassName As String * 128
hWnd = FindWindow(vbNullString, vbNullString)
Dim arrWnd(), strCap As String
Dim n As Long
Do
If IsWindowVisible(hWnd) Then
GetClassName hWnd, strClassName, Len(strClassName)
If Not Left(strClassName, InStr(strClassName, vbNullChar) - 1) Like "*Window" Then
GetWindowText hWnd, strCaption, Len(strCaption)
strCap = Left(strCaption, InStr(strCaption, vbNullChar) - 1)
If strCap <> "" Then
ReDim Preserve arrWnd(1, n)
arrWnd(0, n) = strCap
arrWnd(1, n) = hWnd
n = n + 1
End If
End If
End If
hWnd = GetNextWindow(hWnd, GW_HWNDNEXT)
Loop Until hWnd = GetNextWindow(hWnd, GW_HWNDLAST)
Range("A1").Resize(UBound(arrWnd, 2) + 1, UBound(arrWnd, 1) + 1).Value _
= Application.Transpose(arrWnd)
End Sub
No.2
- 回答日時:
#1 If IsWindowVisible(hwnd) Then だとダメなのですね
想像するに・・ GetClassName を使って ClassName を取得し
Windowクラスを排除するのはどうでしょう
・
・
Dim strClassName As String * 128
hWnd = FindWindow(vbNullString, vbNullString)
・
・
Do
If IsWindowVisible(hWnd) Then
GetClassName hWnd, strClassName, Len(strClassName)
If InStr(strClassName, "Window") = 0 Then
GetWindowText hWnd, strCaption, Len(strCaption)
cap = Left(strCaption, InStr(strCaption, vbNullChar) - 1)
こんなのでどうでしょう・・・
後のSetForegroundWindowでの処理を考えると
WindowText(strCaption)に対応するhWndが必要と思われますので
Collectionでなく2次元配列の方が都合が良さそうですね
No.1
- 回答日時:
こんにちは
>それだとバックグラウンドで動いているものなども
やり方は色々ありそうですが
>一覧を表示
なのでキャプションの有無でWindowがあるか確認するのはどうでしょう
WindowsAPI Declare PtrSafe Function / Declare Function で
EnumWindows GetWindow GetWindowText
最前面アクティブ (取得時hwndはリストボックスのカラムに入れておく)
SetForegroundWindow
こんな構成で出来るような気がします・・
ヒントを頂きありがとうございます。
頂いたヒントをもとにネットを徘徊していたら
下記のコードが見つかりました。
ですがこのコードですと、バックグランドの物を拾ってきてしまいます。
『ここをこうすれば』みたなものがありましたら
教えて頂けないでしょうか。
文字数の関係で64Bit/32Bitの処理分けコードを省いております
Option Explicit
Const GW_HWNDLAST = 1
Const GW_HWNDNEXT = 2
'-------------------------------------------------------------------------------------
Sub main()
Dim strCaption As String * 500
hwnd = FindWindow(vbNullString, vbNullString)
Dim caps As Collection
Set caps = New Collection
Dim cap 'As String
Do
If IsWindowVisible(hwnd) Then
GetWindowText hwnd, strCaption, Len(strCaption)
cap = Left(strCaption, InStr(strCaption, vbNullChar) - 1)
If cap <> "" Then
caps.Add cap
End If
End If
hwnd = GetNextWindow(hwnd, GW_HWNDNEXT)
Loop Until hwnd = GetNextWindow(hwnd, GW_HWNDLAST)
For Each cap In caps
Debug.Print cap
Next cap
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Windows 10 ソフトの実行を自動化したいです。 1 2022/10/15 16:09
- Windows 10 Windows11タスクバーやエクスプローラー、スタートメニュー 動画全画面時にカーソルが見えない 1 2022/04/08 00:03
- Windows 10 Windows10でセーフモードが出来ません。 2 2022/04/22 23:37
- Windows Me・NT・2000 widows xpのエラーで利用ができなくなりました 3 2022/12/21 13:43
- JavaScript [Java] Edgeでのアドレスバー非表示について 3 2022/04/20 17:51
- フリーソフト 使用期間切れのDVDfab12でDVDをコピーしようとした時のエラー表示について 1 2022/09/09 01:58
- Windows 10 拡大鏡の音声読み上げ機能が機能しません 2 2023/02/23 22:34
- デジタルカメラ 録画した4K動画を、フルピクセルで再生したい 5 2023/05/10 00:05
- Windows 10 windows11が突然起動しなくなりました 3 2022/06/30 17:49
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
vbaから他のアプリを終了
Visual Basic(VBA)
-
ExcelVBAにてアプリをタスクマネージャーから強制終了させたいのですが
Visual Basic(VBA)
-
-
4
ウィンドウのタイトルからプロセス取得
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
他のアプリケーションの終了処理
Visual Basic(VBA)
-
7
現在起動中のアプリケーションの名前を知りたい
Visual Basic(VBA)
-
8
Excel VBAで他アプリケーションの文字列取得
Excel(エクセル)
-
9
プロセスIDの取得方法について
Visual Basic(VBA)
-
10
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
11
アウトルックが起動しているかどうかを取得するには?
Visual Basic(VBA)
-
12
起動しているプロセスの確認
Visual Basic(VBA)
-
13
VB6.0 SHELLで起動したプログラムを終了さしたいのですが
Visual Basic(VBA)
-
14
EXCEL VBAから他アプリケーションを操作することは可能ですか?
Visual Basic(VBA)
-
15
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
16
VBAでOutlookを終了させたい ExcelVBAで既に起動されているOutlookを終了させる
Visual Basic(VBA)
-
17
VBAでこんなことできますか?
PowerPoint(パワーポイント)
-
18
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
19
ExcelVBAでスペースキー操作したい
Excel(エクセル)
-
20
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
FORMが開いているかどうかの確...
-
起動中のアプリ、ソフトの取得
-
VBでメールを起動させるには・・・
-
プログラムからOS標準ブラウザ...
-
タスクスケジュールで定時にポ...
-
メモリの「コミット済み」の意...
-
プロファイルエラーについて
-
メモリが"written"になることは...
-
\\Device\\Harddisk1\\DR1 でコ...
-
Windows10を起動しようとすると...
-
Windows98SE ・Meの動作「上限...
-
PCを起動すると画面が真っ黒で...
-
エラー PXE-E51
-
Power Mac G5でOS 10.5.6にした...
-
RECOVERYというフォルダについて
-
igfxTray.exeの常駐を止めたい。
-
vmstatで、メモリ使用率を計算する
-
メッセージキューのスレッド間...
-
セーフモードでデータをコピー...
-
HDD内のリカバリー領域有無を調...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
FORMが開いているかどうかの確...
-
DLLをREGSVR32しないで利用する...
-
起動中のアプリ、ソフトの取得
-
タスクスケジュールで定時にポ...
-
Accessのフォームをコマンドラ...
-
Javaで環境変数を動的に変更す...
-
タスクトレイ常駐するプログラ...
-
VBscriptでのエクセルの起動に...
-
VB6.0のツールバー標準メニュー...
-
プログラムからOS標準ブラウザ...
-
VC++からブラウザを起動し...
-
コマンドプロンプトでIEを起動...
-
VBでメールを起動させるには・・・
-
VB.NETでIEを起動してそのIE...
-
「mailto:」の書式
-
CPU稼働率を向上させる方法
-
CPU使用率が100%になるソフト
-
WebBrowserコントロールでの印刷
-
VBのフォームサイズについて
-
IPアドレスのみをMsgBoxで表示...
おすすめ情報