| |
▼もも さん：
ご対応有難う御座います。
ご指摘の通り以下で開いたファイルです。
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個目のシートに記述するようにしています。
|
|
テンマ
- 09/6/16(火) 10:10 -
