+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [VB.NET] استيراد أسماء الزبائن من ملف Excel إلى List Box معين (/showthread.php?tid=37107)
استيراد أسماء الزبائن من ملف Excel إلى List Box معين - technomedia - 04-12-20
إستيراد أسماء زبائن من ملف 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 دون ذكر مكان الملف
RE: استيراد أسماء الزبائن من ملف Excel إلى List Box معين - asemshahen5 - 04-12-20
تفضل الكود بعد التعديل :
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
RE: استيراد أسماء الزبائن من ملف Excel إلى List Box معين - technomedia - 04-12-20
شكرا جزيلا على الرد، جزاك الله خيرا، و زادك علماَ على علم، أسأل الله أن يجعل صنيعك هذا حسنة جارية لوالدتك رحمها الله.
RE: استيراد أسماء الزبائن من ملف Excel إلى List Box معين - asemshahen5 - 04-12-20
الحمد لله والشكر لله رب العالمين .
تصحيح صغير على كود الفتح في حال لم تختر ملف من سيعطيك خطأ من السرعة لم انتبه في شرط 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
RE: استيراد أسماء الزبائن من ملف Excel إلى List Box معين - technomedia - 05-12-20
الله ينور أيامك ، لقد اشتغل الكود بنجاح،مرة أخرى بارك الله فيك و كتبه في ميزان حسناتك
أنا مختص في الديزاين ، لذلك أحيانا أجد بعض الصعوبات في التكويد،ربما سأضع بعضاً من أعمالي في قادم الأيام.
RE: استيراد أسماء الزبائن من ملف Excel إلى List Box معين - asemshahen5 - 05-12-20
انشاء الله تعالى .