-
本版专家分：400结帖率 100% -
一段代码\,实现的效果是：将几幅图片传入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块变量未设置”
为什么会出现这个问题呢？![]()
-
本版专家分：400
-
哪位高手能给解惑下？谢谢~！
-
版主本版专家分：28964
-
- GitHub 绑定GitHub第三方账户获取
-
-
黄花
2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
-
-
蓝花
2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三
-
-
点击调试，看错误定位在哪一行呢
-
本版专家分：400
-
怎么一调整帖子，代码都乱了
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
这个是用来导入图片到excel并且使图片在单元格内居中显示
实际使用时我会重复调用
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)
出错在dCellW = Selection.Width这里。会提示实时错误‘91’对象变量或with块未设置
-
本版专家分：400
-
今天人很少啊！有高手在么？指点下！
-
本版专家分：400
-
如果把这句屏蔽dCellW = Selection.Width
那么错误就在下一句dCellH = Selection.Height
再屏蔽就是这两条出错dPicW = Selection.ShapeRange.Width
dPicH = Selection.ShapeRange.Height
我感觉是这个selection 有问题了 。但不知道为什么错。怎么改正
![]()
- （求助）VB 运行 事实错误91 对象变量或with块变量未设置
- Private Sub cmbOK_Click() If Trim(cmbUserName.Text) = "" Then MsgBox "用户名不能为空！", <em>vb</em>OKOnly + <em>vb</em>Exclam
- Excel运行时错误'91',对象或变量块未设置
- 之前项目用<em>excel</em> <em>vb</em>a做的报表，一直都是OK的。今天上午打了系统补丁之后，主要还是Excel的补丁。现在不能导出<em>excel</em>了，<em>错误</em>如题。 Set rowList1 = doc.DocumentE
- 对象变量或with块变量未设置的错误怎么解决
- Dim MLineObj1 As AcadMLine Dim MLineObj2 As AcadMLine Set MLineObj1 = ThisDrawing.ModelSpace.AddMLin
- 实时错误91，对象变量或with块变量未设置，如何解决？
- Private Sub Command1_Click() Dim part As Object Dim strfilename As String Dim longstatus As Long Dim d1 As Integer Dim d2 As Integer Dim h As Single If Dir(strfilename) = "" Then MsgBox ("文
- 实时错误91，对象变量或with块变量未设置~~如何解决
- Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入正确的网址", , "<em>错误</em>！" Text1.SetFocus Else
- 对象变量或with块变量未设置
- 原因： 因为没有成功连接数据库。 解决方面： 一.确定自己建立好连接了 1.确认自己模块没问题（ 曾经成功连接过数据库，就证明没问题）。 2.窗体中连接数据库的代码没问题。 Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset txtSQL = "select * from s...
- VB6 求助！！实时错误‘91’对象变量或with块变量未设置
- 源码： ************************************ Public Sub Command5_Click() Dim strURL As String Dim userid
- Excel2007 运行时错误'91' 对象变量或 With 块变量没有设置 的一种解决办法
- 运行时<em>错误</em>'91'<em>对象</em><em>变量</em>或 With 块<em>变量</em>没有<em>设置</em>今天用了一段VBA小程序，在同事机器上能用，在我机器上用就是不行，具体是这段代码报错：Set Sheet1 = ThisWorkbook.Worksheets(1)调试时添加监视发现，ThisWorkbook<em>对象</em>是有效的，可以输出文档名称，但其子<em>对象</em>Worksheets、sheets等东东全部是nothing网上也找不到有效解决办法，什么注册控件，安装office补丁包都试了，也没解决，就差重装office。仔细观察，发现问题有这3个特点：1.同事机器上
- 对象变量或 With 块变量未设置
- 我是初学者,按照书本上的方法去学习和试验 书本内容如下: 在Visual Basic的应用程序中，还可以通过编写代码来建立一个数据库文件，以及对数据库进行索引、查询等许多操作
- EBS WEBADI 下载模板提示 Visual Basic 运行时错误 '91' 对象变量或With块变量未设置...
- 按以下的方法<em>设置</em>一遍EXCEL，并<em>设置</em>浏览器的安全属性。
- excel宏报错！运行时错误 91 对象变量或 with 块变量未设置
- 一个简单的<em>excel</em>宏，在我的机器上运行报错 重装系统后<em>错误</em>依然存在 但是在同事的机器上执行正常 他机器上的<em>excel</em>版本和我的相同 请问到底这个<em>错误</em>是什么意思?错在哪里了？ 宏代码如下： Priva
- 菜鸟VBA求助-- 对象变量或with 块变量未设置
- 今天突然要改一个Excel脚本，哎，看起来VBA。遇到一个问题，霎时纠结。求各位大虾救助。 Sub btnWarn_Click() Dim line4 As ALine line4 = GetLine
- VB程序变得很卡，并显示对象变量或with块变量未设置
- 刚解决完自己with<em>变量</em><em>未</em>定义的问题，结果再次打开程序的时候，自己的程序变得很卡。只需一键，直接出现小圈圈转不停。有时候等半天，显示<em>对象</em><em>变量</em>或with块<em>变量</em><em>未</em><em>设置</em>。出现这句话的原因，是因为没有从数据库中调用出来东西。但是各种都检查没问题，原来是自己忽略了这个，数据库没有连接上，如图： 如何解决呢。找到自己数据库的SQL server配置管理器，如图： 在SQL server服务...
- 导出到excel出错：错误91 对象变量或with块变量未设置
- Dim rng As Excel.Range Set rng = newbook.Sheets("Sheet1").Range("A2") rng.Select With Selection .Hor
- AutoCAD VBA对齐对象
- AutoCAD VBA对齐<em>对象</em>，代码如下。 Sub AlignEnt() Dim ss As AcadSelectionSet Set ss = CreateSelectionSet ss.SelectOnScreen Dim ent As AcadEntity Dim MinPoint As Variant ...
- “对象变量或with块变量未设置”的错误
- 今天又遇见一个<em>错误</em>，本以为会是一个小<em>错误</em>，结果号了我一个多小时，其实真是个低级<em>错误</em>，只不过我粗心检查了四五遍仍<em>未</em>看出来。建立了一个select的sql语句查询，总是跳出“<em>对象</em><em>变量</em>或with块<em>变量</em><em>未</em><em>设置</em>”的<em>错误</em>，叫了师兄过来给检查，结果一下就找出了<em>错误</em>。师兄的小计巧挺实用的，在Access中运行SQL语句：打开Access数据库——>在<em>对象</em>栏中,选择查询选项——>打开“在设计师图中创建查询
- 对象变量或with块变量未设置————问题根源
- 由于今年的
- vb说是对象变量或with块变量未设置
- '更改租赁模式时更新费用金额 Private Sub cob_Mode_Click() '需要先选择车牌和客户信息 If sCarNo = "" Or sCustId = "" Then MsgBox
- 运行时，出现出错提示,“实时错误91,对象变量或with或块变量未设置”，如何解决？
- 编写一高考查询系统，运行时出现如标题所示<em>错误</em>，请问各位高手,如何解决？谢谢Private Sub Form_Load() ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "/db1.mdb" ado.CommandType = adCmdText
- VB提示未设置对象变量或with块变量
- Public Class frmLogin Dim cnt As Integer Dim fd As Integer Private Property CM As Object Private Sub
- 求教，vb高手！！！未设置对象变量或 With 块变量。
- Imports Microsoft.Office.Interop Public Class Form1 Public strFileName As String Public mubanFileNam
- “对象变量或with块变量未设置”是什么意思？
- 用VB开发了一个小型的学生资料管理系统，进行查询时老是提示“<em>对象</em><em>变量</em>或with块<em>变量</em><em>未</em><em>设置</em>”用DAO方法连接的数据库
- 操作Excel的问题 未设置对象变量或With block变量
- procedure output_<em>excel</em>_file(file_path:string;report_type:Toutput_report_type;report_CDS:TADOQUERY);
- vb6 调试没问题 生成EXE后 错误91 未设置对象变量或with block变量
- 调试没问题 生成EXE后 <em>错误</em>91 <em>未</em><em>设置</em><em>对象</em><em>变量</em>或with block<em>变量</em> 代码如下 调用getcachepath（） 出现的<em>错误</em> 另外 wininet.dll 注册不成功 找不到dllregist
- VB6 生成exe后在本机正常，在其他机器就报：错误91 未设置对象或变量或with block变量
- 大概查了一下出现<em>错误</em>的位置是 Set cn = New ADODB.Connection 应该是报“ADODB.Connection ” <em>未</em>定义，但是定义“dim ADODB”后还是一样的问题， 网上
- 【学生信息管理系统】对象变量或者With块变量未设置
- 连上数据库的原因有很多，最常见的是下面的3种。 1.ODBC数据源没有配置好 2.模块出连接数据库的代码出错 3.SQL语句是否敲错。 以及笔者体验的解决办法。
- VB中对象变量或with块变量错误（91号错误）解决方法
- 兄弟最近被这问题困搅，最后终于解决！ 1.你连接数据库时可能出错了，检查一下connectstring这句语句，是否写正确，或者把他该成