10/06/10 17:59:31
>>285
Excel2003以下用
2007以降は拡張子がたくさん増えたから自分で工夫して
Sub いっぺんに名前変更()
ChDir "C:\data\ファイルがいっぱい入ってるフォルダ"
OldFilename = Dir("*.xls")
While OldFilename <> ""
Workbooks.Open OldFilename
NewFilename = Worksheets(1).Cells(1, 1)
ActiveWorkbook.Close
Name OldFilename As NewFilename & ".xls"
OldFilename = Dir()
Wend
End Sub