Keysight E4990A - Page 292

E4990A Help
282
DataType = Cells(5, 2)
Select Case DataType
Case "Ascii"
Analyzer.WriteString ":FORM:DATA ASC", True
'*** Get the frequency data.
Analyzer.WriteString ":SENS1:FREQ:DATA?", True
FreqData = Analyzer.ReadList(ASCIIType_R8, ",")
'*** Get the measurement data.
Analyzer.WriteString ":CALC1:DATA:FDAT?", True
ReadData = Analyzer.ReadList(ASCIIType_R8, ",")
Case "Binary"
Analyzer.WriteString ":FORM:DATA REAL", True
'*** Get the frequency data.
Analyzer.WriteString ":SENS1:FREQ:DATA?", True
FreqData = Analyzer.ReadIEEEBlock(BinaryType_R8, False, True)
'*** Get the measurement data.
Analyzer.WriteString ":CALC1:DATA:FDAT?", True
ReadData = Analyzer.ReadIEEEBlock(BinaryType_R8, False, True)
End Select
'*** Set data for new sheet
ActiveSheet.Cells(10, 1) = "Frequency"
ActiveSheet.Cells(10, 2) = "Primary"
ActiveSheet.Cells(10, 3) = "Secondary"
ActiveSheet.Range("A11:C1000").Clear
For i = 1 To Poin
ActiveSheet.Cells(i + 10, 1) = FreqData(i - 1)
ActiveSheet.Cells(i + 10, 2).Value = ReadData(i * 2 - 2)
ActiveSheet.Cells(i + 10, 3).Value = ReadData(i * 2 - 1)
Next i
'*** End procedure