返回列表 上一主題 發帖

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)

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

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題