查看: 1463|回复: 4
vba 运行时有时“提示：运行时错误‘13’，类型不匹配”,有时没有,怎么回事？
初级一, 积分 17, 距离下一级还需 33 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
宏是这样的：
Sub 名称()
& & Dim arr, brr(), i
& & arr = Range(&A5:A& & [A666].End(3).Row)
& & For i = 1 To UBound(arr)
& && &&&Set wb = Workbooks.Open(Filename:=ActiveWorkbook.Path & &\& & arr(i, 1) & &.xlsm&, ReadOnly:=True)
& && &&&Set wb = GetObject(ActiveWorkbook.Path & &\& & arr(i, 1) & &.xlsm&)
& && &&&ReDim Preserve brr(1 To UBound(arr), 1 To 1)
& && &&&brr(i, 1) = wb.Sheets(&Deckblatt Blatt 1&).Range(&B5&)
& && &&&wb.Close False
& & Range(&B5&).Resize(UBound(brr), 1) = brr
---------------------------------------------------------------------------------------------
Sub 批量()
& & Dim arr, brr(), i
& & arr = Range(&A5:A& & [A666].End(3).Row)
& & For i = 1 To UBound(arr)
& && &&&Set wb = Workbooks.Open(Filename:=ActiveWorkbook.Path & &\& & arr(i, 1) & &.xlsm&, ReadOnly:=True)
& && &&&Set wb = GetObject(ActiveWorkbook.Path & &\& & arr(i, 1) & &.xlsm&)
& && &&&ReDim Preserve brr(1 To UBound(arr), 1 To 1)
& && &&&brr(i, 1) = wb.Sheets(&Deckblatt Blatt 1&).Range(&D10&)
& && &&&wb.Close False
& & Range(&C5&).Resize(UBound(brr), 1) = brr
一个工作薄里像上面的宏有十个甚至更多，附图淡蓝色部分每一列是一个宏；我是把它们连起来运行。
有两个问题：
1、一个工作薄里引用几十个数据（附图淡蓝色部分），得好几分钟，跟不要说更多的数据了，太慢了，请高人指点，有无高招？
2、A列A5往下的数据是引用数据的源头（即每个单元格就是被引用单元格的文件名），我是采用粘贴的办法，上午还行，下午就不行了，也不知道怎么回事；但如果我用格式刷将“上午粘贴的单元格内容”的属性刷到钢粘贴的单元格后，再计算就没问题。
& & 我又用“常规”、“数值”、“文本”等来设置粘贴的单元格内容的属性，也不行。请高手指点。谢谢。
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 17, 距离下一级还需 33 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
本帖最后由 arter_2006 于
09:22 编辑
补充下，有问题的地方见附图黄色部分
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 17, 距离下一级还需 33 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
补充：压缩文件里的两个宏完全一模一样，但一个可以、一个不可以。
12:24 上传
点击文件名下载附件
82.68 KB, 下载次数: 2
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
Sub 名称()
& & Dim arr, brr(), i
& & arr = Range(&A4:A& & [A666].End(3).Row)
& & If [A666].End(3).Row = 4 Then Exit Sub
& & For i = 2 To UBound(arr)
& && &&&Set wb = Workbooks.Open(Filename:=ActiveWorkbook.Path & &\& & arr(i, 1) & &.xlsm&, ReadOnly:=True)
& && &&&Set wb = GetObject(ActiveWorkbook.Path & &\& & arr(i, 1) & &.xlsm&)
& && &&&ReDim Preserve brr(1 To UBound(arr), 1 To 1)
& && &&&brr(i, 1) = wb.Sheets(&Deckblatt Blatt 1&).Range(&B5&)
& && &&&wb.Close False
& & Next
& & Range(&B5&).Resize(UBound(brr), 1) = brr
End Sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
如果名称只有一个， arr就是数值，而不是数组。
中间加个判断，无名称时跳出
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by苹果/安卓/wp
积分 1571, 距离下一级还需 654 积分
权限: 自定义头衔, 签名中使用图片, 隐身, 设置帖子权限
道具: 彩虹炫, 涂鸦板, 雷达卡, 热点灯, 金钱卡, 显身卡, 匿名卡, 抢沙发, 提升卡下一级可获得
权限: 设置回复可见道具: 沉默卡
购买后可立即获得
权限: 隐身
道具: 金钱卡, 彩虹炫, 雷达卡, 热点灯, 涂鸦板
开心签到天数: 115 天连续签到: 1 天[LV.6]常住居民II
本帖最后由 不是我的风格 于
12:16 编辑
DEA SOLVER 运行错误及解决方案（DEA SOLVER 運行錯誤及解決方案）
目前出现的问题均为楼主自己碰见的及解决方案，仅供大家参考。有新的问题及好的建议欢迎补充。
问题一：DEA-SOLVER-LV(V3）文件打开后无反应
描述：使用EXCEL2013或其他版本，打开后停留在表格界面，无对话框弹出，如图2.
解决方案：只要添加加载宏即可。
操作步骤：1.点击选择“Excel选项”
& && && && && && &2.点击左侧“信任中心”
& && && && && && &3.点击右下角“信任中心设置”
& && && && && && &4.点击左侧“宏设置“
& && && && && && &5选择”启用所有宏“
重新运行，如图3即可
支持楼主：、
购买后，论坛将把您花费的资金全部奖励给楼主，以表示您对TA发好贴的支持
载入中......
(84.43 KB)
18:47:02 上传
(76.48 KB)
18:46:55 上传
18:46:36 上传
本帖最后由 不是我的风格 于
12:16 编辑
问题二：DEA-SOLVER-LV(V3）导入数据后运行错误'1004'
描述：使用EXCEL2013版本，导入数据后，弹出提示对话框，提示” 运行时错误'1004' “,类worksheet的Delete方法无效。如图4.
解决方案：更换excel其他较低版本。（注：或许还有其他解决方案，本人目前只发现更换较低版本这一途径）
重新运行即可，如图5.
(89.61 KB)
18:59:29 上传
18:59:00 上传
谢谢阿，找了好长时间的问题，原来版本可以阿
补充一下，繁体版本的问题一是加载“巨集”
使用EXCEL2013版本，导入数据后，弹出提示对话框，提示” 运行时错误'1004' “,类worksheet的Delete方法无效。如图4.
把原数据另存为03版的还是会出现图4的情况，需要怎么解决呢？
elinsmile 发表于
使用EXCEL2013版本，导入数据后，弹出提示对话框，提示” 运行时错误'1004' “,类worksheet的Delete方法无效 ...建议可以用2007版本再试试。我还没用过2003版，暂不清楚，不好意思。
不是我的风格 发表于
建议可以用2007版本再试试。我还没用过2003版，暂不清楚，不好意思。好的，谢谢！我昨天重新装了07版的EXCEL就可以用了。另外，可以用DEA-SOLVER来求解Malmquist 指数吗？
请问楼主，怎么设置投入，产出的啊？貌似一直都是各种表，自动生成的
alvin276 发表于
请问楼主，怎么设置投入，产出的啊？貌似一直都是各种表，自动生成的请问是指的在表格中输入数据吗？
那如图所示在指标前面标注投入或者产出的符号即：（I）或（O）
08:49:34 上传
elinsmile 发表于
好的，谢谢！我昨天重新装了07版的EXCEL就可以用了。另外，可以用DEA-SOLVER来求解Malmquist 指数吗？对这个不清楚
无限扩大经管职场人脉圈！每天抽选10位免费名额，现在就扫& 论坛VIP& 贵宾会员& 可免费加入
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
如有投资本站或合作意向，请联系（010-）；
邮箱：service@pinggu.org
投诉或不良信息处理：（010-）
京ICP证090565号
论坛法律顾问：王进律师