用Power Query及Power Pivot后Excel文件名更改后能自适应更改而...

如题，现有一个EXCEL文件名“测试”，里面用了Power Query及Power Pivot两个工具，如果我将Excel文件“测试”更改为其他名字，则Power Query及Power Pivot数据不能自动更新，能不能利VBA或其他办法让Power Query及Power Pivot数据库自适应EXCEL文件名的更改？这个问题苦恼我很久了，我一直是查阅坛子里的内容，几乎没发过贴子，麻烦哪位大神给想个办法，感谢！

是不是新人不能上传附件？

从文件夹获取所有文件，找规则，筛除所有不要的表，剩下的就是那个乱改名字的表，话说你这名字改来改去，休息几天回来，你还找的到它吗？

从文件夹获取所有文件，找规则，筛除所有不要的表，剩下的就是那个乱改名字的表，话说你这名字改来改去，休 ...

工作需要，确实需要更改名称，并不是乱改名字。

我有名称不改，路径如果有更改的代码，有需要的可以用，已测试是可以的。哪位大神提供一下路径，文件名都更改的代码？
路径变更代码如下：
Sub RefreshSource()
  Dim wbQ As Queries
  Dim strPath As String

  Set wbQ = ThisWorkbook.Queries
  For i = 1 To wbQ.Count
   If InStr(wbQ.Item(i).Formula, "File.Contents(""") > 0 Then
    '获取文件地址
   strPath = Split(Split(wbQ.Item(i).Formula, "File.Contents(""")(1), """")(0)
  '拆分出文件夹地址
    strPath = Left(strPath, InStrRev(strPath, "\") - 1)
    ElseIf InStr(wbQ.Item(i).Formula, "Folder.Files(""") > 0 Then
    '获取文件夹地址
    strPath = Split(Split(wbQ.Item(i).Formula, "Folder.Files(""")(1), """")(0)
  End If
  '替换formula中的地址为当前文件所在的文件夹地址
  wbQ.Item(i).Formula = VBA.Replace(wbQ.Item(i).Formula, strPath, ThisWorkbook.Path)

  Next
  If strPath  "" Then
  MsgBox "已更新数据源文件的路径为当前文件夹所在的文件夹。" & vbCrLf _
     & ThisWorkbook.Path, vbInformation + vb0K0nly, "提示信息"
Else
  MsgBox "未检测到可以更改的文件路径。", vbExclamation + vb0K0nly, "提示信息"
End If
End Sub

元芳你怎么看？

我擦！我要沙发！

鼎力支持！！

支持一下云发教育！

顶顶更健康