User Guide Tutorials VB6 tutorials Tutorial 17: How to group rows or columns in VB6 How to group rows or columns in VB6 EasyXLS Excel library can be used to export Excel files in VB6. The library is a COM+ component that works without MS Excel installed.
Step 1: Download and install EasyXLS Excel Library for COM+ To download the trial version of EasyXLS Excel Library, press the below button:
If you already own a license key, you may login and download EasyXLS from your account.
Step 2: Verify if EasyXLS is registered Check if EasyXLS component is present in Component Services.
Step 3: License file setup Step required for EasyXLS v9.0 or later. If you are using a trial, generate a trial license file from EasyXLS trials page. The trial license is valid for 30-days. If you own a license key, you may login to the account that purchased the license and generate the license file from: https://www.easyxls.com/my-orders Setup the license file into your project using these guidelines .
Step 4: Add reference to EasyXLS (optionally) Optionally, EasyXLS can be added as reference. Go to menu, select "Project" menu item, choose "References..." , then check EasyXLS from the "Available References" list.
Step 5: Run VB6 code that adds formula to Excel cell Execute the following VB6 code that groups data on the first sheet of an Excel file on two outline levels.
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4590
ClientLeft = 60
ClientTop = 345
ClientWidth = 6885
LinkTopic = "Form1"
ScaleHeight = 4590
ScaleWidth = 6885
StartUpPosition = 3
Begin VB.Label Label1
AutoSize = -1
Height = 100
Left = 120
TabIndex = 0
Top = 120
Width = 100
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
DataType .Initialize
Styles .Initialize
DataGroup .Initialize
Me.Label1.Caption = "Tutorial 17" & vbCrLf & "-----------------" & vbCrLf
Set workbook = CreateObject("EasyXLS.ExcelDocument" )
workbook.easy_addWorksheet_2 ("First tab" )
workbook.easy_addWorksheet_2 ("Second tab" )
Set xlsFirstTable = workbook.easy_getSheetAt(0).easy_getExcelTable()
For Column = 0 To 4
xlsFirstTable.easy_getCell(0, Column).setValue ("Column " & (Column + 1))
xlsFirstTable.easy_getCell(0, Column).setDataType (DataType.DATATYPE_STRING)
Next
xlsFirstTable.easy_getRowAt(0).setHeight (30)
For row = 0 To 24
For Column = 0 To 4
xlsFirstTable.easy_getCell(row + 1, Column).setValue ("Data " & (row + 1) & ", " & (Column + 1))
xlsFirstTable.easy_getCell(row + 1, Column).setDataType (DataType.DATATYPE_STRING)
Next
Next
xlsFirstTable.setColumnWidth_2 0, 70
xlsFirstTable.setColumnWidth_2 1, 100
xlsFirstTable.setColumnWidth_2 2, 70
xlsFirstTable.setColumnWidth_2 3, 100
xlsFirstTable.setColumnWidth_2 4, 70
Set xlsFirstDataGroup = CreateObject("EasyXLS.ExcelDataGroup" )
xlsFirstDataGroup.setRange_2 ("A1:E26" )
xlsFirstDataGroup.setGroupType (DataGroup.DATAGROUP_GROUP_BY_ROWS)
xlsFirstDataGroup.setCollapsed (False )
Dim xlsAutoFormat
Set xlsAutoFormat = CreateObject("EasyXLS.ExcelAutoFormat" )
xlsAutoFormat.InitAs (Styles.AUTOFORMAT_EASYXLS1)
xlsFirstDataGroup.setAutoFormat (xlsAutoFormat)
workbook.easy_getSheetAt(0).easy_addDataGroup (xlsFirstDataGroup)
Set xlsSecondDataGroup = CreateObject("EasyXLS.ExcelDataGroup" )
xlsSecondDataGroup.setRange_2 ("A2:E10" )
xlsSecondDataGroup.setGroupType (DataGroup.DATAGROUP_GROUP_BY_ROWS)
xlsSecondDataGroup.setCollapsed (False )
Dim xlsAutoFormat2
Set xlsAutoFormat2 = CreateObject("EasyXLS.ExcelAutoFormat" )
xlsAutoFormat2.InitAs (Styles.AUTOFORMAT_EASYXLS2)
xlsSecondDataGroup.setAutoFormat (xlsAutoFormat2)
workbook.easy_getSheetAt(0).easy_addDataGroup (xlsSecondDataGroup)
Me.Label1.Caption = Me.Label1.Caption & vbCrLf & _
"Writing file C:\Samples\Tutorial17 - group data in Excel.xlsx"
workbook.easy_WriteXLSXFile ("C:\Samples\Tutorial17 - group data in Excel.xlsx" )
If workbook.easy_getError() = "" Then
Me.Label1.Caption = Me.Label1.Caption & vbCrLf & "File successfully created."
Else
Me.Label1.Caption = Me.Label1.Caption & vbCrLf & "Error: " & workbook.easy_getError()
End If
workbook.Dispose
End Sub
Overloaded methods For methods with same name but different parameters, only the first method overload retains the original name. Subsequent overloads are uniquely renamed by appending to the method name '_2', '_3', etc (method, method_2, method_3), an integer that corresponds to the order of declaration that can be found in EasyXLS.h, a file that comes with EasyXLS installation.