网页
资讯
视频
图片
知道
文库
贴吧
地图
采购
进入贴吧
全吧搜索
吧内搜索
搜贴
搜人
进吧
搜标签
日
一
二
三
四
五
六
签到排名:今日本吧第
个签到,
本吧因你更精彩,明天继续来努力!
本吧签到人数:0
一键签到
成为超级会员,使用一键签到
一键签到
本月漏签
0
次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行
补签
。
连续签到:
天 累计签到:
天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
09月24日
漏签
0
天
vba吧
关注:
16,894
贴子:
65,715
看贴
图片
吧主推荐
游戏
6
回复贴,共
1
页
<<返回vba吧
>0< 加载中...
求个vba代码,感激大神
只看楼主
收藏
回复
羽柔子
人海孤鸿
4
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
本文件夹里有若干个excel文件,要把每个文件里面sheet(只有一個sheet)批量改成统一的指定名字
ISD_狮子座
初涉江湖
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
非常简单,首先获取指定文件夹内所有文件的路径,然后逐个打开,之后再改表名保存关闭就是了
跟着南哥混3天饿9顿
初涉江湖
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
有没有人共享自定义函数___类___等的?
第12楼
水里的小鱼
四方游侠
5
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
写三个函数 第一个函数为主函数调用第二个和第三个函数 第二个函数利用fso对象模型和递归函数获取文件名 并调用第三个函数打开工作薄完成改名 第三函数用来打开工作薄并改名
烟雨江南ooo
自成一派
12
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
指定的sheet名字是什么样的,原名字又是什么样的,你得发出来看看有什么规律
阳光上的桥
后起之秀
7
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
sub 宏1()
dim p,f
p="d:\documents\" ' 所在的文件夹,必须以\结尾
f=dir(p & "*.xls*")
while f<>""
with workbooks.open(p & f)
.sheets(1).name="统一的指定名字"
.save
.close
end with
f=dir
wend
end sub
登录百度账号
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示