[technomedia]

إستيراد أسماء زبائن من ملف Excel الى List box 


الكود المستعمل Vb.net
.................................

كود :

("Dim oExcel As Object = CreateObject("Excel.Application
       ("Dim oBook As Object = oExcel.Workbooks.Open("e:\1.xlsx
       (Dim oSheet As Object = oBook.Worksheets(1
       Dim i As Integer
       Dim cell As String
       For i = 0 To AscW(ListBox1.Items.Count.ToString()(i = i + 1)) - 1

           (cell = "E" & Convert.ToString(i + 1

           cell = oSheet.Range(cell).Value
           If cell = "" Then
               Exit For
           Else
            (ListBox1.Items.Add(cell

كود :

           End If
       Next
      () oExcel.Quit

لكن أريد فقط معرفة طريقة فتح ملف Excel دون ذكر مكان الملف