请教这么个程序，关于用VB程序从Excel里提取和输入数据。

建立四个text，第四个使用来DDE通讯用的。呵呵，你参考一下吧。还有问题QQ：793295197。祝你成功！
Private Sub Command1_Click()
Dim ID
If Form1.Text1.LinkMode = vbNone Then
     ID = Shell("C:\Program Files\Microsoft Office\Office11\Excel.exe c:\book1.xls")        ' 启动Microsoft Excel。
     Form1.Text4.LinkTopic = "Excel|Sheet1"     ' 设置连接主题。
     Form1.Text4.LinkItem = "R2C2" ' 设置连接项目。
     Form1.Text4.LinkMode = 1 ' vbLinkManual    ' 设置连接模式。
End If
Form1.Text4.LinkItem = "R2C2"    ' 设置连接项目。
Form1.Text4.Text = Form1.Text1.Text      ' 将值放置在 Text 中。
Form1.Text4.LinkPoke   ' 将值放入单元。
Form1.Text4.LinkItem = "R2C3"    ' 设置连接项目。
Form1.Text4.Text = Form1.Text2.Text      ' 将值放置在 Text 中。
Form1.Text4.LinkPoke   ' 将值放入单元。
Form1.Text4.LinkItem = "R2C4"    ' 设置连接项目。
Form1.Text4.Text = Form1.Text3.Text      ' 将值放置在 Text 中。
Form1.Text4.LinkPoke   ' 将值放入单元。
End Sub