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