返回列表 上一主題 發帖

Excel新增Sheet再刪除並Save謎思

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-8-2 00:39 | 只看該作者

Excel新增Sheet再刪除並Save謎思

VBA
最近在做一些資料下載並分析整理程序，
因為下載的Sheet純粹只要做資料的排序分析，
分析完畢再將正確結果填入新增Sheet，
程序完畢後刪除下載Sheet並存檔。
然而發現以下程序會造成Excel檔案大小不斷增大，
不知道是什麼原因會增加檔案大小，
網上爬文查了很多相關訊息，
大多都是只Microsoft的Bug，
這問題已存在很久了，
或是各位先進有解決方式?
  1. Sub ClearSheets()
  2. Application.DisplayAlerts = False
  3. Worksheets.Add Count:=5, Before:=Sheets(1)
  4. Sheets(1).Name = "AAA": Sheets(1).Tab.ColorIndex = 3
  5. Sheets(2).Name = "BBB": Sheets(2).Tab.ColorIndex = 3
  6. Sheets(3).Name = "CCC": Sheets(3).Tab.ColorIndex = 3
  7. Sheets(4).Name = "DDD": Sheets(4).Tab.ColorIndex = 3
  8. Sheets(5).Name = "EEE": Sheets(5).Tab.ColorIndex = 4
  9. Sheets("AAA").Delete
  10. Sheets("BBB").Delete
  11. Sheets("CCC").Delete
  12. Sheets("DDD").Delete
  13. Sheets("EEE").Delete
  14. Application.DisplayAlerts = True
  15. End Sub
複製代碼

Excel新增並刪除.rar (15.58 KB)

收藏 分享
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-8-2 07:13 | 只看該作者
回復 1# faye59

如果是我，
我會選擇使用隱藏而不是刪除，
給你參考看看。

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題