vba - 重命名提取文件的位置

Question

我有一个可以重命名文件的 VBA 宏。我有该文件存在的完整路径，但我想独立于其位置重命名该文件。

Private Sub Workbook_Open()
    Dim sFileName As String, sNewFileName As String

    sFileName = "C:\Users\me\Desktop\text.txt"    
    sNewFileName = "C:\Users\me\Desktop\test1.txt"    
    If Dir(sFileName, 16) = "" Then MsgBox "File not found", vbCritical, "Error": Exit Sub

    Name sFileName As sNewFileName 'rename file

    MsgBox "file has been renamed"
End Sub

我的意思是，如果您使用此 Excel 文件和 text.txt 文件提取存档并启动它，它将找到 test.txt 并独立于其位置对其进行重命名.

Answer 1

您正在寻找ThisWorkbook.Path，它为您提供正在使用的工作簿的路径。因此，如果您的 txt 文件位于同一目录中，您可以使用如下内容:

sFileName = ThisWorkbook.Path & "\text.txt"  
sNewFileName = ThisWorkbook.Path & "\test1.txt"