[問題] VBA Sheets.Count

[aup65797 (有緣人)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Office

版本:2010


VBA


Sheets.Count執行第一次 , 執行第二次會一直累加

如何清除為零?


If xRow > 60000 Then
     n = n + 1
     Sheets.Add After:=Sheets(Sheets.Count) '新增工作表並放在最後面

     Sheets("工作表" & n).Select '選擇工作表
     xRow = 0


上面是說明檔案超過60000行 , 會把其它檔案放到工作表1

但現在有個問題 , 下次再執行時Sheets.Count不會從1開始 , 會從2開始 , 這是

為什麼呢?


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.241.96.6
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1487860077.A.3AD.html
→ soyoso: sheets.count在不增加工作表下，執行次數下會累加？
→ aup65797: 就是Sheets.Add後會一直累加 , 要如何在下次執行時清零
→ soyoso: 活頁簿內至少須有一張未隱藏的工作表，sheets.count如何清
→ soyoso: 除為零
→ aup65797:  Sheets.Add after:=Sheets(Sheets.Count)
→ soyoso: 貼巨集碼也不會知道原po希望要的結果是什麼
原有的Sheet1=>工作表1=>工作表2  執行時先刪除工作表1=>工作表2 再新增工作表1
=>工作表2  下次執行先刪除工作表1=>工作表2 再新增工作表1=>工作表2......
以此類推
※ 編輯: aup65797 (123.241.96.6), 02/23/2017 22:55:56
→ soyoso: 如要每次新增工作表於某張工作表後面，以sheets(工作表名)
※ 編輯: aup65797 (123.241.96.6), 02/23/2017 22:57:16
※ 編輯: aup65797 (123.241.96.6), 02/23/2017 23:08:37
→ soyoso: 回文的工作表2是指工作表"二"嗎？
※ 編輯: aup65797 (123.241.96.6), 02/23/2017 23:09:24
→ soyoso: 刪除工作表名和新增工作表名相同嗎？
→ aup65797: 相同的
→ aup65797: 應該說不一定相同 , 因為你不知道下次檔案會有多大,可能
→ aup65797: 更大 , 需要新增工作表3 工作表4
※ 編輯: aup65797 (123.241.96.6), 02/23/2017 23:15:31
→ soyoso: 原文問到為什麼不會從1開始，因sheets.count為計數活頁簿
→ soyoso: 工作表數量
→ soyoso: 如要保持為1起累加，改以變數=變數+1
→ aup65797: 如Sheets("工作表1").Delete   Sheets.Count會變少嗎?
→ soyoso: 會變少，但活頁簿內至少須有一張未隱藏的工作表
另外請教Sheets.Add 他可否新增工作表1 工作表2  下次執行也是新增工作表1 工作表2
※ 編輯: aup65797 (123.241.96.6), 02/23/2017 23:30:19
→ soyoso: 可以worksheet.name設定
→ Iories: 在If xRow > 60000 Then 之前加上以下的程式碼
→ Iories: If Sheets.Count > 1 Then
→ Iories:   Application.DisplayAlerts = False
→ Iories:   For i = Sheets.Count To 2 Step -1
→ Iories:     Sheets(i).Delete
→ Iories:   Next i
→ Iories:   Application.DisplayAlerts = True
→ Iories: End If
→ aup65797: 感謝 , 解決了