Как назвать таблицу в EasyXLS?

Question

Я купил easyXLS Professional и не могу узнать, как создать таблицу на листе - и дать ей имя ... В Microsoft Excel можно создать таблицу и дать ей имя - с помощью ctrl +т.Смотрите скриншот здесь: https://1drv.ms/u/s!Ak5nrcTR_zUIzG50tE9svzfhifxx

Так что я хочу сделать то же самое в easyXLS - например, я могу установить тему для конкретной таблицы ...

Я уже попробовал всеразличные примеры из документации - https://www.easyxls.com/manual/basics/features.html - в VBS.

И я попытался найти соответствующий метод в API Документах, но безуспешно.

Кто-нибудь знает, каксоздать простую таблицу в easyXLS и присвоить ей имя .?

Answer 1

В настоящее время единственной таблицей с именем, которое имеет EasyXLS, является сводная таблица.

Но вы можете создать простую таблицу данных без имени и установить автоформат для ее элементов форматирования.

Set workbook = CreateObject("EasyXLS.ExcelDocument")

Set worksheet = CreateObject("EasyXLS.ExcelWorksheet")
workbook.easy_addWorksheet(worksheet)

Set xlsTable = worksheet.easy_getExcelTable()

'define an autoformat for the table
Dim AUTOFORMAT_COLORFUL1
AUTOFORMAT_COLORFUL1 = 21
Dim xlsAutoFormat
Set xlsAutoFormat = CreateObject("EasyXLS.ExcelAutoFormat")
xlsAutoFormat.InitAs(AUTOFORMAT_COLORFUL1)

'apply autoformat
xlsTable.easy_setRangeAutoFormat_2 "A1:F10", xlsAutoFormat

'export excel file
workbook.easy_WriteXLSXFile ("C:\excel.xlsx")

Этот код использует один из предопределенных автоформатов для excel , полный список доступных предопределенных форматов: здесь .

Если вам не нравится какой-либо из предопределенных автоформатов, вы можете определить пользовательские, например:

'define an autoformat for the table
Dim AUTOFORMAT_COLORFUL1
AUTOFORMAT_COLORFUL1 = 21
Dim xlsAutoFormat
Set xlsAutoFormat = CreateObject("EasyXLS.ExcelAutoFormat")
'xlsAutoFormat.InitAs(AUTOFORMAT_COLORFUL1)

'set the formatting style of the header
Dim xlsHeaderStyle
Set xlsHeaderStyle = CreateObject("EasyXLS.ExcelStyle")
xlsHeaderStyle.setBackground(&hff90ee90)
xlsHeaderStyle.setFontSize(12)
xlsAutoFormat.setHeaderRowStyle(xlsHeaderStyle)

'...more formatting for the table elements

Кроме того, если вы хотите переключаться между темами MS Excel, вы можете установить тему для документа Excel и установить цвета автоформатирования с использованием цветов темы.

Dim THEME_COLORS_APEX
THEME_COLORS_APEX = "Apex"
workbook.setTheme_2(THEME_COLORS_APEX)

'define an autoformat for the table
Dim xlsAutoFormat
Set xlsAutoFormat = CreateObject("EasyXLS.ExcelAutoFormat")

Dim xlsThemeColor
Set xlsThemeColor = CreateObject("EasyXLS.Themes.ThemeColor")
xlsThemeColor.setColor 4, 2

' Set the formatting style of the header
Dim xlsHeaderStyle
Set xlsHeaderStyle = CreateObject("EasyXLS.ExcelStyle")
xlsHeaderStyle.setBackground_2(xlsThemeColor)
xlsHeaderStyle.setFontSize(12)
xlsAutoFormat.setHeaderRowStyle(xlsHeaderStyle)

'...more formatting for the table elements

Существует множество предопределенных тем, а также вы можете создать свою собственную тему. Подробнее о темах Excel .