access导出到excel中出错

selffree

问题是
Dim xlapp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As New Excel.WorkSheet
Dim Conn As New ADODB.Connection
Dim Rec As New ADODB.Recordset
Dim strSQL As String
Dim i As Integer, j As Integer, m As Integer, n As Integer
这样的定义不行，系统无法识别。
这个是拷贝其他程序里面的，而在另一个程序中是可以这样定义的，麻烦高人帮我看看问题出在什么上~~
C2VIbU9J.rar 是原来的~
练习.rar 是我自己的程序，在这里面出现问题了~

selffree

在筛选窗体中，备份(Excel)，按钮~

selffree

问题已解决~
把系统无法识别的都注释或删除即可~
定义采用：
Dim xlapp
Dim xlBook
Dim xlSheet
Dim Conn As New ADODB.Connection
Dim Rec As New ADODB.Recordset
Dim strSQL As String
Dim i As Integer, j As Integer, m As Integer, n As Integer

dell600

多谢楼主发帖，又学到了一招

tz-chf

这不是个好办法，应该增加对excel的对象引用。

selffree

原帖由 tz-chf 于 2008-6-4 12:05 发表
这不是个好办法，应该增加对excel的对象引用。

怎么加？不会~~