使用copyfromrecordset方法时,提示对象失败

谈建华　发表于：2012-11-30 12:39:09 　

一个非常奇怪的问题:在access中调用excel，使用copyfromrecordset方法时，一直运行好好的程序本月突然提示上述方法作用于range对象失败。
类似情况已遇到两例，始终没找到原因。
操作系统重装后才能恢复正常。
office重装了也没用。

向各位老师求助

 Dim X As New Excel.Application, Sht As Excel.Worksheet
X.Workbooks.Add
Set Sht = X.ActiveWorkbook.Worksheets("sheet1")
    With Sht
        .Range("A1") = "物料代码"
        .Range("B1") = "品名"
        .Range("C1") = "规格及型号"
        .Range("D1") = "物料类型"
        .Range("E1") = "计量单位"
        .Range("F1") = "待入库"
        .Range("G1") = "待发货"
        .Range("H1") = "实际库存"
        .Range("I1") = "理论库存"
        .Range("J1") = "辅助属性"
        .Range("K1") = "仓库"
        .Range("A2").CopyFromRecordset rjg
        End With
    rjg.Close
Set Sht = Nothing
Set rjg = Nothing
X.Visible = True

这是原来的代码
会是什么原因呢？

Top

竹笛发表于：2012-11-30 12:51:49

帮你顶一下，平常写程序时尚未用到copyfromrecordset方法呀。

Top

煮江品茶发表于：2012-11-30 16:08:15

http://www.accessoft.com/blog/article-show.asp?userid=10802&Id=5235

Top

乔峰发表于：2012-11-30 21:25:18

我在EXCELHOME, OFFICEFANS 论坛, 原来就是EXCEL + ACCESS , 现在想尝试 ACCESS + ACCESS , 或 ACCESS + SQLSERVER

Top

麥田发表于：2012-11-30 21:54:15

欢迎

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

[5分]使用copyfromrecordset方法时,提示对象失败