منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - استيراد أسماء الزبائن من ملف Excel إلى List Box معين

إستيراد أسماء زبائن من ملف 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 دون ذكر مكان الملف

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

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 

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

الحمد لله والشكر لله رب العالمين .
تصحيح صغير على كود الفتح في حال لم تختر ملف من سيعطيك خطأ من السرعة لم انتبه في شرط 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

technomedia

asemshahen5

technomedia

asemshahen5