Office中国论坛/Access中国论坛

标题: （已解决）关于导出到excel时提示错误的问题 [打印本页]

作者: yh0825 时间: 2007-12-10 17:55
标题: （已解决）关于导出到excel时提示错误的问题
本人设计了一个数据库,有一个导出的按钮,点击后想实现导出到指定的excel表中,但是点击后出现提示(见下图)
[attach]27192[/attach]

代码如下:
Private Sub 导出_Click()
   Dim oApp As Object
Dim oappwork As Excel.Workbook, oappwork_sheet1 As Excel.Worksheet

Set oApp = CreateObject("Excel.Application")
oApp.Visible = False
Set oappwork = oApp.Workbooks.Open("H:\结果.xls")
Set oappwork_sheet1 = oappwork.Worksheets("sheet1")
With Me.查询子窗体.Form.Recordset
      .MoveFirst
      nn = .Fields.Count
      j = 24
      Do
         If .EOF Then
            Exit Do
         Else
         For i = 1 To nn - 7
                  oappwork_sheet1.cells(j, 0 + i) = .Fields(i + 3)
            Next i

            j = j + 1
            .MoveNext
         End If
      Loop
      MsgBox "报表已经导入EXCEL", vbOKOnly + vbInformation
      oApp.Visible = True
On Error Resume Next

oApp.UserControl = True
End With
End Sub

我另一个数据库导出的代码与此是一样的却能执行,这个却不行,在咱们论坛上搜了一下,说是和VBA的"引用"有关,但我看了我两个数据库,设成一样的也没解决,仍然是那个可以执行,这个却不行.
不知什么原因?

[ 本帖最后由 yh0825 于 2007-12-10 19:16 编辑 ]

作者: rjacky 时间: 2007-12-10 17:58
应该就是引用问题而已

作者: yh0825 时间: 2007-12-10 18:05
那为什么引用设置是一样的,一个数据库能用,一个却不能用呢?

作者: yh0825 时间: 2007-12-10 19:19
怪我没仔细对照，就是引用的问题！要引用Microsoft Excel 11.0 Object Library 而不是“Microsoft Office 11.0 Object Library ”

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)