Graphworx VBA скрипт для загрузки данных в excel

Sub Example_ExcelWrite()
' Define variables
Dim v1 As Variant, v2 As Variant, v3 As Variant, v4 As Variant
Dim n1 As String, n2 As String, n3 As String, n4 As String
Dim b As Boolean
' Set point names
n1 = "ICONICS.ModbusOPCServer\Simulate.Ramp"
n2 = "ICONICS.ModbusOPCServer\Simulate.Random"
n3 = "ICONICS.ModbusOPCServer\Simulate.Sine"
n4 = "ICONICS.ModbusOPCServer\Simulate.Set"
' read values
b = ReadOPCValue(n1, v1)
b = ReadOPCValue(n2, v2)
b = ReadOPCValue(n3, v3)
b = ReadOPCValue(n4, v4)
' try to find excel instance
If oExcel Is Nothing Then
Else
' find a workbook
If oExcel.Workbooks.Count > 0 Then
oExcel.Cells(1, 1) = n1
oExcel.Cells(1, 2) = v1
oExcel.Cells(2, 1) = n2
oExcel.Cells(2, 2) = v2
oExcel.Cells(3, 1) = n3
oExcel.Cells(3, 2) = v3
oExcel.Cells(4, 1) = n4
oExcel.Cells(4, 2) = v4
End If
End If
oExcel.Visible = True
End Sub

Sub Example_ExcelConnect()
' try to find excel instance
On Error Resume Next
Set oExcel = GetObject(, "Excel.Application")
' check if found
If oExcel Is Nothing Then
' create a new excel
Set oExcel = CreateObject("Excel.Application")
End If
oExcel.Visible = True
End Sub