DAサーバーへアクセスするEXCELサンプル

Microsoft EXCELからDAサーバーにアクセスする設定方法を説明します。

アクセス名の定義
セル設定

エクセルのセルに参照式を設定することによりデバイス値をリアルタイムにモニタすることができます。
上記の例は、PLC1というトピックを作成し、Ethernet経由でD0の値を常時読み出しています。

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

DAサーバーへアクセスするEXCELサンプル

OPCサーバー

DAサーバー

製品情報

販売情報

オンラインショップ

困ったときは

会社情報