お世話になります。
あるシート(sheets(1)を別ブックの末尾にコピーしたいと思い、以下のようにsheet(1)があるブックに記述したのですがすこし問題があります。
コピー先のブックにもともとシートが一つの場合は問題なく動作します。
しかし、複数のシートが存在するブックの場合は末尾に挿入されず、シートのの一つ目と二つ目の間（インデックスでいうところの2)にコピーされてしまいます。
末尾にシートのコピーを挿入したいのですがなにか記述漏れでもあるのでしょうか？
↓記述↓
----------------------------
Dim s As String
s = UserForm3.ListBox1.Value
Sheets(1).Copy After:=Workbooks(s).Sheets(Sheets.Count)
ActiveWorkbook.Save
-----------------------------
↑終わり↑
因みにコピー先の選択にはユーザーフォームを用いてリストボックスに開いているブックの一覧を取得させています。(記述では変数s)
Windows7 64bit Excel2010です。
ブックは互換処理のため2003-2007形式のブックを使っています。
よろしくお願いします。
あるシート(sheets(1)を別ブックの末尾にコピーしたいと思い、以下のようにsheet(1)があるブックに記述したのですがすこし問題があります。
コピー先のブックにもともとシートが一つの場合は問題なく動作します。
しかし、複数のシートが存在するブックの場合は末尾に挿入されず、シートのの一つ目と二つ目の間（インデックスでいうところの2)にコピーされてしまいます。
末尾にシートのコピーを挿入したいのですがなにか記述漏れでもあるのでしょうか？
↓記述↓
----------------------------
Dim s As String
s = UserForm3.ListBox1.Value
Sheets(1).Copy After:=Workbooks(s).Sheets(Sheets.Count)
ActiveWorkbook.Save
-----------------------------
↑終わり↑
因みにコピー先の選択にはユーザーフォームを用いてリストボックスに開いているブックの一覧を取得させています。(記述では変数s)
Windows7 64bit Excel2010です。
ブックは互換処理のため2003-2007形式のブックを使っています。
よろしくお願いします。
|
|
|
|
|
|
|
|
