23-11-2019, 07:11 AM
sample code Write to excel file
Dim APP As New Excel.Application
Dim worksheet As Excel.Worksheet
Dim workbook As Excel.Workbook
workbook = APP.Workbooks.Open("D:\excelfile.xlsx")
worksheet = workbook.Worksheets("Sheet1")
Dim iter1 As Integer
For iter1 = 1 To 50
'Add data to cells of the first worksheet in the new workbook
worksheet.Cells(1, iter1).Value = D(iter1)
Next
'Save the Workbook and Quit Excel
workbook.Save()
workbook.Close()
APP.Quit()
Dim APP As New Excel.Application
Dim worksheet As Excel.Worksheet
Dim workbook As Excel.Workbook
workbook = APP.Workbooks.Open("D:\excelfile.xlsx")
worksheet = workbook.Worksheets("Sheet1")
Dim iter1 As Integer
For iter1 = 1 To 50
'Add data to cells of the first worksheet in the new workbook
worksheet.Cells(1, iter1).Value = D(iter1)
Next
'Save the Workbook and Quit Excel
workbook.Save()
workbook.Close()
APP.Quit()