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

タイトル ： Re^2: エクセルの非表示シートを削除したい
投稿日： 2022/05/24(Tue) 14:00
投稿者： jingles
魔界の仮面弁士様
度々恐れ入ります。教えていただいた内容はとても分かりやすく、理解できました。
早速プログラムに書いてみたのですが、デバックすると、"ユーザー定義型は定義されていません"となり、
下記の　ExcelApp As Excel.Applicationの部分が反転します。

    Dim ExcelApp As Excel.Application
    Dim ExcelBook As Excel.Workbook
    Dim ExcelSheets As Excel.Sheets
    
    Set ExcelApp = New Excel.Application
    ExcelApp.Visible = True
    ExcelApp.DisplayAlerts = False
    
    Set ExcelBook = ExcelApp.WorkBooks.Add()
    Set ExcelBook = ExcelApp.WorkBooks.Open(L_File$)
    Set ExcelSheets = ExcelBook.WorkSheets
    
    For n = ExcelBook.WorkSheets.Count To 1 Step -1
    Set sh = ExcelBook.WorkSheets(n)
        If sh.Visible = xlsheetHidden Then
            sh.Delete
        End If
    Next

どこかに問題があるでしょうか。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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