如何将列表框中的所有项目导出到VB中的excel

Question

i'm using vb windows form.

I'm trying to export all items in a listbox1 to excel file using a button, but the problem that it export only the first item

i want to export all the listbox1 items

here is my code

    Imports Microsoft.Office.Interop

    Public Class Form1
   Dim MsExcel As Excel.Application
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles     Button1.Click
    MsExcel = CreateObject("Excel.Application")

    MsExcel.Workbooks.Add()

    MsExcel.Range("A1").Value = ListBox1.Items

    MsExcel.Visible = True
End Sub
End Class

Answer 1

You'll need to loop through the item and increment the row you print in :

Imports Microsoft.Office.Interop

Public Class Form1
Dim oItem As Object
Dim OffS As Integer
Dim MsExcel As Excel.Application
Dim Wb As Excel.Workbook
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles     Button1.Click
    MsExcel = CreateObject("Excel.Application")

    Set Wb = MsExcel.Workbooks.Open("Path_of_File")
    OffS = 0
    For Each oItem In ListBox1.Items
        Wb.Sheets(1).Range("A1").Offset(OffS, 0).Value = oItem
        OffS = OffS + 1
    Next oItem

    Wb.SaveAs
    DoEvents
    Wb.Close
    MsExcel.Visible = True
    End Sub
End Class