ファイル名を変更して名前を変更しました

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

。だからあなたのtxtファイルは、あなたがこのようなものを使用することができ、同じディレクトリにある場合：

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

Answer 2

Excelファイルの場所がテキストファイルの場所と同じ場合は、方向パスを記述する必要はありません。

ちょうどその方向パスなしでファイル名を書く：あなたはあなたが使用しているワークブックのパスを与えるThisWorkbook.Pathを探している

sFileName = "test.txt"  
sNewFileName = "test1.txt"