標題:
[發問]
好奇，刪不掉的空sheets程式窗
[打印本頁]
作者:
ui123
時間:
2017-8-31 13:34
標題:
好奇，刪不掉的空sheets程式窗
本帖最後由 ui123 於 2017-8-31 13:46 編輯
各位有遇過這個問題嗎? 我刪掉sheet後 ，VBA 程式窗卻留下一堆空sheet，有看到之前一篇(
http://forum.twbts.com/viewthread.php?tid=4369
)，但是找不到"編輯>到>特殊>物件---->確定"
不知道要怎麼用巨集刪掉，或我原本刪sheet的程式可以直接刪除
原本刪sheet的程式如下:
Dim xWs As Worksheet
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Template" And xWs.Name <> "Template journal" Then
xWs.Delete
End If
Next
javascript:;
javascript:;
作者:
ui123
時間:
2017-8-31 15:20
不給我刪
javascript:;
作者:
GBKEE
時間:
2017-8-31 15:39
本帖最後由 GBKEE 於 2017-8-31 15:40 編輯
回復
2#
ui123
oobird 超版不是說
在專案總管裏=microsoft visual basic ->VBA project ->microsoft excel 物件
在這裡是列出你的每個工作表，最後一項是活頁簿，
點進去就是他們的模組
，你若沒寫程式他們當然是空的，
但不代表無用。
不能刪
。
工作表可以刪,問題是 For Each xWs In Application
.ActiveWorkbook
.Worksheets
的ActiveWorkbook是要刪除工作表的活頁簿嗎?
作者:
ui123
時間:
2017-8-31 20:57
回復
3#
GBKEE
超級版主GBKEE，謝謝您的回答
這就是我刪不掉的VBA空sheet檔案...."好多個空sheet在VBA專案裡"，好怪，完全沒作用，但我沒辦法刪除，而且隨者我跑巨集越來越多，好恐怖啊~
有辦法刪掉嗎? 用巨集迴圈控制物件去刪，多謝指點明燈 :dizzy:
javascript:;
javascript:;
作者:
ui123
時間:
2017-8-31 21:07
回復
3#
GBKEE
好恐怖........
javascript:;
作者:
HUNGCHILIN
時間:
2017-9-1 00:23
本帖最後由 HUNGCHILIN 於 2017-9-1 00:28 編輯
ui123 & 富哥好
這問題我遇過，老檔案從Excel2000，2002，2003，2007都有存取過。換新電腦換成Excel2007，還是2010時，版本異常造成，開啟使用就那個老檔案會異常，VB編輯器內，會不斷看到假的sheet不斷增加，累加，不一定要跑VBA有時按存檔就有，不時會自己增加。
最後為了省時間，直接換殼了，就是把所有sheet,VB專案移動到新活頁簿，就好了，不過後來，好像又發生了ㄧ次，我又換殼ㄧ次，把檔案另存成xlsm，再存回Xls，就好了。
希望有所幫助
作者:
ui123
時間:
2017-9-1 13:39
回復
6#
HUNGCHILIN
HUNGCHILIN大大，感謝您
今天試了一下，只能把excel裡的巨集都刪掉連模組一起刪掉後存檔，儲存後重開就會消失，
似乎無法直接用程式刪掉
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
