04-12-20, 07:35 PM
(آخر تعديل لهذه المشاركة : 04-12-20, 07:42 PM {2} بواسطة technomedia.)
إستيراد أسماء زبائن من ملف Excel الى List box
الكود المستعمل Vb.net
.................................
لكن أريد فقط معرفة طريقة فتح ملف Excel دون ذكر مكان الملف
الكود المستعمل 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 دون ذكر مكان الملف