Excel.Applicationへのシートコピーこんにちはゲストさん。(」とエラーが発生します。書き方を試してみたのですが、どれもうまくいきませんでした。Falseの場合、この表示さえなく行うことができるので別アプリで行っておりました。>自アプリ上では、この処理は無理なのでしょうか。No.1の回答の2の方法で可能ですが、1つ問題があります。未保存のデータは反映されません。TEST.xlsを保存しておく必要があります。今確認したところ、一度test.xlsを閉じた上で、test123.xlsを開けば正常に開くことが分かりました。test.xlsを開いたままtest123.xlsを起動するとアプリのみ起動してシートが何もない状態になるようです。ご回答ありがとうございます。コピー元とコピー先を新アプリのほうで扱うんですね。ちなみにvenzou様のを参考に実行してみたのですが作成されたtest123.xlsはシートが一個もないBookになってしまいました。"test123.xls"xlApp.Quitこの関数が走る前にtest.xlsは変更されないのでセーブはしてません。venzou様が書いたopen文だとエラーになったのでこちらにしました。After:=xlBook.Sheets(3)>としたのですが、今度は「Worksheetクラスのcopyメソッドに失敗しました」とエラーが出ました。別のアプリケーションになります。アプリケーションが異なるので、コピーは出来ないと思います。Workbooks.Addこの部分では、TEST.xlsを開いているアプリケーションと同じアプリケーション上にブックを作ります。After:=xlBook.Sheets(3)このコピーは同じアプリケーション上でのコピーになります。こちらの環境(Excel2000)ではエラーは出ませんでした。------------------------------------------->コピーして作成されたBookを開かずにおいていたかったからです。再度のご回答ありがとうございます。別アプリの場合は、コピー自体できないのですね。そこからして間違ってました。venzou様のサンプル通り実行したところ無事作成コピーと行うことができました。Falseの場合、この表示さえなく行うことができるので別アプリで行っておりました。自アプリ上では、この処理は無理なのでしょうか。(0)通報するANo.1venzouこのプログラムは何処で実行される物でしょうか?1:TEST.xls上で実行されるものでしょうか?2:それとも、全く別のワークブックやVBなど?これにより回答が異なります。--------------------------------------------------------1の場合、新規のアプリケーションを立ち上げる必要はない。16:05:09お礼venzou様ご回答ありがとうございます。実行する場所は1.のTEST.xls自身となっております。1.のケースで新規のアプリケーションとしているかと言いますとコピーして作成されたBookを開かずにおいていたかったからです。falseとしました。After:=xlBook.Sheets(3)としたのですが、今度は「Worksheetクラスのcopyメソッドに失敗しました」とエラーが出ました。下記のようなコードを書きました。VB6.0上でExcelオブジェクトの生成についてです。いつもお世話になっております。私はVB2005入門者です。EXCELで処理を行っております。SaveAsでエラーが出てしまいます。VB6.0で作成したソフトの一部でエクセルを操作する箇所があります。3回目の同じ質問になってしまうのですがよろしくお願いいたします。Accessから新規のExcelへデータをエクスポートしたいと思っています。Reserved.掲載情報の著作権は提供元企業等に帰属します。