EXCELで、USB-RS232C変換アダプタをPCに繋げたとき、使用しているCOMポート番号を取得するマクロを作ろうとしています。
下記のコードのGetUseComNameプロシージャを実行してポート番号を取得できるようになりました。
わざわざGetUseComNameプロシージャを実行しなくても、USB-RS232C変換アダプタをPCに接続されたのをプラグアンドプレイで検知して、
COMポート番号を取得する仕様に改良したいのですが、どうすれば良いでしょうか。
私のパソコンの環境は(windows XP 2002 SP3 office excel2003 sp3)です。
'--------------------
Option Explicit
'--------------------
Sub GetUseComName()
Dim a, b, port_no As String
Range("a1").Select
Selection.Clear
'通信ポート名を取得
a = GetUseComNo()
'通信ポート名の文字列からCOMポート番号(書式「1,2,・・・」の形で)を取り出す。
Do While InStr(a, "(COM") <> 0
a = Mid(a, InStr(a, "(COM") + 4)
port_no = port_no + Left(a, 1)
If InStr(a, "(COM") <> 0 Then
port_no = port_no & ","
End If
Loop
'USB-232C変換アダプタが接続されていれば、セルa1に通信ポート番号を表示する。
If port_no = "" Then
MsgBox ("使用できるCOM Portがありません。")
Exit Sub
ElseIf InStr(port_no, ",") <> 0 Then
Selection = port_no
End If
End Sub
'---------------------
Function GetUseComNo() As String
Dim Serial As Object
Dim SerialSet As Object
Dim objWMIService As Object
Dim strComputer As String
Dim intCnt As Integer '要素数
Dim strComName As String '取得したデバイス名
strComputer = "."
'WMIを呼び出す
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'PnPで登録されているもの(デバイスマネージャで見えるもの)から
'シリアルポートのクラスでかつ名前に「(COMxx)」と付いているものを抽出
Set SerialSet = objWMIService.ExecQuery("Select * from Win32_PNPEntity Where " & _
"(ClassGuid = '{4D36E978-E325-11CE-BFC1-08002BE10318}') and " & _
"(Name like '%(COM%)')")
'全ポートの数(取得できた項目数)
intCnt = SerialSet.Count
'情報の取得
strComName = ""
For Each Serial In SerialSet
'デバイス名を取得 「"通信ポート (COM1)"」
If strComName <> "" Then
strComName = strComName & vbCrLf
End If
strComName = strComName & Serial.Name
Next
'戻り値セット
GetUseComNo = strComName
End Function
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
使用出来るCOMポートが発生するまで、GetUseComNoをグルグル回すしか無いと思いますが・・。
それか、COMポートを監視するWindowsの常駐アプリを作って、それをトリガーにそのVBAを起動させるとかですかね・・。
どちらも似たようなものですが。
※ちなみに「プラグアンドプレイ」って、デバイスが接続されたらそれ用のデバイスを自動で組み込んで使えるようにしますよ。って意味なのはご存知でしょうか。(アプリケーションをキックする為の仕組みではない)
参考URL:http://ja.wikipedia.org/wiki/%E3%83%97%E3%83%A9% …
ありがとうございます。
「デバイスが接続されたらアプリケーションをキックする」という仕組みはないということなのでしょうか。。。
まだ諦めがつかないので、もう少し調べてみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセル VBA でのCOMポート認識
その他(プログラミング・Web制作)
-
COM接続デバイスのポート番号特定方法について
Visual Basic(VBA)
-
シリアル通信時のデータ受信方法
Visual Basic(VBA)
-
-
4
VBAを使用して、USBでつないだ機器の制御が出来るでしょうか?
Access(アクセス)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
VBA2005 16進を2桁で表示したい。
Visual Basic(VBA)
-
7
【VB6】デバイスマネージャを表示させたい
Visual Basic(VBA)
-
8
16進の10進変換について
Visual Basic(VBA)
-
9
エクセルVBAでRS232Cへ
Visual Basic(VBA)
-
10
プログラムでUSB機器が接続された事を認識するにはどうしたら良いのでしょうか?
Visual Basic(VBA)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
ExcelのVBAでフォームが表示されない
Excel(エクセル)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
15
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
16
デバイスマネージャーの一覧取得
Visual Basic(VBA)
-
17
COMポート 名前を取得する方法
C言語・C++・C#
-
18
TeraTermマクロのinputboxで入力した値をメッセージ確認表示するには?
サーバー
-
19
ttlで戻り値を取得する方法
その他(プログラミング・Web制作)
-
20
UserForm
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10におけるUSB-RS232C機...
-
EXCEL VBAで、PnPでCOMポート番...
-
8000番や8080番のポー...
-
スイッチのポート番号について
-
コマンドプロンプトで、ポート...
-
PCがのぞかれてないか調べる...
-
USBインターフェイスカードにあ...
-
自分のパソコンのデバイスマネ...
-
ポートの80と443
-
マンションHUB交換について
-
最低限必要な開いておくべきポ...
-
ノートパソコンのサイド(USBポ...
-
USBポートの破損
-
バンジージャンプのデータを貰...
-
外付けHDDからブート
-
マザーボードにSATAのHDDを接続...
-
来月カンボジアのシェムリアッ...
-
Port9100印刷の説明
-
回線切断について
-
特定のSATAポートに繋ぐとOSが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
8000番や8080番のポー...
-
Windows10におけるUSB-RS232C機...
-
ノートパソコンのサイド(USBポ...
-
スイッチのポート番号について
-
Dell Inspiron 14 5415 をコン...
-
コマンドプロンプトで、ポート...
-
ワイヤレスマウスUSBレシーバー...
-
ポートの80と443
-
ポート80、443を開けろと言われ...
-
EXCEL VBAで、PnPでCOMポート番...
-
USBメモリ増設アダプターについて
-
Supermodelのエミュレーターに...
-
バンジージャンプのデータを貰...
-
PCのUSBポートの不具合と対処法...
-
マンションHUB交換について
-
マザーボードにSATAのHDDを接続...
-
来月カンボジアのシェムリアッ...
-
プリンタのUSB接続について(LP...
-
8080ってなんですか?
-
縦続 と 直列
おすすめ情報