Запустите пустую рабочую книгу Excel без любых рабочих листов
Создание новой рабочей книги Excel как в:
Dim xl As Excel.Application
Dim wb As Excel.Workbook
Set xl = New Excel.Application
xl.Visible = False
Set wb = xl.Workbooks.Add
Существует ли простой способ остановить Excel, автоматически создающий Sheet1, Sheet2, Sheet3?
Я могу всегда удалять эти нежелательные листы впоследствии, но это чувствует себя подобно неуклюжему решению.
8
задан Community 9 July 2018 в 18:41
поделиться
2 ответа
xl.SheetsInNewWorkbook = 1
Дополнительная информация о MSDN (Прокрутите вниз до Добавить метод, поскольку он применяется к объекту «Рабочие книги». )
Полный код:
Dim xl As Excel.Application
Dim wb As Excel.Workbook
Dim restoreSheetsInNewWorkbook As Long
Set xl = New Excel.Application
restoreSheetsInNewWorkbook = xl.SheetsInNewWorkbook
xl.SheetsInNewWorkbook = 1
Set wb = xl.Workbooks.Add
xl.SheetsInNewWorkbook = restoreSheetsInNewWorkbook 'or just set it to 3'
11
ответ дан 5 December 2019 в 10:00
поделиться
Или вы можете:
Excel 2003 Инструменты>Параметры>Вкладка Общие и изменить "Листы в новой рабочей книге" на 1
Excel 2007 Office Button>Excel Options>Popular Section>When when creating new workbooks...>Include this many sheets>1
3
ответ дан 5 December 2019 в 10:00
поделиться
Другие вопросы по тегам: