DDE编程新篇

iteye_19603

于 2012-12-23 22:57:00 发布

阅读量354

点赞数

最近用Excel处理些东西，想到了用DDE，于是翻了翻资料，整理了一个例子。

1、启动MicrosoftExcel，打开一个新的名叫Sheet1的工作单，在第一列中放入一些数据

2、启动VB，可以看到表格的数据在界面呈现了。

3、修改Excel的数据，可以看到VB的数据实时更新了

Option Explicit
'创建一个Text1的控件数组
Private Sub Command1_Click()
   Dim i As Integer
   For i = 0 To Text1.Count - 1
      Text1(i).LinkTopic = "Excel|Sheet1"
      Text1(i).LinkItem = "R" & CStr(i + 1) & "C1" ' 设置 LinkItem.
      Text1(i).LinkMode = 1 '设置 LinkMode 为自动，必须加上，否则不会有值
   Next i
End Sub