[[20230227155245]]　『【VBA】ファイル名変更』（トリちゃん）　ページの最後に飛ぶ

『【VBA】ファイル名変更』（トリちゃん）

こんにちは。
マクロと同じ階層のフォルダ内にある、pdfファイルの名前を変更したいですが、★の箇所で"ファイルが見つかりません"とエラーが出てしまいます。
★より上は上手くいっているようですが、どこが間違っているのか分かりません。
どなたかご教授ください。
よろしくお願いいたします。

Sub test()
Dim fso As Object
Dim pathTxt As String, filePath As String, newFileName As String
pathTxt = ThisWorkbook.Path & "\PDF"
If Dir(pathTxt & "\" & "*.pdf") <> "" Then

    filePath = Dir(pathTxt & "\" & "*.pdf")
    newFileName = "Google通信.pdf"
    Set fso = CreateObject("Scripting.FileSystemObject")
    '★
    fso.GetFile(filePath).Name = newFileName
End If
Set fso = Nothing
End Sub

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

filePath = Dir(pathTxt & "\" & "*.pdf")
で何が返ってきているか確認してください。想定したものですか？
デバッグ手法はご存じないですか？

（abc） 2023/02/27(月) 16:03:54

ありがとうございます。
デバッグ済みで、filePathにはGoogle通信_20221209.pdfが入っております。
こちらは、現在のフォルダ内に入っているpdf名ですので、問題ないように思います。
（トリちゃん） 2023/02/27(月) 16:12:46

イミディエイトウインドウで
?CurDir
としたものが、
pathTxt = ThisWorkbook.Path & "\PDF"
と合致しているんですか？

（abc） 2023/02/27(月) 16:20:06

 fso.GetFile(filePath)
               ↑
　　　　　　　フルパスで
（´・ω・`） 2023/02/27(月) 16:21:56

＞abcさん
はい、合致しておりました。

＞（´・ω・`）さん
ヒントをありがとうございます。
フルパスに書き換えましたら、無事動きました。

少し改良しまして↓のように致しました。
解決いたしました。
お二方、ありがとうございました。

Sub test()
Dim fso As Object
Dim pathTxt As String, filePath As String, newFileName As String
pathTxt = ThisWorkbook.Path & "\PDF"
If Dir(pathTxt & "\" & "*.pdf") <> "" Then

    filePath = Dir(pathTxt & "\" & "*.pdf")
    If filePath <> "Google通信.pdf" Then
        newFileName = "Google通信.pdf"
        Set fso = CreateObject("Scripting.FileSystemObject")
        fso.GetFile(pathTxt & "\" & filePath).Name = newFileName
    End If
End If
Set fso = Nothing
End Sub

（トリちゃん） 2023/02/27(月) 16:44:46

それでファイル名だけ与えたときにファイルなしになった原因は判明したんですか？
想定したもの（ThisWorkbook.Path & "\PDF")がカレントフォルダになってるのであれば、
エラーにはなりません。
たぶんThisWorkbook.PathがCurDirになっているんでしょう。確認が不十分なだけだと思います。

# 私だったら、原因がわかって納得するまで調べるけどね。まあ。人それぞれですけど。

（abc） 2023/02/27(月) 20:33:53

コメント返信：

[ 一覧(最新更新順) ]

[[20230227155245]] 『【VBA】ファイル名変更』（トリちゃん） ページの最後に飛ぶ

[[20230227155245]]　『【VBA】ファイル名変更』（トリちゃん）　ページの最後に飛ぶ