超源
发表于 2021-12-6 20:01:20
还算实用的功能
dickych
发表于 2021-12-11 15:24:20
感谢分享,收下了。
饭桶
发表于 2021-12-29 14:18:41
感谢楼主, 一直困扰的问题,好东西必须学习。
凌凌柒
发表于 2022-1-14 16:42:20
威望不够,下载不下来
凌凌柒
发表于 2022-1-14 16:44:46
没下载权限,我输入图号名称也是服服帖帖受不了拉
dickych
发表于 2022-1-22 14:19:32
谢谢楼主分享
Ranger003
发表于 2022-2-6 16:11:51
谢谢大佬,这样方便多了
xinshiji666
发表于 2022-2-11 16:31:56
t = Left(LTrim(e), 3)
这行代码有些多余吧!开始声明了 Dim e As String , 但并没有赋值,这里是想实现:如果文件名开头是“GBT”的话,就自动更改为“GB/T”,可这里的e是空字符串,没有赋值啊!试了一下,可以实现自动添加代号、名称属性,简单实用。
提个建议,程序执行完后,可以弹窗提醒,已完成。在倒数第二行插入:msg = MsgBox("OK", vbOKOnly)
挑剔的耳朵
发表于 2022-3-4 14:24:28
感谢楼主,有了这个东西真是太好了
雨季77
发表于 2022-3-6 14:51:54
谢谢分享,学习了。