（已解决）关于导出到excel时提示错误的问题

yh0825

本人设计了一个数据库,有一个导出的按钮,点击后想实现导出到指定的excel表中,但是点击后出现提示(见下图)


代码如下:
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

应该就是引用问题而已

yh0825

那为什么引用设置是一样的,一个数据库能用,一个却不能用呢?

yh0825

怪我没仔细对照，就是引用的问题！要引用Microsoft Excel 11.0 Object Library 而不是“Microsoft Office 11.0 Object Library ”