Microsoft Excel 16.0 Object Library Download Vb6 [hot] -

' Auto-fit columns xlWS.Columns.AutoFit

' Save workbook xlWB.SaveAs "C:\Temp\VB6_Export.xlsx"

' Format xlWS.Range("A1:B1").Font.Bold = True microsoft excel 16.0 object library download vb6

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: ' Auto-fit columns xlWS

' 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

' Clean up ' xlWB.SaveAs "C:\Temp\test.xlsx" ' xlWB.Close ' xlApp.Quit microsoft excel 16.0 object library download vb6

xlApp.Visible = True