Programming
297
Close
'*** End of procedure
Analyzer.IO.Close
End Sub
Transferring Files
•
Overview
• Sample Program in Excel VBA
Other topics about Saving/Recalling a Measurement Result
Overview
The program listed in the below section is written in VISA-COM with Excel
VBA. It can be executed from the external PC controller. The program
demonstrates how to transfer files.
Transferring Files Sample Program in Excel VBA
Private Sub fromAna_toPC_Click()
'*** This sequence is a sample code in which the file is transferred
'*** from the Ana to the external controller.
Dim hFile As Long
Dim isOpen As Boolean
Dim ioMgr As VisaComLib.ResourceManager
Set ioMgr = New VisaComLib.ResourceManager
Dim Ana As VisaComLib.FormattedIO488
Set Ana = New VisaComLib.FormattedIO488
Set Ana.IO = ioMgr.Open("GPIB0::17::INSTR")
Ana.IO.Timeout = 10000
Dim byteData() As Byte
Dim Ana_File As String
Dim PC_File As String
Ana_File = """" & Trim(TextBox2.Text) & """"
PC_File = Trim(TextBox1.Text)
Ana.WriteString ":MMEM:TRAN? " & Ana_File