تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استيراد أسماء الزبائن من ملف Excel إلى List Box معين
#1
إستيراد أسماء زبائن من ملف 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
#2
تفضل الكود بعد التعديل :

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()(1)) - 1
                cell 
"E" Convert.ToString(1)
 
               cell oSheet.Range(cell).Value
                If cell 
"" Then
                    Exit 
For
 
               Else
                    ListBox1
.Items.Add(cell)
 
               End If
 
           Next
            oExcel
.Quit()
 
       End If 
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
#3
شكرا جزيلا على الرد، جزاك الله خيرا، و زادك علماَ على علم، أسأل الله أن يجعل صنيعك هذا حسنة جارية لوالدتك رحمها الله.
الرد
تم الشكر بواسطة: asemshahen5
#4
الحمد لله والشكر لله رب العالمين .
تصحيح صغير على كود الفتح في حال لم تختر ملف من سيعطيك خطأ من السرعة لم انتبه في شرط 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()(1)) - 1
                cell 
"A" Convert.ToString(1)
 
               cell1 "B" Convert.ToString(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
#5
الله ينور أيامك ، لقد اشتغل الكود بنجاح،مرة أخرى بارك الله فيك و كتبه في ميزان حسناتك
أنا مختص في الديزاين ، لذلك أحيانا أجد بعض الصعوبات في التكويد،ربما سأضع بعضاً من أعمالي في قادم الأيام.
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5
#6
انشاء الله تعالى .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم