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

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

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

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

@H_502_21@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