FAWEB.NET / IO Server - EXCEL Sample

	SITEMAP PRIVACY JAPANESE

JAPAN	HOME \| Product \| Support \| Knowledge \| Download \| Sales \| Company \| Contact

You are Here : HOME > Product > IOServer > EXCEL Sample

BACK

EXCEL Sample

It introduces the easy sample program that Microsoft EXCEL accesses the I/O Server.
The sample project introduces here can be downloaded here.

NOTES
Our company does neither any operation guarantee nor the support for the sample code and each explanation that has been opened to the public to this site. The function is recommended to be verified enough when using it.

	How to taking data directly into cell
The device value can be in real time monitored by setting the reference type to the cell of Excel. The above-mentioned example makes the topic named PLC1, and always reads the value of D0 by way of Ethernet.

How to taking data from 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:
	MsgBox "Startup AJ71QE71.EXE", vbOKOnly, "DDE Server Access"
	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 FileWrite_Click()
	Dim retval As Variant
	If chn = -1 Then
		DDEInitiate_Click
	End If
	dev$ = "D0.A50"
	retval = DDERequest(chn, dev$)
	Open "c:\work\Test.csv" For Output As #1
	Print #1, retval(1)
	Close #1
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

BACK	Copyright © 1998-2006 TAKEBISHI Corporation All rights reserved.

TAKEBISHI Corporation
29 Mamedacho Nishikyogoku Ukyoku Kyoto 615-8501, JAPAN
TEL: +81-75-325-2171 / FAX: +81-75-325-2273 fa-support@takebishi.co.jp