
起動済みの外部アプリケーションのウィンドウをアクティブにしたくて試行・調べるを繰り返しています。
以下のコードを見つけたのですが、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で質問しましょう!
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ps5は壊れやすい?ソフトたくさ...
-
CISCOルータでのinterfaceモー...
-
psポータブルについて質問!ゴ...
-
steam版FFXを購入したのですが...
-
今後、新シリーズ等でちいかわ...
-
PS2、三国志7(皇帝、王、...
-
おいでよどうぶつの森 ぺり...
-
みんなのゴルフ4で最後のキャ...
-
スケボーゲームSSXについて...
-
FFキャラでイケメンな男キャラ...
-
香港・アメリカにサンリオショ...
-
テイルズオブグレイセスfについて
-
モンストの今年の新春イラスト...
-
テイルズオブヴェスペリア(PS3...
-
一撃失神おすすめキャラ教えて...
-
陰キャラ同士の夫婦から産まれ...
-
原神についての質問です。 編成...
-
スクエニのアンチの多さにびっ...
-
steam返金について。 4時間プレ...
-
サンリオ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
psポータブルについて質問!ゴ...
-
ps5は壊れやすい?ソフトたくさ...
-
VB.NETのコードをエクセルVBAに
-
牧場物語の裏技・・・
-
ps3ってスーパーコンピュータ並...
-
外付けって内蔵と同じように、、。
-
神を継ぐ少女のED曲
-
ps4のネット診断結果について ...
-
pc版のcod bo4をやりたいのです...
-
1Gbps=1000Mbps(1024Mbps)?
-
地方自治についての質問です。
-
イフリートとは・・・
-
DVDビデオ作成時の容量の計算
-
ゼノギアス・サーガの画像
-
PSファイルをDOSプロンプトから...
-
psリモートプレイ
-
無人島物語みたいな
-
普通のプレーステーションのパ...
-
電撃プレイステーション
-
steam版FFXを購入したのですが...
おすすめ情報
そうですよね。申し訳ありません、説明不足でした。
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