[elgokr]

مرحباً Aminsoft

الكود الفورم كاملاً

كود :

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

لا تنسي استدعاء : Microsoft.Office.Interop

يمكنك الاطلاع على الرابط التالى فهو مصدر الكود

https://stackoverflow.com/questions/3426...xcel-in-vb

فالرابط يحتوى على الكود المطلوب استخدامه

لتتمكن من استخراج القيم من ListBox الى ملف Excel

تحياتى لك

وتمنياتى لك التوفيق