Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4654 / 76735

←次へ　｜　前へ→


	【77699】非表示の別ブックにシートコピーできない

yy - 15/12/1(火) 10:47 -


	引用なし

	パスワード

自分のExcelブック(自ブック)からVBAで、
もう1つ別のExcelブック(他ブック)を非表示で開いて、
自ブックと他ブックの間でシートをコピーしたいのですが、
他ブックのシートを自ブックにコピーすることはできるのですが、
自ブックのシートを他ブックにコピーするとなぜかエラーになります。
例えば、以下のsampleで、
(A)では、正しくシートがコピーされるのですが、
(B)では、
「実行時エラー'1004' WorksheetクラスのCopyメソッドが失敗しました。」
というエラーになります。
なぜ(A)はOKなのに(B)ではエラーになるのでしょうか。
(B)の部分をどのように記述すればよいのでしょうか。

よろしくお願いします。(Windows7,Excel2010)

--------------------------------------------------
Sub sample()

　Dim ExcelBook As Excel.Workbook
　Dim FileNameFullPath As String

　FileNameFullPath = ThisWorkbook.Path & "\Book1.xlsx"
　Set ExcelBook = Workbooks.Open(FileNameFullPath, UpdateLinks:=0)

　Application.Windows("Book1.xlsx").Visible = False

　'他ブックのシートを自ブックにコピーする (正常)
　ExcelBook.Worksheets("Sheet1").Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) '<-(A)

　'自ブックのシートを他ブックにコピーする (エラー)
　ThisWorkbook.Worksheets("Sheet1").Copy after:=ExcelBook.Sheets(ExcelBook.Sheets.Count) '<-(B)

　Application.Windows("Book1.xlsx").Visible = True

　Application.DisplayAlerts = False
　ExcelBook.Save
　ExcelBook.Close
　Application.DisplayAlerts = True
　Set ExcelBook = Nothing

End Sub
--------------------------------------------------
(注記1) Application.Windows("Book1.xlsx").Visible = False
　　　　の部分を、
　　　　Application.ScreenUpdating = False
　　　　にすると、このエラーは起きませんが、
　　　　タスクバーに表示されてしまいます。
(注記2) Set ExcelBook = Workbooks.Open(FileNameFullPath, UpdateLinks:=0)
　　　　の部分を、
　　　　Dim objEX As Excel.Application
　　　　Set objEX = CreateObject("Excel.Application")
　　　　Set ExcelBook = objEX.Workbooks.Open(FileNameFullPath, UpdateLinks:=0)
　　　　のうに、別インスタンスで開くと、このエラーは起きませんが、
　　　　別インスタンス間ではシートのコピーができません。
(注記3) シートのコピーをコピー&ペーストの機能で代用すると、
　　　　セルに施されているフィルターなどの設定が外れてしまいます。

0 hits

▼

【77699】非表示の別ブックにシートコピーできない yy 15/12/1(火) 10:47