|
▼テンマ さん:
>シートの移動までは無事動作しました。
>有難う御座いました。
よかったですね^^
>Sheets(1).Move After:=Workbooks(myBook.Name).Sheets(Workbooks(myBook.Name).Sheets.Count)
>しかし、実際切り取り挿入した後のシートの位置ですが、
>以前は、以下としていた為、移動先をSheetの2個目に常に挿入される形としていました。
>Sheets(1).Move After:=Workbooks("シート3.xls").Sheets(1)
>今回ご教授頂いた移動では、最終シートに追加されてます。
>以前と同じようにシートのSheetの2個目(1個目と2個目のシートの間に入る)に
>常に入るようにするには、どうしたら良いかが解りません。
>大変お手数ですが、ご教授願えませんでしょうか?
これは
>Sheets(1).Move After:=Workbooks(myBook.Name).Sheets(Workbooks(myBook.Name).Sheets.Count)
の部分を
Sheets(1).Move After:=Workbooks(myBook.Name).Sheets(1)
とするだけでOKですよ
|
|