質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

2回答

9643閲覧

別インスタンスのExcelを生成し、シートをコピーしたい

TEKETEKE75180

総合スコア12

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2018/09/23 14:19

現在、ボタンを押下すると、VBAにて生成したExcelに対して、特定のシートをコピーするような処理を実装しようとしています。
Excelでいうと、移動またはコピー⇒コピーを作成するを選択した上で移動先ブック名に(新しいブック)を選択するようなイメージです。

やりたいこととしては、この新しいブックを別インスタンス(VBAを実装しているExcelとは完全別もの)で生成したうえでシートのコピーができればと思っております。

↓↓↓↓↓以下ソース↓↓↓↓↓↓
Sub copySummary()

Set dataSheet = Worksheets("data") Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) dataSheet.Copy before:=xlBook.Worksheets(1) Set xlSheet = Nothing Set xlBook = Nothing xlApp.Quit Set xlApp = Nothing

End Sub
↑↑↑↑↑終わり↑↑↑↑↑

ここの「dataSheet.Copy before:=xlBook.Worksheets(1)」で「'Copy'メソッドは失敗しました」となってしまいます。
(コピー回数に限界があるというようなエラー)

ここを「dataSheet.Copy」のみにすれば動くのですが、同インスタンス内で新しいブックが作成され、コピーがされてしまいます。(ここは実装が悪いだけかと思っています)

またこのエラーを調べてみるとこまめにSaveをすれば大丈夫というような記述があったので試してみたのですが、同じようなエラーが発生しています。

どうにかして別インスタンスでExcelを生成してシートをコピーしたいのですが、
どこを直せばよいか分かりますでしょうか。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

あと1年もすれば(Excel2013以降になれば)無意味になりますけど、別のインスタンスで普通にブックを開けば解決しないでしょうか?

vba

1Public Sub copySummary() 2 3 Dim basBook As Excel.Workbook 4 Set basBook = ActiveWorkbook 5 Const SheetName = "data" 6 7 basBook.Save 8 9 Dim xlApp As Excel.Application 10 Set xlApp = CreateObject("Excel.Application") 11 xlApp.Visible = True 12 xlApp.Workbooks.Open(basBook.FullName, ReadOnly:=True).Sheets.Item(SheetName).Activate 13 14End Sub

投稿2018/09/24 12:00

imihito

総合スコア2166

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

ベストアンサー

同一インスタンス内でないと、コピーは無理では?
何故同一インスタンス内でやらないのでしょうか?

投稿2018/09/23 14:22

otn

総合スコア84423

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

TEKETEKE75180

2018/09/23 14:45

ノートPC+ディスプレイがあり、それぞれでExcelを表示させながら作業をした方がやりやすいと思い、別インスタンスで実現できればと思っております。
otn

2018/09/23 15:34

それぞれでExcelを表示させることと、同一インスタンス内でコピーしないことの関連が分かりません。
TanakaHiroaki

2018/09/23 23:52

Excelから操作してコピーできない場合、VBAでもコピーできないと思います。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問