vb6 excel 实时错误‘91’对象变量或with块变量未设置

2016-07-27 03:33:52 1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

GPT-5四模态原生融合与推理跃升实战解析多模态大模型正从‘模块拼接’迈向‘统一主干’架构，其核心在于文本、图像、语音、代码信号在同一个Transformer注意力矩阵中协同处理，实现跨模态上下文记忆与实时联合推理。这种原生融合能力显著提升信息理解深度与任务执行连贯性，支撑会议纪要自动生成、代码错误根因定位、语音情感适配响应等高价值场景。结合强化的链式推理（Chain-of-Thought）机制，GPT-5在数学证明、工程调试、数据清洗等需逻辑闭环的任务中展现出协作者级可靠性。对开发者、内容创作者及知识工作者而言，它已不仅是辅助工具，而是可嵌入日常阅读详情

一段代码\,实现的效果是：将几幅图片传入excel表格内，以供用户打印
下面程序目的是，取一幅图片放到excel表格内并使图片居中显示，

Public Sub CopyBmpOne(i As Integer)

    With XlApp.Selection

      dCellW = Selection.Width

    '  ' dCellW = XlSheet.Cells(5, 1).Selection.Height

       

     dCellH = Selection.Height

    '  End With

      

      Clipboard.Clear

      Clipboard.SetData img1Show(i).Picture

      

      

      XlSheet.PasteSpecial Format:="位图", Link:=False, DisplayAsIcon:=False

      'ActiveSheet.Pictures.Insert(img1Show(0).Picture).Select

      

      dPicW = Selection.ShapeRange.Width

      dPicH = Selection.ShapeRange.Height

      '重新定位

      Selection.ShapeRange.IncrementLeft (dCellW - dPicW) / 2

      Selection.ShapeRange.IncrementTop (dCellH - dPicH) / 2

    End With

End Sub

我在使用过程中是反复调用的

XlSheet.Cells(5, 1).Select

    Call CopyBmpOne(0)

   

    XlSheet.Cells(5, 3).Select

    Call CopyBmpOne(1)

        

    XlSheet.Cells(5, 5).Select

    Call CopyBmpOne(2)

    

    

    XlSheet.Cells(5, 7).Select

    Call CopyBmpOne(3)

第一次使用时没有问题，关闭退出，再打开也没问题。
当打开excel表格，再关闭表格，再次调用这段程序时就出错“实时错误‘91’对象变量或with块变量未设置”“实时错误‘91’对象变量或with块变量未设置”
为什么会出现这个问题呢？

...全文