accessVBA编程出错:类不支持自动化或不支持期望的接口

ming78261499a 2013-01-30 09:04:51
下面代码出错
Private Sub 导出到excel_Click()
On Error GoTo errit

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim i As Integer

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add


Me.主查询子窗体.Form.Recordset.MoveFirst

For i = 0 To Me.主查询子窗体.Form.Recordset.Fields.Count - 1
oBook.worksheets(1).Cells(1, i + 1).Value = Me.主查询子窗体.Form.Recordset.Fields(i).Name
Next



'oBook.worksheets(1).colums(1).ColumnWidth = 15
'oBook.worksheets(1).row(1).RowHeight = 13.5
'oBook.worksheets(1).range.ColumnWidth = 15
'oBook.worksheets(1).range.RowHeight = 13.5
oBook.worksheets(1).Range("A2:P2").ColumnWidth = 9
oBook.worksheets(1).Range("Q2:U2").ColumnWidth = 18
oBook.worksheets(1).Range("A2:A1000").RowHeight = 13.5
oBook.worksheets(1).Range("A2").CopyFromRecordset Me.主查询子窗体.Form.Recordset
'oBook.ShowDlgOpenFile = ("d:\人才资料查询.xls")


oBook.SaveAs FileName:="c:\人才资料查询.xls"

MsgBox "查询成功导出为c:\人才资料查询.xls"

errexit:
oBook.Close False
oExcel.Quit
Set oBook = Nothing
Set oExcel = Nothing
Exit Sub

errit:
MsgBox "错误号为" & Err.Number & " 错误说明:" & Err.Description
Resume errexit

End Sub


上面代码中“oBook.worksheets(1).Range("A2").CopyFromRecordset Me.主查询子窗体.Form.Recordset”在win7 32位系统上access2007与2010都没问题,但是在有些32位的win7和xp上都出现错误430:类不支持自动化或不支持期望的接口问题比较急,N个论坛上的帖子我都参考过了,转成mdb,引入dll引不了,请高手指点,谢谢
...全文
473 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
WWWWA 2013-02-17
  • 打赏
  • 举报
回复
将生成子窗体的SQL语句提出,生成表,再导出XLS,用OLE方式打开XLS,设置格式
ming78261499a 2013-02-17
  • 打赏
  • 举报
回复
谢谢楼上两位,我用了笨笨的办法……一个个生成数据项,速度很慢,不过还好解决了问题~楼上的办法我马上试试,真心谢谢两位,大过年的新年快乐
dong_y888 2013-02-01
  • 打赏
  • 举报
回复
不使用那个方法,用代码解决
Private Sub 导出到excel_Click()
On Error GoTo errit

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim i As Integer,j as integer

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add


Me.主查询子窗体.Form.Recordset.MoveFirst

For i = 0 To Me.主查询子窗体.Form.Recordset.Fields.Count - 1
oBook.worksheets(1).Cells(1, i + 1).Value = Me.主查询子窗体.Form.Recordset.Fields(i).Name
Next



'oBook.worksheets(1).colums(1).ColumnWidth = 15
'oBook.worksheets(1).row(1).RowHeight = 13.5
'oBook.worksheets(1).range.ColumnWidth = 15
'oBook.worksheets(1).range.RowHeight = 13.5
oBook.worksheets(1).Range("A2:P2").ColumnWidth = 9
oBook.worksheets(1).Range("Q2:U2").ColumnWidth = 18
oBook.worksheets(1).Range("A2:A1000").RowHeight = 13.5
'oBook.worksheets(1).Range("A2").CopyFromRecordset Me.主查询子窗体.Form.Recordset
'oBook.ShowDlgOpenFile = ("d:\人才资料查询.xls")
j=2
Me.主查询子窗体.Form.Recordset.movefirst
do while not Me.主查询子窗体.Form.Recordset.eof
    For i = 0 To Me.主查询子窗体.Form.Recordset.Fields.Count - 1
       oBook.worksheets(1).Cells(j, i + 1).Value = Me.主查询子窗体.Form.Recordset.Fields(i).value
    Next
    j=j+1
    Me.主查询子窗体.Form.Recordset.movenext
loop

oBook.SaveAs FileName:="c:\人才资料查询.xls"

MsgBox "查询成功导出为c:\人才资料查询.xls"

errexit:
oBook.Close False
oExcel.Quit
Set oBook = Nothing
Set oExcel = Nothing
Exit Sub

errit:
MsgBox "错误号为" & Err.Number & " 错误说明:" & Err.Description
Resume errexit

End Sub
WWWWA 2013-02-01
  • 打赏
  • 举报
回复
就是生成MDE,主要是保护VBA代码
wwwwb 2013-01-31
  • 打赏
  • 举报
回复
在WINXP+EXCEL 2003下测试没有 问题
ming78261499a 2013-01-31
  • 打赏
  • 举报
回复
还是不行,希望能顶上去大家都帮忙看看……
ming78261499a 2013-01-31
  • 打赏
  • 举报
回复
还想问一问版主,有朋友说可以在不行的机器重新编译试试,但是这个简陋的系统只是放在局域网上面共享而已,而且前后端没分离……access怎么在没个机器上编译VBA代码呢?是不是想在本机一样?
ming78261499a 2013-01-31
  • 打赏
  • 举报
回复
谢谢版主,但是就是有些机器不行,window xp sp3 + office2007不行,window 7 sp1 +2007或2010有50%概率不行……
ming78261499a 2013-01-30
  • 打赏
  • 举报
回复
谢谢,我先试试
WWWWA 2013-01-30
  • 打赏
  • 举报
回复
试试: set rs=Me.主查询子窗体.Form.Recordset oBook.worksheets(1).Range("A2").CopyFromRecordset rs
内容概要:本书《Deep Reinforcement Learning with Guaranteed Performance》探讨了基于李雅普诺夫方法的深度强化学习及其在非线性系统最优控制中的应用。书中提出了一种近似最优自适应控制方法,结合泰勒展开、神经网络、估计器设计及滑模控制思想,解决了不同场景下的跟踪控制问题。该方法不仅保证了性能指标的渐近收敛,还确保了跟踪误差的渐近收敛至零。此外,书中还涉及了执行器饱和、冗余解析等问题,并提出了新的冗余解析方法,验证了所提方法的有效性和优越性。 适合人群:研究生及以上学历的研究人员,特别是从事自适应/最优控制、机器人学和动态神经网络领域的学术界和工业界研究人员。 使用场景及目标:①研究非线性系统的最优控制问题,特别是在存在输入约束和系统动力学的情况下;②解决带有参数不确定性的线性和非线性系统的跟踪控制问题;③探索基于李雅普诺夫方法的深度强化学习在非线性系统控制中的应用;④设计和验证针对冗余机械臂的新型冗余解析方法。 其他说明:本书分为七章,每章内容相对独立,便于读者理解。书中不仅提供了理论分析,还通过实际应用(如欠驱动船舶、冗余机械臂)验证了所提方法的有效性。此外,作者鼓励读者通过仿真和实验进一步验证书中提出的理论和技术。

7,732

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
社区管理员
  • Access
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧