Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4253 / 13644 ツリー ←次へ | 前へ→

【57670】最後に開いていたシートで保存したいのですが たぼん 08/9/8(月) 14:38 質問[未読]
【57672】Re:最後に開いていたシートで保存したいの... SS 08/9/8(月) 15:32 発言[未読]
【57674】Re:最後に開いていたシートで保存したいの... たぼん 08/9/8(月) 15:55 お礼[未読]

【57670】最後に開いていたシートで保存したいので...
質問  たぼん  - 08/9/8(月) 14:38 -

引用なし
パスワード
   シートが10枚あるエクセルファイルがあります。

シート名は「1」〜「10」です。
シート「1」はデータベースとして使用していて、「2」〜「10」はユーザーが書き込んでいく為のシートです。
元データベースは日々追加されて行くので、毎日深夜にマクロで「1」シートにデータを貼付して更新しています。
「1」シートにデータを貼付してから保存している為、マクロ動作後にファイルを開くと、シート「1」がアクティブになっています。
でも、本当はそのファイルが最後に保存された時にアクティブだったシートで保存をしたいのです。(ユーザーが入力している為「1」ではなく、「2」〜「10」になるはずなんです)

ちょっと説明が分かりずらくて大変申し訳ないのですが、お分かりになる方いらっしゃいましたら、教えて頂きたいです。
宜しくお願い致します。

【57672】Re:最後に開いていたシートで保存したい...
発言  SS  - 08/9/8(月) 15:32 -

引用なし
パスワード
   ▼たぼん さん:

夜間の操作の際にファイルオープン時または作業開始示に
Public Atxt As String

Private Sub Workbook_Open()
  Atxt = ActiveSheet.Name
End Sub
でシート名を保存して

Sub test()
  Worksheets(Atxt).Activate
End Sub
作業終了前にシートを開くといいんじゃないですか?

>シートが10枚あるエクセルファイルがあります。
>
>シート名は「1」〜「10」です。
>シート「1」はデータベースとして使用していて、「2」〜「10」はユーザーが書き込んでいく為のシートです。
>元データベースは日々追加されて行くので、毎日深夜にマクロで「1」シートにデータを貼付して更新しています。
>「1」シートにデータを貼付してから保存している為、マクロ動作後にファイルを開くと、シート「1」がアクティブになっています。
>でも、本当はそのファイルが最後に保存された時にアクティブだったシートで保存をしたいのです。(ユーザーが入力している為「1」ではなく、「2」〜「10」になるはずなんです)
>
>ちょっと説明が分かりずらくて大変申し訳ないのですが、お分かりになる方いらっしゃいましたら、教えて頂きたいです。
>宜しくお願い致します。

【57674】Re:最後に開いていたシートで保存したい...
お礼  たぼん  - 08/9/8(月) 15:55 -

引用なし
パスワード
   有難う御座います!
まだ微調整が必要ですが、教えて頂いたものでうまく出来そうです!

本当に有難う御座いました!

4253 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free