文書番号: 928283 - 最終更新日: 2011年8月8日 - リビジョン: 3.0

VBA マクロを使用して、共有の Excel 2007 ブックを保存すると、エラー メッセージ:「アプリケーション定義またはオブジェクト定義エラー"

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

目次

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

現象

Microsoft Visual Basic アプリケーション (VBA) マクロは、現在のブックが共有ブックで、Excel 2007 の Microsoft Office として保存されますを実行しようとすると、次のエラー メッセージが表示されます。
実行時エラー '1004'
アプリケーション定義またはオブジェクト定義のエラーです。
先頭へ戻る

原因

この問題は、次の条件に該当する場合に発生します。
  • 既定の保存形式は、Excel 97-2003 形式に設定されています。さらに、新しいブックを追加、およびマクロを使用して、 ProtectSharing メソッドまたは 名前を付けて保存 メソッドに対して新しいブックを Excel 97-2003年ファイル形式にします。
  • は、 ProtectSharing 使用していた方法は、 FileFormat プロパティを xlExcel8 に設定します。
先頭へ戻る

回避策

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

この問題を回避するには、次の方法のいずれかを使用します。
先頭へ戻る

方法 1: 既定のファイル形式が xlWorkbookNormal を設定します。

いずれかを使用するのには ProtectSharing メソッドまたは 名前を付けて保存 メソッドでは、VBA マクロを VBA マクロでの ExcelWokbookNormal の既定のファイル形式が設定します。

次の VBA コードを使用する方法の例については、 DefaultSaveFormat 既定のファイル形式が xlWorkbookNormal を設定するメソッドです。 
Application.DefaultSaveFormat = xlWorkbookNormal
メモ 手動で設定するのには DefaultSaveFormat メソッドは、次の手順を実行します。
  1. クリックして、 Microsoft Office ボタン、し [Excel のオプション.
  2. クリックしてください。 保存.
  3. で、 この形式でファイルを保存します。 ボックスで、既定で保存するブックを表示形式をクリックします。
  4. クリックしてください。 [OK] 閉じるには、 [Excel のオプション ダイアログ ボックスです。
先頭へ戻る

方法 2: アクセス モードのパラメーターと共に、SaveAs メソッドを使用します。

使用するのには 名前を付けて保存 メソッドを使用して、 アクセス モード パラメーターです。

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