VB批量按指定文件名复制并重命名指定另一文件名

yus99

网海遨游 发表于 2020-2-13 16:04
我刚看了,报错的原因,是因为你第28行是空值.才报错了.加了一句,排除空值.

Sub test()

您好，实在不好意思，今天重命名时，30个文件，怎么只有28个可以重命名，并报错。不知道是怎么回事。谢谢！
另外能不能写程序时，先打开找到待命名文件夹的位置，再自动建一个 重命名  文件夹，然后再复制重命名？谢谢！

网海遨游

第1个问题,表格中第30行中,[B30]单元格中有不可见字符(已经帮你删除),根据命名规则,此字符不能在文件名中,因此报错.
第2个问题,代码已经修改.详见附件.

yus99

网海遨游 发表于 2020-3-8 09:13
第1个问题,表格中第30行中,单元格中有不可见字符(已经帮你删除),根据命名规则,此字符不能在文件名中,因此报 ...

非常感谢，确实好！
第二个问题，我的想法是 点击 重命名按键，弹出菜单，在电脑上查找 文件夹（这个文件夹可能不叫源文件的文件夹），然后复制并重命名到与excel文件同一层的"重命名“文件夹中。
再次感谢！

网海遨游

你是想要这种结果吗？

renkangjizhen

参考一下这个代码，可以省去很多麻烦
Sub 文件改名()
Dim OldName As String, NewName As String
OldName = ThisWorkbook.Path & "\原文件名.txt"
NewName = ThisWorkbook.Path & "\新文件名.txt"
Name OldName As NewName
End Sub

newslin

冒昧的咨询一下大师们两个问题。我曾今肤浅的学过C#,大致晓得至少语句的运用。但好多年都忘记一干二净。现在想学习下VB,有没有很好的资料从头开始学。  其二，我也遇见想楼主一样的问题。但是更想在excel的D列添加存在的文件夹选项（我的意思是本案例中的目标文件夹可能是多个）我如何加一个if语句来实现复制并命名，并放入EXCEL中D列中的对应文件夹呢？感谢能给与解答。