Excel VBA質問箱 IV

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

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


24408 / 76732 ←次へ | 前へ→

【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」になるはずなんです)
>
>ちょっと説明が分かりずらくて大変申し訳ないのですが、お分かりになる方いらっしゃいましたら、教えて頂きたいです。
>宜しくお願い致します。

0 hits

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

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