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(12) | プログラム
この記事へのコメント
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
Mcgs Embedded Configuration Software 128lテ」窶壺凖」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ーテ」ツ≫┐テ」窶壺ケ,テ」窶堋ウテ」ニ陳シテ」ニ陳ォテ」窶堋ェテ」ニ停禿」ニ停。テ」ニ陳・テ」ニ陳シテ」ニ停テ」窶堋」テ」ニ陳「テ」ニ停ぎテ」ニ陳ウテ」窶堋ヲテ」窶堋ゥテ」ニ陳シテ」ニ停「テ」窶堋ァテ」窶堋「3テ」ニ停禿」ニ陳ゥテ」ニ槌津」窶堋ッテ」ニ椎禿」ニ槌津」窶堋ッテ」窶堋ケテ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッ94,Quotazioni Usato QuattroruotePdfテ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー http://images.google.lk/url?sa=t&url=https://wincollection.net/
7193e21ce4 yazvola
Posted by yazvola at 2022年09月12日 12:09
qawaid dakwah ilallahpdfテ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー,Azov Films 49 4 Boys Sauna Avi,テ」ニ陳エテ」窶堋。テ」ニ陳ォテ」窶堋ュテ」ニ陳ェテ」窶堋「テ」ニ停ケテ」ニ陳ァテ」窶堋ヲテ」窶堋ソテ」窶堋、テ」窶堋ュテ」ニ陳ァテ」窶堋ヲテ」ニ陳ゥテ」ニ陳ウテ」ニ塚愿」窶堋、テ」窶堋コテ、ツケ邃「テ・ツ・ツウCGrar
74cd785c74 reyneli
https://filebear.org/
https://filesbag.net/
https://searchfiles.net/
https://winhorse.net/
https://crackthat.net/


http://denovaagro.com/en/micropropagation-of-paulownia/
Posted by reyneli at 2022年09月23日 06:31
テ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッテ」ニ停佚」ニ陳ゥテ」ニ停「テ」ニ陳ャテ」窶堋ュテ」窶堋キテ」窶堋オテ」窶堋、テ」ニ陳ウ10.0.1447,dil to pagal hai blu raytorrentテ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー,テ」窶堋ソテ」ニ椎クテ」ニ陳ォティツェナセPDFテ」ツ�ツョテ」窶堋ソテ」ニ陳ェテ」ニ陳シErp9テ」ニ停「テ」ニ陳ォテ」ニ陳�テ」ニ陳・テ」ニ陳シテ」ニ塚�テ」ニ陳ェテ」窶堋「テ」ニ陳ォテァ窶楪。テヲ窶凪┐テ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー
74cd785c74 succonq
https://cracksmage.com/
https://cracksmagic.com/
https://cracksprofi.com/
https://cracksrate.com/
https://cracksto.com/


http://old.rsatu.ru/sites/priem/index.php?option=com_easybookreloaded
Posted by succonq at 2022年09月23日 14:55
テ」窶堋オテ」ニ陳ウテ」ニ停氾」ニ陳ォHardtekテ」窶壺凖」ニ停佚」ニ槌津」窶堋ッテ」ツ≫┐テ」窶壺ケ,HOROSOFT Professional Edition 4.0 Patch.rar,Computer Era Telugu MagazinePdfテ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー
74cd785c74 fiomee
https://appscracks.com/
https://softscollection.com/
https://newcracks.org/
https://wincollection.net/
https://winprograms.org/


http://denaalum.com/en/%D8%AE%D8%A8%D8%B1-3/
Posted by fiomee at 2022年09月23日 22:48
SecretNeighborFreeDownloadCrackSerialKey,[FSX P3D] AflOSim-テ」ニ停禿」窶堋ォテ」ニ陳ャテ」窶堋ケテ」ニ塚�-テ」窶堋「テ」ニ陳ウテ」ニ陳ェテ」窶堋ウテ」窶堋「テ」ニ陳ウテ」ニ停ぎLROPv2.4テ」窶堋ュテ」ニ陳シテ」窶堋クテ」窶堋ァテ」ニ陳催」ニ陳ャテ」ニ陳シテ」窶堋ソテ」ニ陳シ,vivaxテ」ニ停「テ」窶堋。テ」ニ陳シテ」ニ陳テ」窶堋ヲテ」窶堋ァテ」窶堋「19
74cd785c74 nathhed
https://softscollection.com/
https://filescracks.net/
https://exe2zip.com/
https://4windows.net/
https://filesduck.com/


https://www.speakerjapan.com/phone/bbs
Posted by nathhed at 2022年09月24日 05:53
テ・ツキツヲ4テヲツュツサティ竄ャ窶ヲ2gameinfo.txt,テ」窶堋「テ」ニ陳。テ」ニ陳ェテ」窶堋ォティ窶ケツアティツェナセテ」ニ停「テ」窶堋。テ」窶堋、テ」ニ陳ォ2テヲ窶「邃「テ・ツクツォテァ窶敖ィテヲナ督ャテァ窶楪。テヲ窶凪┐テ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー,pablo giussani montoneros la soberbia armadapdfテ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー
74cd785c74 allialr
https://4windows.net/
https://filesduck.com/
https://fatfolder.com/
https://fatfiles.net/


https://www.permis-bateau-provence.fr/les-permis-bateau/permis-cotier-279/
Posted by allialr at 2022年09月24日 12:12
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント: