'Excelファイルの名前定義をすべて削除する
'excel_remove_names.vbs
'引数のチェック
Set args = WScript.Arguments
If args.Count > 0 Then
file = args(0)
If Right(file,4) = ".xls" Or Right(file,5) = ".xlsx" Then
'Excelファイルは続行する
Else
Msgbox "Excelファイルではありません。", vbExclamation, "警告"
WScript.Quit
End If
Else
Msgbox "Excelファイルをvbsファイルにドラッグアンドドロップしてください。", vbInformation, "情報"
WScript.Quit
End If
'Excelオブジェクトを取得
Set excelApp = CreateObject("Excel.Application")
'ブックを開く
Set workbook = excelApp.Workbooks.Open(file)
excelApp.Visible = True
'正規表現オブジェクト
Set objRE1 = CreateObject("VBScript.RegExp")
Set objRE2 = CreateObject("VBScript.RegExp")
objRE1.Pattern = ".*!Print_Area$"
objRE2.Pattern = ".*!Print_Titles$"
'非表示の名前を表示
Dim curName
Dim cnt
cnt = 0;
For Each curName In workbook.Names
If name.Visible = False Then
name.Visible = True
cnt = cnt + 1
End If
Next
'各シートの操作
For Each curName In workbook.Names
'印刷範囲、印刷タイトルは除く
if not objRE1.Test(curName.name) and not objRE2.Test(curName.name) Then
'削除実施
On Error Resume Next
curName.Delete
On Error Goto 0
cnt = cnt + 1
end if
Next
if cnt > 0 then
'ブックを保存
workbook.Save
end if
'ブックを閉じる
workbook.Close
Set workbook = Nothing
excelApp.Quit
Msgbox "処理が完了しました。" & vbNewLine & file, vbInformation, "情報"
WScript.Quit
2020年05月26日
Excel 名前定義をすべて削除する
posted by Hiro at 19:15| Comment(6)
| プログラム
60a1537d4d birdsep
60a1537d4d elmprie
https://colab.research.google.com/drive/1sQEV5r_9rqKw7-3LukWSxUJzBpZAHTxe
https://colab.research.google.com/drive/1vYTmimW1xEr72_33SNu3Rn0ULcp_LTmU
https://colab.research.google.com/drive/1TnVI4pTELTSLR7LIxA3SeuUnHSt7OxKW
https://colab.research.google.com/drive/1PPcqjsy3GiQlZRLZ0Fhz7dvr9NJXleBH
https://colab.research.google.com/drive/1WKk1-47bMBmTCDOdp0QEx8-J_GZhdbki
https://hackandsci.com/index.php/2020/01/07/123/
60a1537d4d roelche
https://colab.research.google.com/drive/1DXZAaAAuetztFHLYiOaLrHd4nXthASeJ
https://colab.research.google.com/drive/1FM2Lb-tUpb-1nzu3-_TNh-kZ9RMd2JUI
https://colab.research.google.com/drive/1iWR6hKXklAMWPSKe5kRkLO4EX1qJYiPn
https://colab.research.google.com/drive/1ovV9mOmiQFbOiZXVIjM9TS7TrV4KPg4E
https://colab.research.google.com/drive/1qn2n2IlCxUE4Ev1bY_6WO9flNw0fAGYo
https://huizapol.com/logo_huizapol_blanco/
60a1537d4d lawrbea
https://colab.research.google.com/drive/1Oa4IJ6Jlv4IHYWZ4xVIzcJ7TSn-vTc94
https://colab.research.google.com/drive/1kpSQBxIqjT1SBwER7K4-g8SSdgGW0dZA
https://colab.research.google.com/drive/19S14HetoZ1_rbJv2pKf7H71fz4CxgRct
https://colab.research.google.com/drive/1wJ1zW2SspVhJ8rPMHa4NQnARQgi6x4ZB
https://colab.research.google.com/drive/1xnTBp8zgutOxf-siLDAGR7c3oEw2-hYx
https://fchauingen.de/2016/09/29/ruecktritt-von-marina-schulz/
https://imgur.com/LfTwp9J
https://imgur.com/90Ce1Hb
https://imgur.com/W85qjck
https://imgur.com/kiru2wa
https://imgur.com/RJkqKR4
https://imgur.com/oS8bAM6
https://imgur.com/O9Fk1kb
https://imgur.com/z9PPYR5
https://imgur.com/UV6wS7q
https://imgur.com/yYb7xuu
https://imgur.com/d7PWUUJ
https://imgur.com/0CdsrjB
https://imgur.com/WBLcxFa
https://imgur.com/rSbk0Ki
https://imgur.com/Hw0rfNN
https://imgur.com/PXv8sMa
https://imgur.com/R01et0i
https://imgur.com/Z9UdTlJ
https://imgur.com/lb1c0Cn
https://imgur.com/AuPfw6R
https://imgur.com/5dvSekU
https://imgur.com/F3Ojxbs
https://imgur.com/d77XdP8
https://imgur.com/h4SH38s
https://imgur.com/6gFoICt
https://imgur.com/LX19khE
https://imgur.com/edTzIzc
https://imgur.com/ZE42g8t
https://imgur.com/5ilGI4t
https://imgur.com/kz1Zql8
https://imgur.com/StTKTO5
https://imgur.com/H8NwxHe
https://imgur.com/v4XQGpF
https://imgur.com/uV5qpsJ
https://imgur.com/siGx2bJ
https://imgur.com/V90x0Po
https://imgur.com/dBJoym8
https://imgur.com/1Ol0cGG
https://imgur.com/NoHsAyr
https://imgur.com/XxkwK8Y
https://imgur.com/ZFQwSLT
https://imgur.com/e3kgc4L
https://imgur.com/0idcmKG
https://imgur.com/DZ8Yr7V
https://imgur.com/Gl70RJz
https://imgur.com/GfALeuG
https://imgur.com/62cWYNx
https://imgur.com/4qaZy6S
https://imgur.com/Uw6zfce
https://imgur.com/LY49TAI
https://imgur.com/SQkq2Qi
https://imgur.com/gqUmfTM
https://imgur.com/XVWUAmF
https://imgur.com/lyVoADq
https://imgur.com/48odu64
https://imgur.com/SAk9j2Q
https://imgur.com/1PBw6rc
https://imgur.com/o6juZx3
https://imgur.com/7wguvhn
https://imgur.com/kKK4Em3
https://imgur.com/H6XnTao
https://imgur.com/yFYzzBp