[问答]

VISA COM和Excel VBA错误处理

问答对人有帮助，内容完整，我也想知道答案 0 我正在使用Excel，Command expert和VBA编写测试脚本。在某些时候我设置了仪器，我有一个VBA代码，用于检查仪器是否已连接。从这个论坛我得到了VBA代码（如下）。当仪器连接但挂起并返回错误时它工作正常：“自动化错误。无法转换对象”调试显示，如果给定IP地址没有仪器，代码将在设置instrument.IO = ioMgr行崩溃。打开..........我有一个电子表格，其中包含一个连接到此脚本的按钮。它将仪器ID字符串放在给定的单元格中，但在没有仪器时崩溃。通常我连接了DSO9000示波器。如果另一端没有仪器，如何使它变得万无一失？ Sub instrIDN（）Dim ioMgr As VisaComLib.ResourceManager Dim instrument As VisaComLib.FormattedIO488 Dim idn As String Dim instrADDR As String Set ioMgr = New VisaComLib.ResourceManager Set instrument = New VisaComLib.FormattedIO488 instrADDR =“TCPIP0 :: 192.168.1.6 :: inst0 :: INSTR“'instrument.IO.timeout = 1000设置instrument.IO = ioMgr.Open（instrADDR，AccessMode.NO_LOCK，1000，”“）instrument.WriteString”* IDN？“ idn = instrument.ReadString（）ActiveSheet.Cells（50,2）= idn instrument.IO.Close End Sub 以上来自于谷歌翻译以下为原文 I am writing a test script using Excel , Command expert and VBA. At some point I setup instruments and I have a VBA code that checks whether the instrument is connected. From this forum I got the VBA code (below). It works fine when the instrument is connected but hangs and returns error: " Automation error. Not able to convert object" Debugging shows that if there is no instrument at the given IP address the code crashes at the line Set instrument.IO = ioMgr.Open.......... I have a spreadsheet with a button connected to this script. It places the instrument ID string in a given cell, but crashes when there is no instrument. Normally I have DSO9000 scope connected. How to make it foolproof when there is no instrument at the other end ? Sub instrIDN() Dim ioMgr As VisaComLib.ResourceManager Dim instrument As VisaComLib.FormattedIO488 Dim idn As String Dim instrADDR As String Set ioMgr = New VisaComLib.ResourceManager Set instrument = New VisaComLib.FormattedIO488 instrADDR = "TCPIP0::192.168.1.6::inst0::INSTR" ' instrument.IO.Timeout = 1000 Set instrument.IO = ioMgr.Open(instrADDR, AccessMode.NO_LOCK, 1000, "") instrument.WriteString "*IDN?" idn = instrument.ReadString() ActiveSheet.Cells(50, 2) = idn instrument.IO.Close End Sub 0
2019-2-25 16:09:18　　评论淘帖0 邀请回答您可以邀请以下用户，快速回答问题 × kingnet_52040 该类别下有 195 个回答。邀请回答 60user7 该类别下有 81 个回答。邀请回答蓝色冰汐该类别下有 45 个回答。邀请回答醉狼工作室该类别下有 41 个回答。邀请回答 ianwhoani 该类别下有 30 个回答。邀请回答 dkhwakd 该类别下有 25 个回答。邀请回答 aaabbb567 该类别下有 23 个回答。邀请回答 e08506806 该类别下有 20 个回答。邀请回答 szzjfyp 该类别下有 18 个回答。邀请回答 ningee 该类别下有 16 个回答。邀请回答 sonia87 该类别下有 16 个回答。邀请回答 zouqinxiang 该类别下有 15 个回答。邀请回答 xj5548 该类别下有 15 个回答。邀请回答 daichuangs 该类别下有 14 个回答。邀请回答 derek88 该类别下有 14 个回答。邀请回答 JST2006 该类别下有 12 个回答。邀请回答 hzmbs2016 该类别下有 12 个回答。邀请回答 fichesw 该类别下有 11 个回答。邀请回答 www037 该类别下有 11 个回答。邀请回答 ToGoodSoft 该类别下有 11 个回答。邀请回答举报徐静怡相关推荐 • 3458a VBA编译错误加载DLL 2895 • 怎么通过Excel编程N5765A 924 • labviEW错误处理的问题 9780 • 是否有可能使用excel vba自动化测试 2486 • AF错误处理 1625 • 34410A u**是否有命令在进行测量后将仪表从远程模式中取出 2556* • 什么是VBA？为什么这么多软件支持VBA？ 2805 • 急求，无错误的程序弹出简易错误处理框图，该怎么解决？ 2487 • 有些消息仅在使用Visa关闭程序后发送 2895 • LabVIEW错误处理问题 5652 1个回答

答案对人有帮助，有参考价值 0 您需要添加一些错误处理。当Open无法找到你的乐器时，Open会抛出一个异常，因此你需要捕获它并优雅地处理它。下面是对您的代码的修改。此外，我将指出一个很棒的VBA知识网站：[http://www.cpearson.com/excel/errorhandling.htm]如果您搜索Agilent VISA COM帮助，您可以找到所有VISA COM错误代码短语'返回代码'Alan VBA代码：Sub instrIDN（）* On Error GoTo ErrHandler：* Dim ioMgr As VisaComLib.ResourceManager Dim instrument As VisaComLib.FormattedIO488 Dim idn As String Dim instrADDR As String Set ioMgr = New VisaComLib.ResourceManager Set instrument =新版VisaComLib.FormattedIO488 instrADDR =“TCPIP0 :: 192.168.1.6 :: inst0 :: INSTR”'instrument.IO.Timeout = 1000设置instrument.IO = ioMgr.Open（instrADDR，AccessMode.NO_LOCK，1000，“”） instrument.WriteString“* IDN？” idn = instrument.ReadString（）ActiveSheet.Cells（50,2）= idn instrument.IO.Close * Exit Sub * * ErrHandler：* '在VISA COM帮助中搜索'返回代码'了解更多详情如果错误。 Number = -2147221487然后 * MsgBox“找不到资源！”* 结束如果 * End Sub 编辑：hognala于2013年8月2日上午9:53 以上来自于谷歌翻译以下为原文 You'll want to add some error handling. The Open will throw an exception when it can't find your instrument, so you'll want to capture that and handle it gracefully. Below is a modification of your code that does that. Also, I'll point you to a great site for VBA knowledge: [http://www.cpearson.com/excel/errorhandling.htm ] You can find all of the VISA COM Error codes if you search the Agilent VISA COM help for the phrase 'Return Codes' Alan VBA Code: Sub instrIDN() On Error GoTo ErrHandler:* Dim ioMgr As VisaComLib.ResourceManager Dim instrument As VisaComLib.FormattedIO488 Dim idn As String Dim instrADDR As String Set ioMgr = New VisaComLib.ResourceManager Set instrument = New VisaComLib.FormattedIO488 instrADDR = "TCPIP0::192.168.1.6::inst0::INSTR" ' instrument.IO.Timeout = 1000 Set instrument.IO = ioMgr.Open(instrADDR, AccessMode.NO_LOCK, 1000, "") instrument.WriteString "IDN?" idn = instrument.ReadString() ActiveSheet.Cells(50, 2) = idn instrument.IO.Close Exit Sub* ErrHandler: 'Search the VISA COM help for 'Return Codes' for more details If Err.Number = -2147221487 Then MsgBox "Resource Not Found!" End If End Sub Edited by: hognala on Aug 2, 2013 9:53 AM

2019-2-25 16:17:46 评论举报杜文渊