VBAから呼び出したbatファイルの処理がおかしい

Question

#VBAで呼び出したbatファイルがおかしい

手動で実行すると、batファイルとして処理がされます。
しかし、VBAからShell関数を使用してbatファイルを指定して、実行すると「指定されたファイルが見つかりません。」と表示されます。
しかし、cmd上で実行しているファイルまでのパスは同じなので、VBAで呼び出した際に何かパスが変わっていたりする可能性があるのでしょうか？

###処理の流れ
main →　shellbat (batファイルのパスを渡す)
shellbat (受け取ったパスのbatファイルの実行)
rename.csv(A列：元のファイル名 | B列：新しいファイル名)
rename.bat(rename.csvを読み込んでリネームする)

##エラーコード
指定されたファイルが見つかりません。

bat = "C:\sys\msexcel\請求書\" & PDFfolder & "\rename.bat"

Dim strPath As String
Dim RetVal As Variant

'Shellにパスやアプリケーション名を渡す時には注意！
'-------------------------------------------------
'注意①パスや名前に空白が無い場合は問題ありません
strPath = bat

'タスクID取得及び実行
RetVal = Shell(strPath, 1) 'vbMinimizedNoFocus

If RetVal <> 0 Then
    MsgBox strPath & vbCr & "実行されました。", vbInformation, "[タスクID]" & RetVal
Else
    MsgBox strPath & vbCr & "実行出来ません。", vbCritical, "[ERROR]"
End If

FOR /F "tokens=1,2 delims=," %%a in (rename.csv) do REN %%a %%b
pause

Comments

[ttyp03]

変数bat、strPathの値の確認はしていて問題ないということでしょうか？
「指定されたファイルが見つかりません。」を出力しているのはVBA側ですか？バッチファイル側ですか？
バッチファイルが呼ばれた後のカレントパスは確認していますか？
Excelファイルとバッチファイルのフォルダは別々ですか？
色々と情報が足りません。

[kingkamehameha]

strpathの値は確認していますし、batファイル(cmd)は起動出来ています。
「指定されたファイルガがみつかりません。」と表示されているのは、cmd側です。
バッチファイルが呼ばれた後のカレントパスは確認しています。
Excelとbatファイルは別々のフォルダです。Excelから2個下層のbatファイルを実行しようとしています。

[ttyp03]

バッチファイルが呼ばれた後のカレントパスを確認してみてどうだったのでしょうか？
バッチファイル内で参照しているrename.csvがあるフォルダを指しているのでしょうか？

[kingkamehameha]

カレントパスは実際に利用したいフォルダに通っていました。

Excelファイル-請求書-請求書xxxx

この請求書xxxxに該当のファイルと、renae.csv.とrenamebatが入っています。

[ttyp03]

CSVの中身はフルパス名で書かれているのでしょうか？相対パスでしょうか？

[kingkamehameha]

batファイル自体は下記の拾い物で、こちらで一切触っておりませんが、ここに問題があるのでしょうか？
https://profile.ne.jp/w/c-59556/

何故、手動で起動したらうまくいく物がVBAから呼び出すとエラーになるのでしょうか？

[ttyp03]

エラーが出るとき「REN ○○ ○○」と出ていると思いますが、そこのそれぞれのファイル名は正しいですか？

[kingkamehameha]

ファイル名は正しいですが、恐らくxlsmがあるフォルダを対象にしてしまっているようです。
xlsmと同じフォルダにファイルを置いた所、無事リネームされています。

bat = "C:\sys\msexcel\請求書\" & PDFfolder & "\rename.batが本来実行しているパスなのですが、リネーム対象としているフォルダは、"C:\sys\msexcel\請求書”の中になってしまっているようです。

[kingkamehameha]

恐らくbatで渡しているパスのbatファイルではなく、xlsmと同じフォルダのbatを起動しているようなのです。
パスに間違いはないのですが。。。。
batをDebug.Printで出力した結果 (C:\sys\msexcel\請求書\請求書一般\rename.bat
)

Answer 1

どのフォルダに何があるのかよくわからなくなりましたが・・・

バッチファイルの先頭でカレントディレクトリをバッチファイルがあるディレクトリに変更したらどうでしょうか。

CD %~dp0
FOR /F "tokens=1,2 delims=," %%a in (rename.csv) do REN %%a %%b
pause

Comments

[kingkamehameha]

Wscript.Shell関数を使用する事で問題なく起動する事が出来ました。

[ttyp03]

ん？回答した方法ではダメでした？

[kingkamehameha]

回答頂いた方法を実行する前に、WScript.Shellで実行したので自己解決に記入してしまいました。
ttyp@03さんに回答頂いた方法で試してみました。

[ttyp03]

すみません、１行目に余計なcdがついていたので削除しました。
こちらでお試しください。

[ttyp03]

で、どうでしたか？

Answer 2

#Shell関数ではなくWScript.Shell関数を使えってことらしい。
Shell関数ではChDirをしても効かないようで、CurrentDirectoryで移動して、"""rename.bat"""とすれば無事実行できました。ダブルクォーテーションで囲むのは、エスケープ文字にするためです。