EXCEL2016问题，求写语句或解决方案。如图，我在同一个工作簿下有两个excel 工作表 工作簿，sheet1和sheet2

来源：蜘蛛抓取(WebSpider) 时间：2016-05-25 00:01 标签： 工作表 工作簿
查看: 163|回复: 5
求助！！急！！复制工作表到另一个工作薄出错
阅读权限10
在线时间 小时
各位大侠，我在实现一个功能，复制工作表到另一个工作薄，把test.xls的sheet1复制到汇总.xls的“汇总”工作表前，要求格式内容都不变化。
程序如下：
Sub Collect_Click()
& & With GetObject(ThisWorkbook.Path & &\test.xls&)
& && &&&.Sheets(1).Copy Before:=ThisWorkbook.Sheets(1)
& && &&&.Close False
& & End With
但是运行时，报错：
运行时错误 ‘-&&()
自动化（Automation）错误
请大家帮忙看看是哪里出错了。
(16.95 KB, 下载次数: 100)
22:22 上传
22:23 上传
点击文件名下载附件
20.59 KB, 下载次数: 100
阅读权限95
在线时间 小时
测试了，可以正常运行，也实现了预期的效果，
关键是两个工作薄必须在同一个位置才行
阅读权限10
在线时间 小时
可是在我的电脑运行就报错，我用的是2010，难道要设置什么环境变量？请各位大侠帮忙想想是什么问题
阅读权限95
在线时间 小时
& & & & & & & &
可是在我的电脑运行就报错，我用的是2010，难道要设置什么环境变量？请各位大侠帮忙想想是什么问题
改变一下打开方式试试看，
Sub Collect_Click()
& & With Workbooks.Open(ThisWorkbook.Path & &\test.xls&)
& && &&&.Sheets(1).Copy Before:=ThisWorkbook.Sheets(1)
& && &&&.Close False
& & End With
End Sub复制代码
阅读权限10
在线时间 小时
改变一下打开方式试试看，
多谢了，朱大侠！在单位的电脑，换了打开方式是成功的。
但奇怪的是，用getobject在单位的电脑报“自动化错误”，但用家里的电脑确没有问题，这真是太奇怪了。
阅读权限95
在线时间 小时
多谢了，朱大侠！在单位的电脑，换了打开方式是成功的。
但奇怪的是，用getobject在单位的电脑报“自动 ...
应该是操作系统版本的问题引起的，
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师您的举报已经提交成功，我们将尽快处理，谢谢！
“加一个&”
是将变的( ROW(A1) )和不变的( :K )连接在一起。
"&ROW(A1)&"作为一个整体来理解，并将其转换为文本。
这个操作方法与一个工作表中引用另一个工作表的数据方法是差不多的．你可以直接输入也可以用鼠标点击．当然用鼠标点击要方便的多，毕竟输入还是比较麻烦的．鼠标点击单元格...
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'

我要回帖

更多关于 工作表 工作簿 的文章

 

随机推荐