求求各位大哥大姐们 救救我吧
我用vb编了个极小的程序,其中放了一个text1
而后 我通过dde在excel中连接text1的内容 好不容易连接上了可是其却显示“#NAME?”请问我该怎么办啊??
我程序具体为:创建程序名为:a
在form1中加入text1
在form1中 调节属性 linkmode=1 linktopic=form1
在将text1中 调节属性 linkitem=ccc
我在excel中的某一单元格中 打的是: =a|form1!ccc
我那里错了呢???
求求各位大哥大姐们 救救我吧
我用vb编了个极小的程序,其中放了一个text1
而后 我通过dde在excel中连接text1的内容 好不容易连接上了可是其却显示“#NAME?”请问我该怎么办啊??
我程序具体为:创建程序名为:a
在form1中加入text1
在form1中 调节属性 linkmode=1 linktopic=form1
在将text1中 调节属性 linkitem=ccc
我在excel中的某一单元格中 打的是: =a|form1!ccc
我那里错了呢???
在这个例子中,每一次敲击鼠标都会使 Microsoft Excel 工作单中的单元更新 Visual Basic 的 TextBox 控件的内容。要试用此例,必须启动 Microsoft Excel,打开一个新的名叫 Sheet1 的工作单,在第一列中放入一些数据。在 Visual Basic 中,创建一个有 TextBox 控件的窗体。把代码粘贴到声明部分,然后按 F5 键运行该程序。
Private Sub Form_Click ()
Dim CurRow As String
Static Row ' 工作单的行数.
Row = Row + 1 ' 增加行.
If Row = 1 Then ' 只第一次.
' 确保连接不是活动的.
Text1.LinkMode = 0
' 设置应用程序的名字和题目名.
Text1.LinkTopic = "Excel|Sheet1"
Text1.LinkItem = "R1C1" ' 设置 LinkItem.
Text1.LinkMode = 1 ' 设置 LinkMode 为自动.
Else
' 在数据项目中更新行.
CurRow = "R" & Row & "C1"
Text1.LinkItem = CurRow ' 设置 LinkItem.
End If
End Sub
[此贴子已经被作者于2005-12-10 21:38:36编辑过]