Visual Basic For Applications (Winword Und Excel) - Rohde & Schwarz ESPI3 Handbuch

R&S ESPI

Visual Basic for Applications (Winword und Excel)

Programmierhinweise:
Die Programmiersprache Visual Basic für Applikationen (VBA) wird von verschiedenen Herstellern als
Makrosprache eingesetzt. Die Programme Winword und Excel verwenden diese Sprache ab den
Versionen Winword 97 bzw. Excel 5.0.
Für Makros, die mit Visual Basic für Applikationen erstellt werden, gelten die gleichen Hinweise wie für
Visual Basic Applikationen.
Programmierbeispiel:
•
Mit dem Makro QueryMaxPeak wird ein Single Sweep mit anschließender Abfrage des maximalen
Peaks durchgeführt. Das Ergebnis wird in ein Winword- bzw. Excel-Dokument eingetragen.
Sub QueryMaxPeak()
Dim ibsta As Integer
Dim iberr As Integer
Dim ibcntl As Long
Dim ud As Integer
Dim Response As String
' Verbindung zum Messgerät herstellen
ud = RSDLLibfind("89.10.38.97", ibsta, iberr, ibcntl)
If (ud < 0) Then
Call MsgBox("Gerät mit der Adresse 89.10.38.97 konnte" & _
End
End If
' Maximalen Peak im Bereich 1-2MHZ bestimmen
Call RSDLLibwrt(ud, "*RST", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "INIT:CONT OFF", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "FREQ:START 1MHZ", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "FREQ:STOP 2MHZ", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "INIT:IMM;*WAI", ibsta, iberr, ibcntl)
Call RSDLLibwrt(ud, "CALC:MARK:MAX;Y?", ibsta, iberr, ibcntl)
Response = Space$(100)
Call RSDLLibrd(ud, Response, ibsta, iberr, ibcntl)
Response = RTrim(Response) ' Leerzeichen abschneiden
' Wert in aktuelles Dokument einfuegen (Winword)
Selection.InsertBefore (Response)
Selection.Collapse (wdCollapseEnd)
' Verbindung zum Messgerät beenden
Call RSDLLibonl(ud, 0, ibsta, iberr, ibcntl)
End Sub
Der Eintrag des Peak Wertes in das Winword-Dokument kann für Excel wie folgt ersetzt werden:
' Wert in aktuelles Dokument einfuegen (Excel)
ActiveCell.FormulaR1C1 = Response
1164.6459.11
' Statusvariable
' Fehlervariable
' uebertragene Zeichen
' Unit Descriptor (Handle) für das Messgerät
' Antwortstring
"nicht gefunden werden", vbExclamation)
4.345
RSIB-Schnittstelle
D-1