Excel2007でこんな事出来ますか？

質問

あるフォルダーにa.xlsx,b.xlsx等多数のファイルがあります。
このファイル一つずつにグラフの元になる表があり数字が入っています。
今ある理由があってこの数字のＦＯＮＴを変えようとしています。
ファイル一つずつやっていくのは時間と労力が大変なのですが
フォルダーの中にあるファイルのＦＯＮＴをいっぺんに変える方法は何かあるでしょうか。たぶん無理と思うのですがお尋ねします。

回答No.2

fujillin · ベストアンサー

原型のみを・・・（エクセル上のマクロそのままです）

Sub change()
　Dim fs, f, f1, fc, wb, sh, fp, ftName
　fp = "D:\***********"　　 '←対象とするフォルダのパス
　ftName = "ＭＳ Ｐゴシック"　 '←変更後のフォント名称

　Set fs = CreateObject("Scripting.FileSystemObject")
　Set f = fs.GetFolder(fp)
　Set fc = f.Files
　For Each f1 In fc
　　　Workbooks.Open Filename:=f1.Path
　　　Set wb = ActiveWorkbook
　　　For Each sh In wb.Worksheets
　　　　　sh.Cells.Font.Name = ftName
　　　Next
　　　Application.DisplayAlerts = False
　　　wb.Save
　　　wb.Close
　　　Application.DisplayAlerts = True
　Next
　fs = Null
End Sub

注１）ファイルチェック等一切はぶいてます
注２）エクセル2000で確認しましたが、2007は不明

お礼

いやー面白いように出来ました。
厚くお礼申し上げます。
本当に有り難うございました。

回答No.1

kalze

数字の入っているセルに規則性があるなら
例）B列に入っているなど
VBAでできる

お礼

ヒントありがとうございました。