文章編號: 177634 - 上次校閱: 2006年11月23日 - 版次: 2.4

XL97： 工作表物件的複本方法會造成無效分頁錯誤

中英文對照顯示按一下這裡顯示機器翻譯的中英文對照
機器翻譯檢視機器翻譯免責聲明
Retired KB Article依現狀不再更新的知識庫內容免責聲明
檢視此文章適用的產品。
系統提示本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。

在此頁中

全部展開 | 全部摺疊

徵狀

在 Microsoft Excel 97 中當以程式設計方式將工作表加入至一個活頁簿您可能會收到下列錯誤訊息之一：
回此頁最上方

Windows 95

此程式執行的作業無效，並且將會關機。 若問題仍持續存在，請連絡程式廠商。
如果您按一下 [詳細資料您會收到類似下列的錯誤訊息：
EXCEL 模組 MSO97.DLL 在 0137:30705766 中造成無效分頁錯誤。
-或者-
EXCEL 模組 EXCEL.EXE 在 015f:3023ab75 中造成無效分頁錯誤
回此頁最上方

Windows NT

一個應用程式錯誤，正在產生應用程式記錄檔。

EXCEL.exe
例外狀況： 存取 violation(0xc0000005) 位址： 0x307de830
然後結束 Excel。
-或者-
執行階段錯誤 '1004'： 複製失敗的工作表類別的方法
回此頁最上方

發生的原因

當您使用迴圈陳述式來重複複製工作表時，可能就會發生這個問題。這個問題的範例如請參閱本文 ＜ 其他相關資訊 ＞ 一節。
回此頁最上方

其他可行方案

Microsoft 僅，為了說明提供程式設計範例，不提供任何明示或默示的保證，包括但不是限於適售性以及適合某特定用途之默示擔保責任。本文假設您已熟悉我們所示範的程式設計語言，以及用來建立和偵錯程序的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能，但它們不會修改這些範例以提供附加功能或建構程序，以符合您的特定需求。
如果您有限制程式設計經驗，您可以連絡 Microsoft 認證合作夥伴或 Microsoft 諮詢服務。如需詳細資訊請造訪下列 Microsoft] 網站：

Microsoft 認證合作夥伴-https://partner.microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104)

Microsoft 摘要報告服務-http://support.microsoft.com/gp/advisoryservice (http://support.microsoft.com/gp/advisoryservice)

如需有關可用的支援選項，以及有關如何連絡 Microsoft 的詳細資訊，請造訪下列 Microsoft 網站： http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms) 若要解決這個問題，可以嘗試使用類似下列的程式碼複製工作表： 
 Sub Copy Sheets()

    For x = 1 To 300
        Sheets.Add
        Workbooks("YourWorkBook.xls").Sheets("sheet1").Cells.Copy
        ActiveSheet.Paste
        Workbooks("YourWorkBook.xls").Sheets("sheet1").Select
    Next x

 End Sub
回此頁最上方

狀況說明

Microsoft 已確認此選項以在 Microsoft Excel 97 中有問題。 在 Microsoft Excel 2000 中不會再發生這個問題。
回此頁最上方

其他相關資訊

之所以發生這個問題，是因為每次複製一個 codename 指派給該複本相同的工作表，複製工作表每次該 codename 成為更長的時間。比方就說如果您一次複製 sheet1 codename 指派給此工作表就會是 sheet11。當您一次複製工作表是分派的 sheet111 依此類推。codename 有最大數目的大約 35 個字元。當達到這個限制時 Excel 會停止回應。
回此頁最上方

問題的範例

注意： 此範例可能會造成 Excel 停止回應。請慎重地使用。
  1. 啟動 Microsoft Excel 97。
  2. 按下 ALT + F11 即可啟動 [Visual Basic 編輯器]。
  3. 按一下 [插入] 功能表模組。
  4. 新的模組工作表中輸入下列： 
          Sub test()
         For x = 1 To 300
            ActiveSheet.Copy before:=Sheets(1)
            Sheets(1).Select
         Next x
      End Sub
  5. 按下 ALT + F11 即可回到 Excel。
  6. 在 [工具] 功能表上指向 [巨集]，然後再按一下 [巨集]。選取 [測試]，然後按一下 [執行]。
巨集將會在 Excel 中複製工作表，直到它停止回應。
回此頁最上方

?考

CodeName 屬性從 Visual Basic 編輯器] 中的相關資訊按一下 [Office 小幫手]，鍵入 codename 屬性]、 按一下 [搜尋]，然後再按一下檢視 "CodeName 屬性。"

回此頁最上方
這篇文章中的資訊適用於:
  • Microsoft Excel 97 Standard Edition
回此頁最上方
關鍵字：?
kbmt kbbug kbdtacode kberrmsg KB177634 KbMtzh
回此頁最上方
機器翻譯機器翻譯
重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：177634? (http://support.microsoft.com/kb/177634/en-us/ )
回此頁最上方
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。
Retired KB Article依現狀不再更新的知識庫內容免責聲明
本文旨在說明 Microsoft 不再提供支援的產品。因此，本文係依「現狀」提供，不會再更新。
回此頁最上方