オレの覚え書きカテゴリ
オレのお気に入り
  • カテゴリ プログラム開発用メモ の最新配信
  • RSS
  • RDF
  • ATOM

オレの覚え書き - エクセルを使ってファイル名変更

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

カテゴリ : 
プログラム開発用メモ
執筆 : 
waruwaru 2011/2/23 5:51
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
  • コメント (0)
  • トラックバック (0)
  • 閲覧 (1007)

トラックバック

トラックバックpingアドレス http://waruwaru.net/modules/d3blog/tb.php/31
List of goods
スポンサー
Powered by XOOPS Cube 2.1© 2001-2006 XOOPS Cube Project