「ExcelのStyleを削除する」
ネタは沢山ページがあると思いますが
どうせならば一味違うものをということで作ってみました。
下ごしらえ。
以下コードをメモ帳に張り付けて保存する。
出来上がったテキストファイルの拡張子をtxt→vbsに変更する。
使い方。
Styleを削除したいExcelファイルをドラッグ＆ドロップする。
複数ファイルをまとめてドラッグ＆ドロップしてもOK!
注意点。
まともにエラーハンドリングしていないので
気を付けて使ってください。(笑)
垂れ流しコードです。構造化は気が向いたらします。
使ったよ♪っている奇特な人がいたらコメントくれると嬉しいかな〜◎
よろ〜☆
'-----------------------------------------------------------------------
Option Explicit
On Error Resume Next
Dim Args, Arg
Set Args = WScript.Arguments
Dim ExcelApp, ExcelBook
Set ExcelApp = CreateObject("Excel.Application")
Dim Builtins, Builtin
Builtins = Array( _
"20% - アクセント 1", "20% - アクセント 2", "20% - アクセント 3", _
"20% - アクセント 4", "20% - アクセント 5", "20% - アクセント 6", _
"40% - アクセント 1", "40% - アクセント 2", "40% - アクセント 3", _
"40% - アクセント 4", "40% - アクセント 5", "40% - アクセント 6", _
"60% - アクセント 1", "60% - アクセント 2", "60% - アクセント 3", _
"60% - アクセント 4", "60% - アクセント 5", "60% - アクセント 6", _
"アクセント 1", "アクセント 2", "アクセント 3", _
"アクセント 4", "アクセント 5", "アクセント 6", _
"タイトル", "チェック セル", "どちらでもない", _
"Percent", "メモ", "リンク セル", "悪い", "計算", "警告文", _
"Comma [0]", "Comma", "見出し 1", "見出し 2", "見出し 3", "見出し 4", _
"集計", "出力", "説明文", "Currency [0]", "Currency", "入力", "Normal", "良い")
Dim Style
Dim IsBuiltin
For Each Arg In Args
MsgBox Arg
Set ExcelBook = ExcelApp.Workbooks.Open(Arg)
For Each Style In ExcelBook.Styles
IsBuiltin = False
For Each Builtin In Builtins
If Builtin = Style.Name Then
IsBuiltin = True
Exit For
End If
Next
If IsBuiltin = False Then
Style.Delete
End If
Next
ExcelBook.Close
Next
MsgBox "処理終了"
'-----------------------------------------------------------------------excel style 削除
