12-12-2019, 11:02 AM
VB Sample codes collection
write texts to excel file
write texts to excel file
Code:
Dim APP As New Excel.Application
Dim worksheet As Excel.Worksheet
Dim workbook As Excel.Workbook
workbook = APP.Workbooks.Open("D:\loadtest1.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()