EXCEL sample for connection to DAServer

Explain the way to connect to DAServer from Microsoft EXCEL.

Definition of Access Name
セル設定

The device value can be in real time monitored by setting the Reference to the cell of EXCEL.
This example makes the Topic named PLC1, and always reads the value of D0 by Ethernet.

The way to get datas by VBA

Public chn As Integer
Sub AutoOpen()
  With Worksheets("WorkSheet")
    .Buttons(1).Visible = False
    .Buttons(2).Visible = False
    .Buttons(3).Visible = False
    .Buttons(5).Visible = False
    .Buttons(4).Visible = True
  End With
  chn = -1
End Sub

Sub DDEInitiate_Click()
  On Error GoTo DdeError
  If chn = -1 Then
    chn = DDEInitiate("AJ71QE71", "PLC1")
  End If
  If chn = -1 Then
    Exit Sub
  End If
  With Worksheets("WorkSheet")
    .Buttons(1).Visible = True
    .Buttons(2).Visible = True
    .Buttons(3).Visible = True
    .Buttons(5).Visible = True
    .Buttons(4).Visible = False
  End With
  Exit Sub
DdeError:
  Resume Next
End Sub

Sub DDETerminate_Click()
  DDETerminate (chn)
  chn = -1
  With Worksheets("WorkSheet")
    .Buttons(1).Visible = False
    .Buttons(2).Visible = False
    .Buttons(3).Visible = False
    .Buttons(5).Visible = False
    .Buttons(4).Visible = True
  End With
End Sub

Sub Request_Click()
  Dim retval As Variant
  If chn = -1 Then
    DDEInitiate_Click
  End If
  dev$ = "D0.H50"
  retval = DDERequest(chn, dev$)
  devVal$ = retval(1)
  For i% = 0 To 4
    For j% = 0 To 9
      Cells(i%+2, j%+2).Value = Val("&h" & Mid$(devVal$, (i%*10+j%)*4+1, 4))
    Next j%
  Next i%
End Sub

Sub Poke_Click()
  Dim retval As Variant
  If chn = -1 Then
    DDEInitiate_Click
  End If
  dev$ = "D0.A50"
  Application.DDEPoke chn, dev$, Range(Cells(2, 2), Cells(6, 11))
End Sub

EXCEL sample for connection to DAServer

OPC Server

DAServer

Products

Sales

Online Shop

Getting Help

About TAKEBISHI