エクセルでファイル変換 こっちを使った方がお手軽

エクセルでファイル変換
ホームページは下記
http://www.vector.co.jp/soft/winnt/util/se474835.html
エクセルで複数のファイルのリネーム・移動・コピー・圧縮といった一括変換を行う。
複数ファイルの揉み込みしてから変換が出来るので便利

エクセルを使ってファイル名変更

Public Sub ファイル名変換()

‘**************************************************************
‘*
‘* セルの1列目のファイル名を2列目のファイル名に変換
‘* このサンプルではドライブ名フォルダ名はプログラム上で設定
‘* データは変換して別のフォルダに変更
‘*
‘**************************************************************

Dim OldName As String ‘変更前の名前
Dim newName As String ‘変更後の名前
Dim i As Integer ‘ 添字用

For i = 1 To 100 ‘セルの1行目から100行目までを変換
If Cells(i, 1) <> “” Then ‘念のため1列目に何も入っていなければ処理しない

OldName = “c:\test\” & Cells(i, 1)
newName = “c:\test\hennkann” & Cells(i, 2)
FileCopy OldName, newName ‘ファイルをコピー
End If
Next i
End Sub