tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル エクセルの非表示シートを削除したい
投稿日: 2022/05/18(Wed) 17:27
投稿者jingles
独学でvb6を始めて1年です。
エクセルの非表示シートがあったら削除するプログラムを、エクセルVBAで確認し、vb6で使えるように
したかったのですが、変数の宣言がうまくいかず利用できません。
参照設定もMicrosoft DAO 3.6 object Libraryしか設定できない環境です。

Sub 非表示のワークシートをすべて削除する()
 If MsgBox("非表示のワークシートをすべて削除していいですか?", _
  vbYesNo + vbDefaultButton2) = vbNo Then Exit Sub
 Application.DisplayAlerts = False

 Dim sh As Worksheet
 For Each sh In Worksheets
  If sh.Visible = xlSheetHidden Then sh.Delete
 Next

 Application.DisplayAlerts = True
End Sub

を参考にしたのですが…
お詳しい方、助けていただけますか?

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。