动态工作薄名称

kangyunde · 发表于 2023-7-6 19:22

我做了一个运动会会的记分系统，其他的测试都很好，就是工作薄重命名后出错。Windows("新版本田径运动会记分系统.xlsm").Activate，就是这句代码。能不能重命名后自动匹配工作薄名称。其他的都没问题，就是想解决自动匹配工作薄名称

kangyunde · 发表于 2023-7-6 19:25

比如今年我命名为2023年运动会，明年命名为2024年运动会

kangyunde · 发表于 2023-7-6 19:28

D盘系统会自动生成一个运动会数据的文件夹，用来保存数据的

wengjl · 发表于 2023-7-7 08:28

括号里的新版本田径运动会记分系统.xlsm 要是一个变量，就不会出错了。
解决之法：在VBA的开头处，将文档名赋值给一个变量，如MYFILE，再在括号里用上这个变量，就没有你所说的问题了

kangyunde · 发表于 2023-7-7 08:31

wengjl 发表于 2023-7-7 08:28
括号里的新版本田径运动会记分系统.xlsm 要是一个变量，就不会出错了。
解决之法：在VBA的开头处， ...

具体如何加

wengjl · 发表于 2023-7-8 13:49

最前面加一句：myfile=ThisWorkbook.FullName

再把
Windows("新版本田径运动会记分系统.xlsm").Activate
换成
Windows(myfile).Activate

kangyunde · 发表于 2023-7-10 09:24

wengjl 发表于 2023-7-8 13:49
最前面加一句：myfile=ThisWorkbook.FullName

还是有问题，不知道哪出错

excel玉米 · 发表于 2023-7-10 10:01

没有看到你有重命名文件为：新版本田径运动会记分系统.xlsm
你现在的附件名称是：新版田径运动会记分系统.xlsm
当你没有这个文件对象时，是无法将其激活的：Activate

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

[求助] 动态工作薄名称