Excel VBA 非表示の別ブックへシートコピー
Excel2010のVBAで、別のExcelブックを非表示で開いて、
シートをコピーすると、
「実行時エラー'1004':WorksheetクラスのCopyメソッドが失敗しました。」
というエラーが出て、正しくシートをコピーすることができません。
(1)のように自分のブックへはシートをコピーすることはできるのですが、
(2)のように別のExcelブック上でシートをコピーする場合と
(3)のように別のExcelブック上にシートをコピーする場合の
いずれも同様のエラーになります。
どのように記述すれば(2)と(3)でもコピーすることができるのでしょうか。
-------------------------------------------------------------
Sub test()
Dim newEx As Excel.Workbook
Dim newFile As String
newFile = ThisWorkbook.Path & "\New_Book.xlsx"
Set newEx = Workbooks.Open(newFile, UpdateLinks:=0)
Application.Windows("New_Book.xlsx").Visible = False
'(1)New_BookのSheet3を自分のブックにコピーする (正常)
newEx.Worksheets("Sheet3").Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
'(2)New_BookのSheet3をNew_Bookにコピーする (エラー)
newEx.Worksheets("Sheet3").Copy after:=newEx.Sheets(newEx.Sheets.Count)
'(3)自分のブックのSheet3をNew_Bookにコピーする (エラー)
ThisWorkbook.Worksheets("Sheet3").Copy after:=newEx.Sheets(newEx.Sheets.Count)
Application.Windows("New_Book.xlsx").Visible = True
Application.DisplayAlerts = False
newEx.Save
newEx.Close
Application.DisplayAlerts = True
Set newEx = Nothing
End Sub
-------------------------------------------------------------
補足
言葉が足りませんでした.失礼しました。 コピーの方法は、シートのタブ上で右クリック→移動またはコピー→コピーを作成する、にチェックを入れてOKを押す方法と、 ドラッグアンドドロップも試しました、。 結果、何も起きないのです。エラーなどは出ません。