VISA-COMを用いた機器計測時における実行時エラーの対処

Question

前提・実現したいこと

初めて機器計測を行う者です。
VISA-COMを用いて、VBAでADCMT社の直流電源装置を動かそうとしています。
測定器との通信を確認する段階で、エラーが発生してしまいます。

発生している問題・エラーメッセージ

RM.OPENの部分でエラーが出て、測定器との通信が取れません。

エラーメッセージ
HRESULT=80040011

該当のソースコード

Sub ボタン1_Click()

Dim RM As New VisaComLib.ResourceManager
Dim DMM As New VisaComLib.FormattedIO488
Set DMM.IO = RM.Open("GPIB0::1::INSTR")
DMM.WriteString "*IDN?"
Cells(1, 1) = DMM.ReadString()
DMM.IO.Close
Set DMM = Nothing
Set RM = Nothing

End Sub

試したこと

Keysight Connection Expartでは*IDN?が返ってくるため、計測機器との通信は取れています。
また、別のPCでは問題なくVBAでプログラムを走らせることができます。
そのため、私のPCの環境が原因だと思っているのですが未だに不明です。

補足情報（FW/ツールのバージョンなど）

Excelは32bit環境です。
VISA-COMはKeysight社からダウンロードしたのものを参照しています。
Program Files (x86)\IVI Foundation\VISA\VisaCom\GlobMgr.dll

また、GPIBではなくUSBで直流電源装置を動かすことはできます。
ドライバ(ausb.bas)を使用して、VBA上のプログラムを走らせることは可能です。

Comments

[KoichiSugiyama]

マニュアルはお持ちでしょうか。https://www.kikusui.co.jp/download/doc/KiVisaGuide_2013(Feb)_J.pdf
を見ると、エラーコード80040011は「Specified expression does not match any devices（指定された式はどのデバイスとも一致しません）」と掲載されています。このあたりヒントになりませんか。

[trei]

そちらのマニュアルをまねてプログラムを組みました。過去の事例の多くは、装置とつないでいないときや、VISAアドレスが間違っているときにエラーコード80040011が出ると伺っています。しかし、VISAアドレスはKeysightのConnection Expartで取得したものであり、合致しています。他の計測機器とつないでみても同じ個所で同じエラーが出るため、原因が不明です。

Answer 1

VisaCOM制御がVBAではエラーとなりC#でしか動かせなかった経験があります。
その際にはExcelマクロのセキュリティレベルを下げることで解決しました。
https://support.microsoft.com/ja-jp/topic/960d5265-6592-9400-31bc-b2ddfb94b445
ご参考まで

Answer 2

VBAではなくC#で動かしたところ、応答が取れました。
原因は解明していませんが、装置を動かせる状況になりました。

Answer 3

私の思いつくのは
１．GP-IBポートに送信されていない。
２．EXCELのスピードに追い付いていない

１．はドライバーとか、、？
２．については、KoichiSugiyama　2020/02/03 11:53様提示のマニュアル読んでみたのですが、
P75に記載されている

WriteStringメソッドでは、data(送出したいコマンド文字列)の他に、flushAndENDパラメータが追加されています。
これをtrueに指定すると、このメソッドはコマンド文字列を計測器に直ちに送信します。
その際、ターミネーション・キャラクタ (TerminationCharacterプロパティで指定中のコード、通常は0x0A)及び
ターミネーション・マーク(GPIBのEOI信号もしくはUSBTMC/VXI-11/HiSLIPでの相当コード)が自動的に付加されます。
falseにした場合は、この時点ではコマンド文字列は送出されず、バッファリングされたまま保留されます。

ですと、バッファリングされているような？
ステップ実行してみては？

Set DMM.IO = RM.Open("GPIB0::1::INSTR")
stop
DMM.WriteString "*IDN?"
stop
Cells(1, 1) = DMM.ReadString()

Comments

[trei]

回答ありがとうございます。
ステップ実行は試しましたが、駄目でした。
言語を変えてC#やVB.netで動かしてみたところ、なぜか応答が返ってくるようになりました。
原因は解決していませんが、現状ではそちらの言語で動かしていくつもりです。
分かりやすいアドバイスありがとうございました。