如何用宏将工作表名称替换成excel文件名

freemanzhong · 发表于 2019-9-12 13:52

有多个工作簿，每个工作簿里面都只有一个工作表。工作表名称都为sheet1，现想通过宏，将sheet1名称替换成对应工作簿文件名。万分感谢！

lh123lh1234 · 发表于 2019-9-12 15:04

喏，看下可以吧

lh123lh1234 · 发表于 2019-9-12 15:37

忘记说了，代码再VBA文件那个表上，因为你的表都是XLSX格式的，保存不了VBA

freemanzhong · 发表于 2019-9-12 15:50

lh123lh1234 发表于 2019-9-12 15:37
忘记说了，代码再VBA文件那个表上，因为你的表都是XLSX格式的，保存不了VBA

感谢！可是我这里显示编译错误：子过程或函数未定义。第一行就报错了。。。

lh123lh1234 · 发表于 2019-9-12 16:02

啊？简直不科学，都有定义，加个按钮你点按钮，还出错，截图我看下

freemanzhong · 发表于 2019-9-17 11:03

lh123lh1234 发表于 2019-9-12 16:02
啊？简直不科学，都有定义，加个按钮你点按钮，还出错，截图我看下

点运行然后弹窗出来这个，点确定之后，黄色高光sub 测试，也就是第一行。

lh123lh1234 · 发表于 2019-9-17 11:13

freemanzhong 发表于 2019-9-17 11:03
点运行然后弹窗出来这个，点确定之后，黄色高光sub 测试，也就是第一行。

你这改成了个什么，是InStr！！！不是L不是L

lh123lh1234 · 发表于 2019-9-17 11:15

我在想你是怎么复制的，复制过去I变成L了

freemanzhong · 发表于 2019-9-17 11:45

lh123lh1234 发表于 2019-9-17 11:13
你这改成了个什么，是InStr！！！不是L不是L

喔喔对不起，现在用是可以用了。但是所有工作簿里面工作表的名称都变成同一件文件名了，而不是对应的工作簿的名称。
比如：本来是a，b，c三个工作簿，里面都是sheet1.现在变成a，b，c三个工作簿，里面工作表名都是a了。

lh123lh1234 · 发表于 2019-9-17 11:52

freemanzhong 发表于 2019-9-17 11:45
喔喔对不起，现在用是可以用了。但是所有工作簿里面工作表的名称都变成同一件文件名了，而不是对应的工作 ...

你能不能运行我发给你的附件？

		自动登录	找回密码
密码			免费注册