网页
资讯
视频
图片
知道
文库
贴吧
地图
采购
进入贴吧
全吧搜索
吧内搜索
搜贴
搜人
进吧
搜标签
日
一
二
三
四
五
六
签到排名:今日本吧第
个签到,
本吧因你更精彩,明天继续来努力!
本吧签到人数:0
一键签到
成为超级会员,使用一键签到
一键签到
本月漏签
0
次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行
补签
。
连续签到:
天 累计签到:
天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
06月01日
漏签
0
天
vba吧
关注:
16,765
贴子:
65,065
看贴
图片
吧主推荐
游戏
9
回复贴,共
1
页
<<返回vba吧
>0< 加载中...
求大佬解惑
只看楼主
收藏
回复
尹雪艳永远也不老
初涉江湖
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
对这串代码有很多疑惑
,这个是用来整合外部的文件的,这些表格里面都有不同数量的表格。
1.set为啥在第四行不需要用上
2.第六行open不是动作吗,为啥可以赋值
3.表格的复制粘贴不应该要提前建好新表格吗,为啥这个上面没有
4.如果按照第3个问题写的话,该怎么写啊
尹雪艳永远也不老
初涉江湖
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
学不懂的时候真的好痛苦啊
Magic_Lyan
人中龙凤
11
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
1.为str变量赋值的是一个dir函数,因此不需要使用set关键字
2.open打开的最后结果是一个object对象,而对象是不能直接赋值到变量的因此要使用Set关键字用来设置对象
3.你已经用open方法打开一个工作表了(只不过看不到而已),那么对打开的这张工作表做copy方法有什么问题吗?
最后使用split函数重命名新copy的那张工作表
❦❧幻❦蝶❧❦
DwcCC
人中龙凤
11
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
1.set为啥在第四行不需要用上
set 一般用于对象。我这里有个建议给你,就是一般set后的对象 可以写子属性
比如说 set sht=sheets(sheets.count) 把 最后一张表 给了sht
那么我们可以用 sht.name=xxx这样来改变他的子属性
str=dir给的是一串文本 所以不需要set str也没有子属性。
2.第六行open不是动作吗,为啥可以赋值
首先 我们程序是从右往左执行的。 比如 i=i+1 先执行i+1然后再把 结果赋值给I
set wb=workbook.open(xxx)
先打开某个工作簿,然后把这个工作簿 给了变量 WB
你可以 不set 也可以打开 workbook.open "xxxx.xxxx"
你么你需要再用 set wb=workbooks(xxx.xxxx) 把这个工作表赋值给wb方便操作。
一次性打开并且赋值更为方便。尤其是以后用到shape更要使用set
3.表格的复制粘贴不应该要提前建好新表格吗,为啥这个上面没有
你新建表格,然后把数据复制过去,那么你复制的不是表格而是单元格。
先sheets.add 然后 原来的sheets("旧").cells.copy sheets("新").range("A1")
是不是 执行了 单元格的复制过程
sheet.copy 就是把表格复制过去,就跟你手工操作再表格名称上右键,复制移动。
4.如果按照第3个问题写的话,该怎么写啊
set xxx=Sheets.Add(after:=Sheets(Sheets.Count))
xxx.name=xxxxx
sheets("旧").cells.copy xxx.range("A1")
贴吧用户_Q12DaVK
人中龙凤
11
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
学习过
登录百度账号
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示