|
下記のようなコードでブック間の移動を試みたところ
エラーがでます。実行時エラー1004 Sheetsオブジェクトのエラーとの
ことですが、シートの選択までは動き、移動時点でエラーとなります。
修正のヒントをいただきたく投稿させていただきました
1.データ取得ブック(読み込み元)よりデータ取得
2.ThisWorkbookで作業
3.作業により作成したSheetをデータ取得ブックへ移動
問う流れです。シートの選択まではできているので、
最後でつまづいてしまっています。
ご教授のほどよろしくお願いいたします。
Sub 移動()
Dim Sh As Worksheet
Dim mySh() As Variant
Dim 移動先 As String
移動先 = Worksheets("売上").Range("F1").Value '読み込み元のブック名取得
ReDim mySh(1)
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name Like "月間*" Then
i = i + 1
ReDim Preserve mySh(i)
mySh(i) = Sh.Name
End If
Next
Worksheets(mySh).Select
ActiveWindow.SelectedSheets.Move After:=Workbooks(移動先).Sheets(1) ’ここでエラー
End Sub
|
|