dir函数重复返回第一个文件名

gaofei0316

Sub 文件改名()
    Dim wb As Workbook, MyPath As String, MyName, str1 As String
    MyPath = ThisWorkbook.Path & "\数据源\" '请自己修改路径，这个“需重命名工作簿”目录放在主文件所在目录
   MyName = Dir(MyPath & "*.xlsx")
    Application.ScreenUpdating = False
    Do While MyName <> ""
''        Set wb = GetObject(MyPath & MyName)
''        a2 = wb.Sheets(1).[a2]
''        d2 = wb.Sheets(1).[d2]
''        wb.Close False
        Name MyPath & MyName As MyPath & "北京市" & MyName
        MyName = Dir
    Loop

    Application.ScreenUpdating = True
    MsgBox "修改完毕"
End Sub
希望在每个excel文件名前加上北京市字段，但超过2个以上excel会有一个文件重复添加北京市字段，Myname 循环调用的时候会再次调用已改名的文件，不是很理解，下面的文件名多添加了一个北京市字段，谢谢大家解惑

gbgbxgb

尝试分析如下：
代码逻辑错误！
修改代码逻辑如下：
1.先用do循环结构，把目标文件夹中的待命名文件用Dir读取至内存数组；
2.再用比如For循环结构从前述数组中读取文件名，接着用Name命令修改文件名。

逻辑错误错在生成的文件被Do结构再Dir了。

gaofei0316

gbgbxgb 发表于 2023-3-2 17:35
尝试分析如下：
代码逻辑错误！
修改代码逻辑如下：

错在这一句 Name MyPath & MyName As MyPath & "北京市" & MyName 如果不使用Myname作为重命名的参数，是没有问题的。但是我不是太理解，有人能解答的更清楚些么，感谢

fzxba

gbgbxgb

gaofei0316 发表于 2023-3-2 17:51
错在这一句 Name MyPath & MyName As MyPath & "北京市" & MyName 如果不使用Myname作为重命名的参数，是 ...

说了逻辑错误了，怎么就点不醒你呢？

你说了不用MyName就可以，这不是自相矛盾吗？正因为Dir的是MyName，所以Name命令中的参数非得用它不可！！！

就你这回复来看，你把自个儿的代码思路整个推翻了。也就是说，你的逻辑越来越混乱了。

顺带提一下楼上建议的代码句，表面上看是解决了当前楼主说的问题，可哪时楼主换的字符串不是“北京市”，是“南京市”或“天津市”呢？谁来给楼主修改代码呀？再者，修来改去的不嫌烦哪！

MOY838840554

写成两个循环，第一个循环结果存字典里，第二个循环重命名

gaofei0316

gbgbxgb 发表于 2023-3-2 18:14
说了逻辑错误了，怎么就点不醒你呢？

你说了不用MyName就可以，这不是自相矛盾吗？正因为Dir的是MyNam ...

Sub 文件改名()
    Dim wb As Workbook, MyPath As String, MyName, str1 As String
    MyPath = ThisWorkbook.Path & "\数据源\" '请自己修改路径，这个“需重命名工作簿”目录放在主文件所在目录
   MyName = Dir(MyPath & "*.xlsx")
    Application.ScreenUpdating = False
    Do While MyName <> ""
      Set wb = GetObject(MyPath & MyName)
       a2 = wb.Sheets(1).[a2]
      d2 = wb.Sheets(1).[d2]
     wb.Close False
        Name MyPath & MyName As MyPath & a2 & d2 & ".xlsx"
        MyName = Dir
    Loop

    Application.ScreenUpdating = True
    MsgBox "修改完毕"
End Sub
Name MyPath & MyName As MyPath & a2 & d2 & ".xlsx" 这句话使用是没有问题的（根据文件夹的excelA2、D2单元格值重命名excel文件），Name MyPath & MyName As MyPath & "北京市" & MyName 这句话 使用后一个Myname就会出问题