DDE编程新篇

最近用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

（编辑：威海站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!