Board logo

標題: [發問] 好奇,刪不掉的空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/)