<< Click to Display Table of Contents >> Manual > Server Creation Guide > Interface > DDE Interface > DDE connection from ExcelVBA > Step 3: Reading and writing values

Step 3: Reading and writing values

Import

 

1.Write the following definition in "Module1".

Sub Test1()
    Dim chan As Variant
    Dim result As Variant
    chan = DDEInitiate("FASERVER", "U01.F01")
    result = DDERequest(chan, "T01")
    Range("B1").Value = result(1)
    DDETerminate (chan)
End Sub

 

With this statement, a procedure called "Test1" has been defined. This procedure can now be called from a button placed on an Excel sheet.

 

Details of each command are as follows:

 

 

2.Place a Read button so that you can load data at any time.
 
To place the button, go to Insert in the Developer tab.
 

 
Here, place the buttons as follows:
 

 
 

3.Right-click the button and select Assign Macro.
 

 
 

4.Select the "Test1" procedure written in step 1 and register the macro.
 
With this setting, the "Test1" process will be called when the button is pressed.
 

 

 

 

---

write
 

1.Write the following definition in "Module1".

Sub Test2()
    Dim chan As Variant
    Dim result As Variant
    chan = DDEInitiate("FASERVER", "U01.F01")
    DDEPoke chan, "T01", Range("A1")
    DDETerminate (chan)
End Sub

 

This description defines a procedure called "Test2".

 

The command details are as follows:

 

 

 

2.To be able to immediately check the results, enter the following DDE formula in any cell other than "A1".
 

 

With the above, the value of the tag "U01.F01.T01" will be displayed in the target cell.

 

Furthermore, move the caret (text input cursor) anywhere between "Sub Test2()" and "End Sub" and select "Run Sub/ User Form" from the "Run" menu.

 

 

3.Write the data.
 
Enter the value you want to write to the tag in "A1", move the caret (text input cursor) somewhere between "Sub Test2()" and "End Sub", and select "Run Sub/ User Form" from the "Run" menu.
 
When you run VBA, you will see that the value of the cell containing the DDE formula is updated with the value entered in A1.
 

 

In addition, the above process can also be executed by calling "Test2" from the button in the same way as the Read button.