' Add reference to: Microsoft Excel 16.0 Object Library ' Add a CommandButton named cmdExportToExcel Private Sub cmdExportToExcel_Click() Dim xlApp As Excel.Application Dim xlWB As Excel.Workbook Dim xlWS As Excel.Worksheet Dim i As Integer, j As Integer
I understand you're looking for information about using the with VB6 (Visual Basic 6.0), and you want to "produce a feature" — likely meaning create a functional example or automate Excel from VB6.
' Example: Export from MSFlexGrid (assuming you have one named MSFlexGrid1) With MSFlexGrid1 For i = 0 To .Rows - 1 For j = 0 To .Cols - 1 xlWS.Cells(i + 1, j + 1).Value = .TextMatrix(i, j) Next j Next i End With
' Save workbook xlWB.SaveAs "C:\Temp\VB6_Export.xlsx"
' Format xlWS.Range("A1:B1").Font.Bold = True
Private Sub CreateExcelLateBinding() Dim xlApp As Object Dim xlWB As Object Dim xlWS As Object ' Create Excel without reference Set xlApp = CreateObject("Excel.Application") Set xlWB = xlApp.Workbooks.Add Set xlWS = xlWB.Worksheets(1)
regsvr32 "C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" Here's a complete feature that exports a VB6 DataGrid or FlexGrid to Excel 16.0:
' Optional: Add formatting With xlWS.Rows(1) .Font.Bold = True .Interior.Color = RGB(200, 200, 200) End With