文書番号: 210684 - 最終更新日: 2011年7月21日 - リビジョン: 8.0

ワークシートのコピーをプログラムで実行時エラー 1004年で収まるように

英語を並べて表示英語と日本語を並べて表示する
機械翻訳機械翻訳版の免責を確認する
対象製品
お知らせお使いのオペレーティング システムには適用しない情報が含まれている場合があります。

目次

すべて展開する | すべて折りたたむ

現象

Microsoft Excel でワークシートをコピーしての送信元が同じブックにワークシートを配置するマクロを実行します。これを行うと、次のエラー メッセージのいずれかのようなエラー メッセージを受け取ることがあります。
実行時エラー '1004':
ワークシート クラスの copy メソッドが失敗しました
実行時エラー '1004':
アプリケーション定義またはオブジェクト定義のエラー
先頭へ戻る

原因

Microsoft プログラミング例としては、明示または黙示の保証もないだけを提供します。これを含むが、商品性や特定目的への適合性の黙示的な保証に制限はありません。この資料は、例示されているプログラミング言語やを作成したりプロシージャをデバッグするために使用されるツールに精通するいると仮定します。マイクロソフト サポート エンジニアは、特定のプロシージャの機能について説明することができます。ただしは、機能の追加またはお客様固有の要件を満たすようにプロシージャを作成するのには、次の例変更されません。

ブックに定義済みの名前を付けて保存したり、次のサンプル コードのように、ブックを閉じることがなく複数回ワークシートをコピーするとこの問題が発生することができます。
Sub CopySheetTest()
    Dim iTemp As Integer
    Dim oBook As Workbook
    Dim iCounter As Integer
    
    ' Create a new blank workbook:
    iTemp = Application.SheetsInNewWorkbook
    Application.SheetsInNewWorkbook = 1
    Set oBook = Application.Workbooks.Add
    Application.SheetsInNewWorkbook = iTemp
    
    ' Add a defined name to the workbook
    ' that RefersTo a range:
    oBook.Names.Add Name:="tempRange", _
        RefersTo:="=Sheet1!$A$1"
            
    ' Save the workbook:
    oBook.SaveAs "c:\test2.xls"
    
    ' Copy the sheet in a loop. Eventually,
    ' you get error 1004: Copy Method of
    ' Worksheet class failed.
    For iCounter = 1 To 275
        oBook.Worksheets(1).Copy After:=oBook.Worksheets(1)        
    Next
End Sub
先頭へ戻る

解決方法

この問題を解決するには、[保存して定期的に、コピー ・ プロセスは、次のサンプル コードのように中にブックを閉じます。
Sub CopySheetTest()
    Dim iTemp As Integer
    Dim oBook As Workbook
    Dim iCounter As Integer
    
    ' Create a new blank workbook:
    iTemp = Application.SheetsInNewWorkbook
    Application.SheetsInNewWorkbook = 1
    Set oBook = Application.Workbooks.Add
    Application.SheetsInNewWorkbook = iTemp
    
    ' Add a defined name to the workbook
    ' that RefersTo a range:
    oBook.Names.Add Name:="tempRange", _
        RefersTo:="=Sheet1!$A$1"
            
    ' Save the workbook:
    oBook.SaveAs "c:\test2.xls"
    
    ' Copy the sheet in a loop. Eventually,
    ' you get error 1004: Copy Method of
    ' Worksheet class failed.
    For iCounter = 1 To 275
        oBook.Worksheets(1).Copy After:=oBook.Worksheets(1)
        'Uncomment this code for the workaround:
        'Save, close, and reopen after every 100 iterations:
        If iCounter Mod 100 = 0 Then
            oBook.Close SaveChanges:=True
            Set oBook = Nothing
            Set oBook = Application.Workbooks.Open("c:\test2.xls")
        End If
    Next
End Sub
メモ ブックを保存する必要があります前に、ワークシートをコピーできる回数は、ワークシートのサイズによって異なります。
先頭へ戻る

回避策

この問題を回避するには、既存のワークシートをコピーするのではなく、テンプレートから新しいワークシートを挿入します。これを行うには、以下の手順を実行している Excel のバージョンに応じてを実行します。
先頭へ戻る

Microsoft Office Excel 2007

  1. 新しいブックを作成し、ワークシートの 1 つを除くすべてを削除します。
  2. ブックの書式を設定して、任意のテキスト、データ、および、必要なグラフ テンプレートにデフォルトで追加します。
  3. クリックして、 Microsoft Office ボタン、し として保存します。.
  4. で、 ファイル名 ボックスで、[Excel テンプレートの名前を入力します。
  5. で、 種類します。 ボックスの一覧でクリックしてください テンプレート (*.xltx)、し 保存.
  6. プログラムで、テンプレートを挿入するには、次のコードを使用します。
    Sheets.Add 種類: =パス\ファイル名
    このコードでは、 パス\ファイル名 シート テンプレートの完全なのパスとファイル名を含む文字列です。
先頭へ戻る

Microsoft Office Excel 2003 およびそれ以前のバージョンの Excel

  1. 新しいブックを作成し、ワークシートの 1 つを除くすべてを削除します。
  2. ブックの書式を設定して、任意のテキスト、データ、および、必要なグラフ テンプレートにデフォルトで追加します。
  3. クリックしてください。 ファイル、し として保存します。.
  4. で、 ファイル名 ボックスで、[Excel テンプレートの名前を入力します。
  5. で、 種類します。 ボックスの一覧でクリックしてください テンプレート (*.xlt)、し 保存.
  6. プログラムで、テンプレートを挿入するには、次のコードを使用します。
    Sheets.Add 種類: =パス\ファイル名
    このコードでは、 パス\ファイル名 シート テンプレートの完全なのパスとファイル名を含む文字列です。
先頭へ戻る

状況

マイクロソフトでは、この「対象」に記載されているマイクロソフト製品の問題として認識しています。
先頭へ戻る
この資料は以下の製品について記述したものです。
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
先頭へ戻る
キーワード:?
kbprogramming kbmacro kbautomation kbvba kbexpertiseinter kbbug kberrmsg kbpending kbmt KB210684 KbMtja
先頭へ戻る
機械翻訳機械翻訳
重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。
英語版 KB：210684? (http://support.microsoft.com/kb/210684/en-us/ )
先頭へ戻る
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"