'-------------------------------------------------------------------------------------- ' ' Excel フッタ設定スクリプト ' (指定したフォルダにあるExcelファイルのをフッタにファイル名をセットする) ' ' 注意点 スクリプト実行前にすべてのExcelアプリケーションを終了してください。 ' スクリプト実行中はマウス、キーボードを使用しないでください。 ' このスクリプトが異常終了した場合はExcelのプロセスを手動で終了してください。 ' '-------------------------------------------------------------------------------------- targetPath = InputBox("フッタを設定するディレクトリを入力","ディレクトリの指定","") if targetPath = "" then msgbox "設定を中止しました。" else 'このディレクトリのファイル一覧を取得する Set fileSystem = CreateObject("Scripting.FileSystemObject") Set targetFolder = fileSystem.getFolder(targetPath) Set fileList = targetFolder.Files 'ファイルの終端までループ For Each wkFile In fileList '対象ファイルがExcelならExcelで開く if wkFile.type = "Microsoft Excel ワークシート" then Set Excel = CreateObject("Excel.Application") Set wkBook = Excel.WorkBooks.Open(wkFile) 'シートの数ループする For i = 1 to wkBook.WorkSheets.Count Set xlsSheet = wkBook.WorkSheets(i) '拡張子を削除する settingValue = Replace(wkFile.Name,".xls","") & "&P" xlsSheet.PageSetup.CenterFooter = settingValue Excel.Visible = true Next 'Excelを終了する。 wkBook.Save wkBook.Close Excel.Quit end if Next msgbox "設定を完了しました。" end if