リストとおりファイル名変更

質問

「C:\test」にあるファイルのファイル名を変更したいです。ファイル名は日本語とハングルが混ざっていまして、元のファイル名と新しいファイル名は図のようにリストに載っています。ファイルの数は1000以上で、手作業ではとても時間がかかります。vbaで処理できないでしょうか？
現在使っているExcelは2007の日本語のバージョンです。vbaエディターはハングルは認識されないみたいです。
パス C:\test
元ファイル名 新ファイル名
日本語1 한글1.xlsx 한글1 日本語1.xlsx
日本語2 한글2.xlsx 한글2 日本語2.xlsx
日本語3 한글3.xlsx 한글3 日本語3.xlsx
日本語4 한글4.xlsx 한글4 日本語4.xlsx
日本語5 한글5.xlsx 한글5 日本語5.xlsx

ネット上の情報に従っていろいろ試してみましたが、うまくいかず困っています。どなたか教えていただけないでしょうか。よろしくお願いいたします。

回答No.1

asciiz · ベストアンサー

私なら、面倒なマクロは組まずに、そのリストの横にコマンドラインで実行できるコマンドを作り、コピーして、実行します。

まずC3セルに

="ren "&A3&" "&B3

を入力し、フィルハンドルをダブルクリックしてリスト終端までコピーします。

全行にren (Rename 命令)が入ったら、C列全体を選択して、コピーします。

次に「コマンド プロンプト」を起動します。
コマンドラインから、

cd \test [Enter]

と入力すると、「C:\test>」という表示になると思います。

そうしたら、コマンドプロンプトのウインドウの、左上アイコンから、編集(E)→貼り付け(P) を選択します。
すると、先ほどコピーしたコマンドがすべてペーストされて実行されるので、しばらく眺めていれば、終わります。

----

しかしまあ、何かのミスもあるかもしれないので、あらかじめファイルを複製して、実行した方がいいかもしれませんね。
無事に終了すれば、削除すればいいのですし。

お礼

ご回答ありがとうございました。
vbaより非常に分かりやすく簡単な方法がありましたね！大変勉強になりました。今後ともよろしくお願いいたします！

回答No.3

SI299792

うっかりしていました。VBA でハングル文字は扱えません。
回答の鳥軽視はできないので、私の回答は無視して下さい。

お礼

貴重なお時間いただきありがとうございます。今後ともよろしくお願いいたします。

回答No.2

SI299792

Option Explicit
'
Sub Macro1()
　　Dim Row As Integer
'
　　For Row = 3 To [B1].End(xlDown).Row
　　　　On Error Resume Next
　　　　Name [B1] & "\" & Cells(Row, "A") As [B1] & "\" & Cells(Row, "B")
　　Next Row
End Sub