|
▼もも さん:
ご対応有難う御座います。
ご指摘の通り以下で開いたファイルです。
Workbooks.Open (myFile)
ご教授頂いた方法を試しました。
Set myBook = Workbooks.Open(myFile)
変数に入れ、
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個目のシートの間に入る)に
常に入るようにするには、どうしたら良いかが解りません。
大変お手数ですが、ご教授願えませんでしょうか?
理由:実際はその後のマクロで、常に2個目の(新規追加された)シートと3個目の(直近で作成された)シートの違いを比較し、違いがあった場合、1個目のシートに記述するようにしています。
|
|