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引不了,请高手指点,谢谢
...全文
472 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
资源下载链接为: https://pan.quark.cn/s/abbae039bf2a 在计算机视觉领域,实时目标跟踪是许多应用的核心任务,例如监控系统、自动驾驶汽车和无人机导航等。本文将重点介绍一种在2017年备受关注的高效目标跟踪算法——BACF(Boosted Adaptive Clustering Filter)。该算法因其卓越的实时性和高精度而脱颖而出,其核心代码是用MATLAB编写的。 BACF算法全称为Boosted Adaptive Clustering Filter,是基于卡尔曼滤波器改进的一种算法。传统卡尔曼滤波在处理复杂背景和目标形变时存在局限性,而BACF通过引入自适应聚和Boosting策略,显著提升了对目标特征的捕获和跟踪能力。 自适应聚是BACF算法的关键技术之一。它通过动态更新特征空间中的聚中心,更准确地捕捉目标的外观变化,从而在光照变化、遮挡和目标形变等复杂情况下保持跟踪的稳定性。此外,BACF还采用了Boosting策略。Boosting是一种集成学习方法,通过组合多个弱分器形成强分器。在BACF中,Boosting用于优化目标检测性能,动态调整特征权重,强化对目标识别贡献大的特征,从而提高跟踪精度。BACF算法在设计时充分考虑了计算效率,能够在保持高精度的同时实现快速实时的目标跟踪,这对于需要快速响应的应用场景(如视频监控和自动驾驶)至关重要。 MATLAB作为一种强大的数学计算和数据分析工具,非常适合用于算法的原型开发和测试。BACF算法的MATLAB实现提供了清晰的代码结构,方便研究人员理解其工作原理并进行优化和扩展。通常,BACF的MATLAB源码包含以下部分:主函数(实现整个跟踪算法的核心代码)、特征提取模块(从视频帧中提取目标特征的子程序)、聚算法(实现自适应聚过程)、Boosting算法(包含特征权重更新的代
内容概要:本书《Deep Reinforcement Learning with Guaranteed Performance》探讨了基于李雅普诺夫方法的深度强化学习及其在非线性系统最优控制中的应用。书中提出了一种近似最优自适应控制方法,结合泰勒展开、神经网络、估计器设计及滑模控制思想,解决了不同场景下的跟踪控制问题。该方法不仅保证了性能指标的渐近收敛,还确保了跟踪误差的渐近收敛至零。此外,书中还涉及了执行器饱和、冗余解析等问题,并提出了新的冗余解析方法,验证了所提方法的有效性和优越性。 适合人群:研究生及以上学历的研究人员,特别是从事自适应/最优控制、机器人学和动态神经网络领域的学术界和工业界研究人员。 使用场景及目标:①研究非线性系统的最优控制问题,特别是在存在输入约束和系统动力学的情况下;②解决带有参数不确定性的线性和非线性系统的跟踪控制问题;③探索基于李雅普诺夫方法的深度强化学习在非线性系统控制中的应用;④设计和验证针对冗余机械臂的新型冗余解析方法。 其他说明:本书分为七章,每章内容相对独立,便于读者理解。书中不仅提供了理论分析,还通过实际应用(如欠驱动船舶、冗余机械臂)验证了所提方法的有效性。此外,作者鼓励读者通过仿真和实验进一步验证书中提出的理论和技术。

7,732

社区成员

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

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