[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 دون ذكر مكان الملف

[asemshahen5]

تفضل الكود بعد التعديل :

PHP كود :

       Dim open As New OpenFileDialog
        open.Filter = "Excel File |*.Xls;*.Xlsx"
        If open.ShowDialog Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oBook As Object = oExcel.Workbooks.Open(open.FileName) ''"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()
        End If 


[technomedia]

شكرا جزيلا على الرد، جزاك الله خيرا، و زادك علماَ على علم، أسأل الله أن يجعل صنيعك هذا حسنة جارية لوالدتك رحمها الله.

[asemshahen5]

الحمد لله والشكر لله رب العالمين .
تصحيح صغير على كود الفتح في حال لم تختر ملف من سيعطيك خطأ من السرعة لم انتبه في شرط If open.ShowDialog Then نسيت ان اكتب تتمة الشرط :

PHP كود :

       Dim open As New OpenFileDialog
        open.Filter = "Excel File |*.Xls;*.Xlsx"
        If open.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oBook As Object = oExcel.Workbooks.Open(open.FileName) ''"e:\1.xlsx"
            Dim oSheet As Object = oBook.Worksheets(1)
            Dim i As Integer
            Dim cell As String
            Dim cell1 As String
            For i = 0 To AscW(ListBox1.Items.Count.ToString()(i = i + 1)) - 1
                cell = "A" & Convert.ToString(i + 1)
                cell1 = "B" & Convert.ToString(i + 1)
                cell = oSheet.Range(cell).Value
                cell1 = oSheet.Range(cell1).Value
                If cell = "" Then
                    Exit For
                Else
                    ListBox1.Items.Add(cell & " | " & cell1)
                End If
            Next
            oExcel.Quit()
        End If 


[technomedia]

الله ينور أيامك ، لقد اشتغل الكود بنجاح،مرة أخرى بارك الله فيك و كتبه في ميزان حسناتك
أنا مختص في الديزاين ، لذلك أحيانا أجد بعض الصعوبات في التكويد،ربما سأضع بعضاً من أعمالي في قادم الأيام.

[asemshahen5]

انشاء الله تعالى .