ThisWorkbook.Path & "\" 调取文件失败

jdm0109

Private Sub CommandButton1_Click()
   Dim 最后行号，i, j
   最后行号 = Range("A65536").End(xlUp).Row
   For i = 2 To 最后行号
      If Range("B" & i) <> "" Then
         Name ThisWorkbook.Path & "\" & Range("A" & i) As ThisWorkbook.Path & "\" & Range("B" & i)
         Range("A" & i) = Range("B" & i)
      End If
   Next i
   MsgBox "修改完毕"
End Sub

这是一个自动修改文件名的VBA，但是只要包含此文件名的文件夹路径中子文件夹越多，越找不到数据，不知为何

譬如，现在修改的路径是“D:\相关\2019--相关--2019\201901A\01-AB\CD\03\03公司\03.12公司\03.12公司的文件”
文件是“空白表 - 副本 (2).xls”

只要向上移动一个文件夹，就能找到文件，难道就多了一个文件夹 就无法识别了？这是为何？

望指导！

liulang0808

建议楼主上传附件吧，单元格里存放内容不了解，文件夹结构不清楚

jdm0109

在这个文件夹中，最末级有一个【批量修改文件名.xls】的文件，打开，就是第一楼的VBA代码，点击修改文件名就是失败

【上述文件夹是我模拟的层数】

jdm0109

jdm0109 发表于 2020-2-11 21:49
在这个文件夹中，最末级有一个【批量修改文件名.xls】的文件，打开，就是第一楼的VBA代码，点击修改文件名 ...

@liulang0808

jdm0109

liulang0808 发表于 2020-2-11 20:56
建议楼主上传附件吧，单元格里存放内容不了解，文件夹结构不清楚

请看三楼，我上传的文件夹【这是模拟嵌套的文件夹】

jdm0109

liulang0808 发表于 2020-2-11 20:56
建议楼主上传附件吧，单元格里存放内容不了解，文件夹结构不清楚

我刚测试了下，提取出路径字符数越多，只要超过长度超过140就无法取数（是不是dim赋值的限制？）

liulang0808

供参考。。。。。

jdm0109

liulang0808 发表于 2020-2-11 21:59
供参考。。。。。

打开就出现错误

liulang0808

jdm0109 发表于 2020-2-11 22:02
打开就出现错误

选择调试看下的，我这边运行没有问题的

jdm0109

liulang0808 发表于 2020-2-11 22:09
选择调试看下的，我这边运行没有问题的

只要这个VBA的excel更改位置 就会出现【来源与internet，可能不安全，是否编辑】点击编辑，就会出现上述问题，但是点击结束，又不影响，是否为【  Range("A2:A65536") = ""】调试出现在这个