نقل قول نوشته شده توسط safari_m4 مشاهده تاپیک
اول از همه خیلی خیلی ممنون و تشکر دوست عزیز و تشکر مجدد از اینکه وقت گذاشتین و جواب دادین - در خصوص اضافه کردن شیت عالی بود حالا می خواهیم تعداد را کم کنید از چه فرمولی استفاده کنیم ضمنا با توجه به اینکه در آفیس مثلا 2016 تعداد پیشفرض شیتها 1 عدد می باشد ولی در بعضی ها تعداد شیت های پیشفرض 3 ست حالا فرمولی هست که اول تشخیص دهد اگر تعداد بیشتر از یکی بود بعد عملیات کسر را انجام دهد یا از همه بهتر دستوری که در هر شرایطی تعداد شیت فقط یکی باشد با تشکر قبلی
با 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 فرقی نداره.