|
▼しん さん:
>下記のようなコードでブック間の移動を試みたところ
>エラーがでます。実行時エラー1004 Sheetsオブジェクトのエラーとの
>ことですが、シートの選択までは動き、移動時点でエラーとなります。
>修正のヒントをいただきたく投稿させていただきました
こんにちは。
配列の定義の問題です
> ReDim mySh(1)
このとき mySh(0) と mySh(1)
となります。
で mySh(1 to 1)
> For Each Sh In ThisWorkbook.Worksheets
> If Sh.Name Like "月間*" Then
> i = i + 1
> ReDim Preserve mySh(i)
ここも同じように
ReDim Preserve mySh(1 to i)
とすれば良いでしょう。
> mySh(i) = Sh.Name
>
> End If
> Next
>
> Worksheets(mySh).Select
> ActiveWindow.SelectedSheets.Move After:=Workbooks(移動先).Sheets(1) ’ここでエラー
上の2行は
Worksheets(mySh).Move after:=Workbooks(移動先).Sheets(1)
でも良いでしょう。
>
>
>End Sub
では、頑張ってください。
|
|