Excel VBA質問箱 IV

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

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


5861 / 13645 ツリー ←次へ | 前へ→

【48502】ワークシートの数が実際のファイルと違う?! taro 07/4/19(木) 17:19 質問[未読]
【48503】Re:ワークシートの数が実際のファイルと違... Blue 07/4/19(木) 17:35 質問[未読]
【48509】Re:ワークシートの数が実際のファイルと違... taro 07/4/20(金) 8:30 お礼[未読]

【48502】ワークシートの数が実際のファイルと違う...
質問  taro  - 07/4/19(木) 17:19 -

引用なし
パスワード
   OS XP Pro
Excel 2000
上記環境でVBAを作成中でしたが、

  Set wb = xlAp.Workbooks.Open(Fnam)
  ws_cnt = wb.worksheets.Count
Debug.Print "suiiF_read-->sheet count=" & ws_cnt

でワークシート数を獲得したところ、10 と表示されました。
ところが実際の.xlsのファイルを開くとシートは 8 しかありません。
以前削除したシートの数が加算されているのだろう と思い、とりあえず作成作業を続行しました。すると

Debug.Print wb.worksheets.Cells.SpecialCells(xlLastCell).Address

でシートとデータ範囲を確認しながら全シートを処理しようとしていると理解不能なアドレスが返ってきます。(実際にはシート番号 4,5 のシートで)
これも気にはなるが、とりあえずシートの処理行数を表示しながら作成作業続行。

ずーっとデータ数を見つめていたら、シートが 8 枚しかないのに 10 枚分処理してるのです!!!!!!!
こういう事ってありますか?
削除済みのシートまで復活されて処理されると、とっても困るんです。
何か方法はありますでしょうか?教えてください。お願いします。

【48503】Re:ワークシートの数が実際のファイルと...
質問  Blue  - 07/4/19(木) 17:35 -

引用なし
パスワード
   単にシートが非表示になっているだけでは?

メニューの
「書式」→「シート」→「再表示」
が選択でききれば非表示シートがあることになります。


また、VBEのプロジェクトのツリーでも表示/非表示の切り替えができます。
もちろんプログラムでも。

【48509】Re:ワークシートの数が実際のファイルと...
お礼  taro  - 07/4/20(金) 8:30 -

引用なし
パスワード
   Blueさん ありがとうございます。
おっしゃる通り、再表示できます。自分はExcelから勉強しなおさないといけませんね↓
勉強になりました。ありがとうございます。

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