VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 建立一个 Microsoft Excel 的 DDE 链接
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:12785, 日期:2001-06-21
LinkExecute 方法示例
本示例建立一个 Microsoft Excel 的 DDE 链接,将一些值放置到一个新工作单的第一行的单元里,并按照这些值画图。LinkExecute 向 Microsoft Excel 发送激活工作单的命令,选择一些值并按照它们画图。要检验此示例,计算机中必须装有 Microsoft Excel 而且要在 Autoexec.bat 文件的路径中声明。将本例代码粘贴到一个带缺省名 Text1 的 TextBox 控件的窗体的声明部分,然后按 F5 键并单击该窗体。

Private Sub Form_Click ()
   Dim Cmd, I, Q, Row, Z   ` 声明变量。
   Q = Chr(34)   ` 定义引用标记。
   ` 创建一个含有 Microsoft Excel 宏指令的字串。
   Cmd = "[ACTIVATE(" & Q &"SHEET1" & Q & ")]"
   Cmd = Cmd & "[SELECT(" & Q & "R1C1:R5C2" & Q & ")]"
   Cmd = Cmd & "[NEW(2,1)][ARRANGE.ALL()]"
   If Text1.LinkMode = vbNone Then
      Z = Shell("Excel", 4)   ` 启动 Microsoft Excel。
      Text1.LinkTopic = "Excel|Sheet1"   ` 设置连接主题。
      Text1.LinkItem = "R1C1"   ` 设置连接项目。
      Text1.LinkMode = vbLinkManual   ` 设置连接模式。
   End If
   For I = 1 To 5
      Row = I   ` 定义行号。
      Text1.LinkItem = "R" & Row & "C1"   ` 设置连接项目。
      Text1.Text = Chr(64 + I)   ` 将值放置在 Text 中。
      Text1.LinkPoke   ` 将值放入单元。
      Text1.LinkItem = "R" & Row & "C2"   ` 设置连接项目。
      Text1.Text = Row   ` 将值放置在 Text 中。
      Text1.LinkPoke   ` 将值放入单元。
   Next I
   On Error Resume Next
   Text1.LinkExecute Cmd   ` 执行 Microsoft Excel 命令。
   MsgBox "LinkExecute DDE demo with Microsoft Excel finished.", 64
   End
End Sub