タイトル : 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 どこかに問題があるでしょうか。 |