VB Sample to write to EXCEL file

VB Sample codes collection
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()