creating MS Excel and writing cells in VB6

Private Sub Command2_Click() Dim rowinc As Integer Dim excelApp As Excel.Application Dim excelWB As Excel.Workbook Set excelApp = CreateObject(“Excel.Application”) Set excelWB = excelApp.Workbooks.Add Dim excelWS As Excel.Worksheet Set excelWS = excelWB.Worksheets(1) excelWS.Cells(1, 1).Value = “S.No” excelWS.Cells(1, 1).Borders(xlEdgeBottom).LineStyle = xlContinuous ‘ Used to create border excelWS.Cells(1, 1).Borders(xlEdgeLeft).LineStyle = xlContinuous excelWS.Cells(1, 1).Borders(xlEdgeTop).LineStyle = xlContinuous excelWS.Cells(1, 1).Borders(xlEdgeRight).LineStyle =…

Details