2020年05月26日

Excel 名前定義をすべて削除する

'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
タグ:Excel VBScript
posted by Hiro at 19:15| Comment(6) | プログラム
この記事へのコメント
Hum Saath Saath Hain-DVDRip-x264-1CDRip- [DDR] .mkv,madagascar4moviefreedownloadinhindi,Fifa Manager11テァ窶楪。テヲ窶凪┐テ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ーテ」ニ停「テ」ニ陳ォテ」ニ陳静」ニ陳シテ」窶堋クテ」ニ陳ァテ」ニ陳ウテ」ツ�ツョPC https://colab.research.google.com/drive/1M7SPZfGenoPjnpUVNkWvOi2JI1VIhV8k
60a1537d4d birdsep
Posted by birdsep at 2022年08月07日 08:24
テ」ニ停凖」ニ陳ウテ」ニ停。テ」窶堋」テ」ニ陳シティツェナセテ」ツ�ツョHDテ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ーテ」ツ�ツァテヲ窶督ーテヲ窶槐クテヲナク窶愿」ニ停「テ」窶堋。テ」窶堋、テ」ニ椎テ」ニ陳ォテ」窶堋ィテ」窶堋ッテ」窶堋ケテ」ニ停氾」ニ陳ャテ」窶堋ケテ」ツ�ツョテヲヒ慊テァ窶敖サ,テ」ニ椎クテ」窶堋ケテ」窶堋ソテ」ニ陳シテ」ニ停愿」ニ陳シテ」ニ陳ウテ・窶ヲツィテ」窶堋ィテ」ニ停敕」窶堋ステ」ニ陳シテ」ニ停ーテ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ーmp4,Lezioni Di Economia Aziendale Giappichelli Pdf 22
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/
Posted by elmprie at 2022年08月07日 15:11
redsailrs1360cテ」ニ停氾」ニ陳ュテ」ニ槌津」窶堋ソdriver.199,kitabmanaqibnurulburhanpdf24,Dostiテ」窶壺凖」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー-テ」ニ停凖」ニ陳ウテ」ニ停。テ」窶堋」テ」ニ陳シティツェナセテ」ツ�ツァFriendsForever hd720pテ」ニ停「テ」ニ陳ォテ」ニ陳テ」ニ陳シテ」ニ停愿」ニ陳シ
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/
Posted by roelche at 2022年08月08日 02:20
テ」ニ停テ」ニ陳ャテ」ニ陳�テ」ニ陳」テ」ニ陳シテ」窶堋クテ」ニ陳」テ」ニ陳シmensurageodesテ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッgratuite,Xforce Keygen Revit LT2019テ」窶堋「テ」窶堋ッテ」ニ停テ」窶堋」テ」ニ停┐テ」ニ陳シテ」窶堋キテ」ニ陳ァテ」ニ陳ウテ」窶壺凖」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー,ontwerp en analysis bernard leupen pdf 34
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/
Posted by lawrbea at 2022年08月08日 03:37
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント: