运行时错误91:对象变量或with块变量未设置

kent_73

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\A\系统\考核表.xlt")
Set xlSheet = xlBook.Worksheets(1)
Set Conn = CurrentProject.Connection

strSQL = "SELECT * FROM Tb_导出到EXCEL_tmep"
Rs.Open strSQL, Conn, adOpenStatic, adLockOptimistic

xlApp.Visible = True
   
    With xlSheet
If Rs.RecordCount > 2 Then
bb = 45
For i = 1 To round2(Rs.RecordCount / 2)  'round2是自定义函数

    .Range("A144").Select
    Selection.Copy   '这里出现错误提示：运行时错误91:对象变量或with块变量未设置
   
    .Cells(bb, 1).Select
    ActiveSheet.Paste
    bb = bb + 44
Next
End If
End with



不过上面的问题不是每次都有，初次打开程序能够顺序导出数据，再次导出，就出现问题了。

todaynew

前面加一个小数点，表示为子对象或属性的设置。

kent_73

todaynew 发表于 2012-5-10 13:43
前面加一个小数点，表示为子对象或属性的设置。

改成  .Selection.Copy   还是出现错误：方法和数据成员未找到

todaynew

kent_73 发表于 2012-5-10 14:06
改成  .Selection.Copy   还是出现错误：方法和数据成员未找到

那就用父对象试试：
xlApp.Selection.Copy

此外你的循环没什么意思吧？因为没看见i在循环体中使用。

kent_73

todaynew 发表于 2012-5-10 14:08
那就用父对象试试：
xlApp.Selection.Copy

出现了：远程服务器不存在或不可用的错误了。

呵呵，这里的循环是用于需要复制和粘贴标准格式多少次才能满足要求。

kent_73

原来是我把打开的EXCEL文件关了，才会出现远程服务器不存在或不可用。

现在可以了，谢谢

todaynew

kent_73 发表于 2012-5-10 14:34
原来是我把打开的EXCEL文件关了，才会出现远程服务器不存在或不可用。

现在可以了，谢谢

xlApp.Visible 设为false即可

roych

一般不建议使用CreateObject，而是引用Excel库，然后不必创建组件，直接用Workbooks.Open方法即可。