Excelのフッタに値を設定するスクリプト

'--------------------------------------------------------------------------------------
'
'	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