AccessVBAからExcelシート名を操作

質問

Access2003を使用しています。
AccessVBAで、日報のようなExcelを操作しようとしています。
シート名は日付で、当日シートをコピーし、翌日シートにデータを流し込むというものです。

当日シートをコピーし、新たなシートを翌日にリネームするところまではできていますが、
元シート名（当日）に(2)が残ってしまいます。

※必ず一つ前のシートをコピーするという条件でも可です。
※コピー元のシートに(2)は既に存在する場合がありますが、必ず日付のみのシートが存在します。

元シート名を変えずにコピーする、または元シート名（一つ前のシート）をリネームする方法があればご教示いただきたいと思います。

---------------------------------------------------
Dim xlApp As Object
Dim xlSheet As Object
Dim stFileName As String
Dim stSheetName1 As String
Dim stSheetName11 As String
Dim xlBook1 As Object

stSheetName1 = DatePart("d", DateAdd("d", -1, [Forms]![日報]![対象日])) 　'今日
stSheetName11 = DatePart("d", [Forms]![日報]![対象日]) 　'対象日（明日）

'Excel展開
Set xlApp = Excel.Application
Set xlBook = xlApp1.Workbooks.Open(Forms![日報作成フォーム]![日報1])　'ファイル名

'シートコピー
Set xlSheet = xlBook.Worksheets(stSheetName1)
xlSheet.Copy , xlBook.Worksheets(stSheetName1)

'シート名変更
xlSheet.Name = DatePart("d", [Forms]![日報]![対象日]) '対象日（明日）
xlApp.Worksheets(stSheetName11).Select

MsgBox "コピー完了"

End Sub

回答No.2

noname#231195 · ベストアンサー

#1です。

＞元シート名（当日）に(2)が残ってしまいます。
ってあるから、残っちゃいけないのかと思いました。

シートをコピーした後は、そのコピーした先のシートがアクティヴになっていますから、そこでシートの名前を変えればいいです。
つまり
xlSheet.Copy , xlBook.Worksheets(stSheetName1)
のあとで、
xlApp.activesheet.Name = "複製シートの新しい名前"
をとします。

お礼

ありがとうございます！
xlApp.activesheet.Name で、翌日のシートが無事できました。

そこで、次なる問題が発生してしまいました。

複製したシートを一番左にもって行きたいのですが、可能でしょうか？

具体例（Excelシート名と見立てて）

元は、
27　27(4)　27(3)　27(2)
とシートが並んでいます。

教えていただき、28のシートが作成できました。

これを、
28　27　27(4)　27(3)　27(2)
と並べたいのですが。

教えていただいた記述では
27　28　27(4)　27(3)　27(2)

と並んでしまいます。

VBAの一連の流れで可能でしょうか？

回答No.1

noname#231195

xlSheet.Copy , xlBook.Worksheets(stSheetName1)
の行をなくせばいいです。

>新たなシートを翌日にリネームするところまではできていますが、
新たなシートをリネームしていません。
xlSheetは元のシートstSheetName1ですから、
xlSheet.Name = DatePart("d", [Forms]![日報]![対象日]) '対象日（明日）
は元のシートの名前を変えています。
それでコピーしたシートが不要なら、そもそもコピーする必要はないです。

お礼

ご回答、ありがとうございます。
おっしゃる通り、新たなシートのリネームではないのですが、結果的にその動きをしています。
元シートは残す必要があるので、どうしてもコピーしなければなりません。

いただいたお話で少し整理できました。
もう少し考えてみます。ありがとうございました。