5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 92

288 :名無しさん@そうだ選挙にいこう:2010/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

338 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)