كيف يمكن وضع بيانات محتوى ملف اكسل داخل داتا جريد بالفيجوال بيسك دوت نت

جربي هذا الكود:

		Try
			Dim path As String = "c:\book1.xls"
			Dim connectionString = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Extended Properties=Excel 8.0", path)
			Dim cnn As New OleDb.OleDbConnection(connectionString)
			'Sheet1 اسم الورقة المطلوبة في 
			Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM [Sheet1$]", cnn) '
			Dim tbl As New DataTable
			da.Fill(tbl)
			DataGridView1.DataSource = tbl
		Catch ex As Exception
			MessageBox.Show(ex.ToString())
		End Try

على افتراض ان DataGridView1 موجودة في الفورم.

اخويا الكود خطا

اخويا

اسم الورقة هى اسم الملف

منين اعرف اسم الورقة

انا لما اكتب بيانات فى فى الاكسل بيظهر لى ملف واحد فقط وهو عبارة جدول واحد فقط وبيحتوى على ورقة واحدة فقط

واسم الورقة هى اسم لملف

فارجو الله باركلك توضحلى النقطة دى

اي ملف اكسل لازم يكون فيه ورقة واحدة على الأقل ، تعرض الأوراق في اسفل نافذة اكسل.

جربي هذا المثال (الكود + ملف اكسل + VS2008)

ExcelToDataGridView.rar

يا اخى مش عارفة اشكرك ازاى على تعبك معايا

وخلاص المشكلة اتحلت والحمد لله

بجد مشكورين كل اعضاء منتدى الفريق العربى للبرمجة

وجزاكم الله كلخير

السلام عليكم ورحمة الله :

شكرا لك اخي حسان ولكنك لم تأخذ بعين الاعتبار عدد الصفحات الموجودة واسمائها ولذلك ليش من الشرط ان تكون الصفحة الأولى هي sheet1 قد تكون اي اسم وقد تكون هناك عدة صفحات . في المثال المرفق قمت بانشاء زر لاختيار الملف ومن ثم يقوم بفحص الملف لاكتشاف الصفحات واسمائها ويضعها في ComboBox ومن ثم يقوم المستخدم باختيار الصفحة المطلوبة لعرضها . لكني اعتذر عن كتابة المثال بلغة سي شارب داخل هذا المنتدى .

WindowsFormsApplication2.rar

sufian2020 كتب:

السلام عليكم ورحمة الله :

شكرا لك اخي حسان ولكنك لم تأخذ بعين الاعتبار عدد الصفحات الموجودة واسمائها ولذلك ليش من الشرط ان تكون الصفحة الأولى هي sheet1 قد تكون اي اسم وقد تكون هناك عدة صفحات . في المثال المرفق قمت بانشاء زر لاختيار الملف ومن ثم يقوم بفحص الملف لاكتشاف الصفحات واسمائها ويضعها في ComboBox ومن ثم يقوم المستخدم باختيار الصفحة المطلوبة لعرضها . لكني اعتذر عن كتابة المثال بلغة سي شارب داخل هذا المنتدى .

يا اللللللللللله

زيادة الخير

اربعمائه وعشرون

:(