خروجی اکسل

[safari_m4]

با Sheets.Count در هر لحظه ای می توانید بررسی کنید که الان چند تا Sheet وجود داره :

        Dim wb As Microsoft.Office.Interop.Excel.Workbook = app.Workbooks.Add(System.Type.Missing)

        Dim n As Integer = wb.Sheets.Count

و مثلا هر تعداد بیشتر از 1 رو حذف کنید :

        While wb.Sheets.Count > 1

            wb.Sheets.Item(2).Delete()

        End While

با Delete یک Sheet رو حذف می کنید، انتخاب Sheet مثلا بر اساس شماره اندیس ئه که از 1 شروع میشه، مثلا حذف دومین Sheet

wb.Sheets.Item(2).Delete()

یا بر اساس نام Sheet مثلا Sheet1

wb.Sheets.Item("Sheet1").Delete()

اون Item. عضو پیشفرض ئه برای همین نوشتنش اختیاری ئه، مثلا ()wb.Sheets(2).Delete با ()wb.Sheets.Item(2).Delete فرقی نداره.

خیلی خیلی ممنون با سپاس فراوان کمک عالی و خوبی بود با تشکر مجدد موفق و موید باشید