![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
起動済みの外部アプリケーションのウィンドウをアクティブにしたくて試行・調べるを繰り返しています。
以下のコードを見つけたのですが、VBAで動作するように書き換えることができません。
'メモ帳のプロセスを探す
Dim ps As System.Diagnostics.Process() = _
System.Diagnostics.Process.GetProcessesByName("notepad")
If 0 < ps.Length Then
'見つかった時は、アクティブにする
Microsoft.VisualBasic.Interaction.AppActivate(ps(0).Id)
End If
(https://dobon.net/vb/dotnet/process/appactivate. … より)
EXCEL2019を使用しています。
アクティブにしたいプログラムは
C:\Program Files\Fujitsu\WSMGR\T528.emd で
タイトルバーには
T528.emd - DSPEMU
と表示されています。
見つけたコードをVBAで動くようにして試行錯誤したいのですが
一撃でわかる方がいればぜひすがりたいと愚考します・・・。
何卒ご教授お願いいたします(__)
A 回答 (1件)
- 最新から表示
- 回答順に表示
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) モードレスでユーザーフォームが開け(表示)ません。 4 2022/09/09 11:05
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Excel(エクセル) 【VBA】 Alt+PrintScreenにてアクティブウィンドウのスクショを貼付する方法 4 2022/12/08 20:53
- Visual Basic(VBA) Vba 互換モードでのAppActiveについて教えてください 2 2022/06/27 18:47
- Visual Basic(VBA) excel VBA if文について 3 2022/03/27 17:42
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Microsoft ASP C#からvbsを実行したい 5 2022/11/24 17:31
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで「ページレイアウト...
-
エクセルの数式バーのフォント...
-
2列に入っているデータを1列...
-
【Excel】別シートから条件に合...
-
EXCELの散布図で日付が1900年に...
-
エクセルをエクセレントに究める
-
F9キーについて。
-
Excelの数式について教えてくだ...
-
数字入力後他の文字等が表示さ...
-
Excelセルを跨いで合計を出す方法
-
計算能力
-
【ExcelVBA】ダブルクォーテー...
-
エクセルのツールバーから数値...
-
エクセル関数を使って
-
エクセル シート表示
-
エクセルでファイルの最終更新...
-
Excel 2019 [オプション]の[リボンのユ...
-
特定の文字列を含む、住所を抽...
-
祝日と土曜、日曜の合計をカウ...
-
Excel分数の表示について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB.NETのコードをエクセルVBAに
-
pc版のcod bo4をやりたいのです...
-
ps4のネット診断結果について ...
-
モンハンやってたら睡眠薬飲ん...
-
首都高中央環状新宿線のカメラ位置
-
ps3ってスーパーコンピュータ並...
-
Googleマップで面白いもの見つ...
-
電撃プレイステーション
-
PSファイルをDOSプロンプトから...
-
DVDビデオ作成時の容量の計算
-
ドラクエ7 グランドスラムについて
-
サーバー回線について
-
イフリートとは・・・
-
地方自治についての質問です。
-
FF11をPS2でやるには・・・
-
HPとps
-
ゼノギアス・サーガの画像
-
Cでバイオメトリクス
-
1Gbps=1000Mbps(1024Mbps)?
-
東京ゲームショウ 2005
おすすめ情報
そうですよね。申し訳ありません、説明不足でした。
AppActivate titleでうまくいかなかったので
別の方法を調べていました。
AppActivateの前にgetobjectやcreateobjectなどを入れていましたが、
それを消したらうまくいきました。
お騒がせしました!
なぜなのかはわかりませんが・・・
以下はうまくいったコードです。
Dim MyFile As String
MyFile = Dir("C:\Program Files\Fujitsu\WSMGR\????.emd")
MyFile = Left(MyFile, 4) & " - DSPEMU"
AppActivate MyFile, True