Ｐａｇｅ 329 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Save Asにて・・・ いぬだわん 02/11/9(土) 21:44 ┗Re:Save Asにて・・・ Nakamura 02/11/10(日) 14:00 ┗Re:Save Asにて・・・ いぬだわん 02/11/11(月) 20:01 ─────────────────────────────────────── ■題名 ： Save Asにて・・・ ■名前 ： いぬだわん ■日付 ： 02/11/9(土) 21:44 -------------------------------------------------------------------------
| こんばんは。質問です。 「Book1.xls」でWorkSheets("あ")というものを作り、マクロにて自動保存をします。 マクロで自動保存をした時に、偶然同じファイル名があった場合に、 既存の同じファイル名のほうにWorkSheets("あ")を追加して保存をしたいのですが、 どのようにしたらよいでしょうか？ もし、既にWorkSheets("あ")があった場合は、そのWorkSheet名を WorkSheets("あ" & worksheets.count) としたいのです。 ご存知の方、ご教授願えればと思います。 |
| こんにちは こんな感じでどうでしょう？ コピーするシートは１シートで、一番最初のシートとします。 ＞「Book1.xls」 は新規作成のブックとします。 Sub test() Dim wk As Workbook With Workbooks("Book1") '新規ブック If Dir("あ.xls") <> "" Then 'カレントを想定、そうでなければフルパスで指定して下さい。 Workbooks.Open ("あ.xls") 'カレントを想定、そうでなければフルパスで指定して下さい。 Set wk = Workbooks("あ.xls") .Worksheets(1).Name = "あ" & wk.Worksheets.Count 'コピーするシートを１番目と想定しています。 .Worksheets(1).Copy After:=wk.Sheets(wk.Worksheets.Count) .Close False wk.Close True Set wk = Nothing Else .Worksheets(1).Name = "あ" Application.DisplayAlerts = False .Sheets(Array(2, 3)).Delete Application.DisplayAlerts = True .SaveAs ("あ.xls") 'カレントを想定、そうでなければフルパスで指定して下さい。 .Close True End If End With End Sub それでは |
| Nakamuraさんこんばんは。 お返事が遅くなりましたが、うまくできました。 ありがとうございました。 |