Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4255 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   シートが１０枚あるエクセルファイルがあります。

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

ちょっと説明が分かりずらくて大変申し訳ないのですが、お分かりになる方いらっしゃいましたら、教えて頂きたいです。
宜しくお願い致します。
【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
作業終了前にシートを開くといいんじゃないですか？

>シートが１０枚あるエクセルファイルがあります。
>
>シート名は「１」〜「１０」です。
>シート「１」はデータベースとして使用していて、「２」〜「１０」はユーザーが書き込んでいく為のシートです。
>元データベースは日々追加されて行くので、毎日深夜にマクロで「１」シートにデータを貼付して更新しています。
>「１」シートにデータを貼付してから保存している為、マクロ動作後にファイルを開くと、シート「１」がアクティブになっています。
>でも、本当はそのファイルが最後に保存された時にアクティブだったシートで保存をしたいのです。（ユーザーが入力している為「１」ではなく、「２」〜「１０」になるはずなんです）
>
>ちょっと説明が分かりずらくて大変申し訳ないのですが、お分かりになる方いらっしゃいましたら、教えて頂きたいです。
>宜しくお願い致します。
【57674】Re:最後に開いていたシートで保存したい...
お礼  たぼん  - 08/9/8(月) 15:55 -
引用なし
パスワード
   有難う御座います！
まだ微調整が必要ですが、教えて頂いたものでうまく出来そうです！

本当に有難う御座いました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4255 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free