تصدير البيانات من Datagridview To Excel

أخى انا مبتدئ جدا فى البرمجة و بدرس سى شارب اصلا :D

بس هحاول اساعد

وجدت هذا الكود و على ما اعتقد هتجد فيه ما تريد

الكود فى المرفق

طلب صغير لو زبط معاك تقوللى عشان انا بخلص مشروع تخرجى بالفيجوال بيزيك و خاصية مثل التصدير الى اكسل هتبقى كويسة

خالص تحياتى

DocDatabaseToExcel.zip

الاخ الفاضل dvd_Besoo

لا استطيع مراسلتك علي الخاص انظر الصورة

اذا قمت باضافتي لقائمة الاصدقاء فقم بازالتي مرة اخري او تحري الامر ربما منعتني عن مراسلتك بدون قصد

الاخوة الافاضل

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

مرفق لكم مثال عن طريقة تصدير البيانات من خلال آداه DataGridView الي برنامج Excel

بالتوفيق للجميع

Export_To_Excel.rar

اخواني الكرام مشكورين ولكن انا الكود اللي انا كتبتو فوق شغال 100/100

ولكن المشكلة انه يأتي بكل السجلات ماعدا السجل الاول

وهذه هي المشكلة الان لماذا يصدر كل الصفوف عدا الصف الاول

؟؟؟؟؟؟؟؟؟

هل المثال المرفق لا يفي بالغرض

عموما

ضع لنا مثال لكي نستطيع تتبع المشكلة ومحاولة حلها

مثالك المرفق يعطيني رسالة خطأ على السطر التالي :

xlWorkSheet.Cells(i + 1, j + 1) = _

والخطأ هو :

Expression is a value and therefore cannot be the target of an assignment

علما انني ضفت excel references

أخي الفاضل

mmsalman87

المثال يعمل بصورة طبيعية 100/100 وبدون اي مشاكل

شاهد المرفق جيداً وتأكد من انك قد اضفت المكتبة الصحيحة لتشغيل المثال

Export_From_DGV_To_Excel_By_Vedio.rar

اخي الكريم عندما ليست موجودة عندي هذه المكتبة علما انني استخدم اوفيس 2007

موجود عندي نسخة اخرى ولكن يعطيني عليها خطأ عند اضافتها ما الحل هل اقوم بتنزيل اوفيس 2003 مثلا ؟

أنا عندي اوفيس 2007 و المثال شغال 100 / 100

سأحاول ارفاق المكتبة

نسيت شيئاً لا بد أن تقوم بتنصيب Visual Studio Tools for Office (VSTO)

حتى تتمكن من استخدام مميزات Microsoft Office من الفيجوال ستوديو

هذا رابط من الـ MSDN عن هذه الادوات:

http://msdn.microsoft.com/en-us/library/d2tx7z6d(VS.80).aspx

روابط التحميل :

1. Microsoft Visual Studio 2005 Tools for Office Second Edition Runtime (VSTO 2005 SE) (x86)

و هذه موجهة خصيصاً للـ Office 2007 الرابط السابق أيضاً يتعامل الـ Office 2007

لكن هذه موجه بالتحديد إلى الاصدار 2007 و يمكن أيضاً أن تتعامل مع الاصدارات السابقة .

2. Microsoft Visual Studio 2005 Tools for the 2007 Microsoft Office System

أما مثال الاخ محمد فؤاد فهو يعمل ربما ينقصك هذه المكتبات لكي تستطيع فتحه .

انا مش عارف اشكركم كيف يا اخوة وفيتم و كفيتم

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

dvd_sxs@hotmail.com

تقبلو ارق تحياتى

جارى تحميل ((Visual Studio Tools for Office)) و شكرا عزيزى Comfort على الفيديو و انا متأكد من ان المثال يعمل ان شاء الله

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

قم بتحميل المكتبة المرفقة

ثم قم باضافتها كما هو موضح بالصورة

Microsoft.Office.Interop.Excel.rar

dvd_besoo كتب:

جارى تحميل ((Visual Studio Tools for Office)) و شكرا عزيزى Comfort على الفيديو و انا متأكد من ان المثال يعمل ان شاء الله

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

عفواً .و لكن الأخ محمد فؤاد هو من رفع الفيديو .

يعطيني الخطأ التالي :

Imports alias 'Excel' conflicts with 'Namespace Excel' declared in the root namespace.

شو الحل نزلت كل المكتبات اللي بعرفها عن الاوفيس

علما انني استخدم اوفيس 2007 ودوت نت 2005

حط هذا الكود وراح يشتغل حلاوه معاك

Dim thisThread As System.Threading.Thread = System.Threading.Thread.CurrentThread
		Dim originalCulture As System.Globalization.CultureInfo = thisThread.CurrentCulture
		thisThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")

بالنسبة لاضافة الهيدر الخاص بالداتا قريد

ضيف هذا في حلقة التكرار

				xlWorkSheet.Cells(j + 1) = DataGridView1.Columns(j).HeaderText

ليصبح هكذا

For i = 0 To DataGridView1.RowCount - 2
			For j = 0 To DataGridView1.ColumnCount - 1
				xlWorkSheet.Cells(j + 1) = DataGridView1.Columns(j).HeaderText
				xlWorkSheet.Cells(i + 1, j + 1) = DataGridView1(j, i).Value.ToString()
			Next
		Next

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

قم باضافة اداة save file dialigeمن toolbox

وأضف هذا الكود

بعد عملية التكرار مباشرة

Dim strFileName As String
		Dim saveFileDialog1 As New SaveFileDialog()

		saveFileDialog1.Filter = "Excel workbook (*.xlsx)|*.xlsx"
		saveFileDialog1.FilterIndex = 2
		saveFileDialog1.RestoreDirectory = True
		If saveFileDialog1.ShowDialog() = DialogResult.OK Then
			strFileName = saveFileDialog1.FileName
		Else
			Exit Sub
		End If
		xlWorkSheet.SaveAs(strFileName)
		xlWorkBook.Close()
		xlApp.Quit()

السلام عليكم ...

أضن أن كود الأخ سليمان كان صحيح و لكن ينقصه تعديل بسط

System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
		Dim xlApp As Object
		Dim xlWb As Object
		Dim xlWs As Object

		Dim data(1)() 'two dimension array
		Dim fldCount As Integer
		Dim recCount As Long
		Dim iCol As Integer
		Dim iRow As Integer

		' Create an instance of Excel and add a workbook
		xlApp = CreateObject("Excel.Application")
		xlWb = xlApp.Workbooks.Add
		xlWs = xlWb.Worksheets("Sheet1")

		' Copy field names to the first row of the worksheet
		fldCount = DataGridView1.ColumnCount
		ReDim data(0)(fldCount)

		For iCol = 1 To fldCount
			xlWs.Cells(1, iCol).Value = DataGridView1.Columns(iCol - 1).HeaderText
		Next

		' Copy data to the rest rows of the worksheet
		recCount = DataGridView1.Rows.Count
		For iRow = 2 To recCount


			For iCol = 1 To fldCount
				data(0)(iCol - 1) = Me.DataGridView1.Rows(iRow - 1).Cells(iCol - 1).Value
			Next
			xlWs.Range(xlWs.Cells(iRow, 1), xlWs.Cells(iRow, iCol - 1)).Value = data(0)


		Next

		' Auto-fit the column widths and row heights
		xlApp.Selection.CurrentRegion.Columns.AutoFit()
		xlApp.Selection.CurrentRegion.Rows.AutoFit()

		' Display Excel and give user control of Excel's lifetime
		xlApp.Visible = True
		xlApp.UserControl = True

		' Release Excel references
		xlWs = Nothing
		xlWb = Nothing
		xlApp = Nothing

السلام عليكــم ورحمـة الله وبركاتــه ،،

أخواني جربت ماقمتم به ولكن وجدت مشكلة دائما تحصل معي وهي

ملخصة بهذه الصورة

الاخ الفاضل

فلسطيننا

هل واجهة ويندوز لديك Windows Interface بلغة مختلفة غير اللغة الانجليزية؟

لا أخي الكريم

اللغة المعتمدة لدي هي اللغة الانجليزية

مع العلم ان البرنامج الذي قمت بأرفاقه يعمل لدي 100%

ولكنه الكود حينما قمت بأضافته في البرنامج الخاص بي لم يعمل

ربما انني استخدم الاصدار 2008 من vs.net

الله أعلم وأعلى

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

وقد ارفقت مثال يوضح ذلك

exportToexcel.rar

مشكور على المثال شغاااااااااااااااااااااااااااال 100 لل 100

mmsalman87 كتب:

اخواني الكرام مشكورين ولكن انا الكود اللي انا كتبتو فوق شغال 100/100

ولكن المشكلة انه يأتي بكل السجلات ماعدا السجل الاول

وهذه هي المشكلة الان لماذا يصدر كل الصفوف عدا الصف الاول

؟؟؟؟؟؟؟؟؟

لقد قمت بحل هذه المشكلة وذلك بتعديل بسيط في الكود وكذلك إضافة عنوان للتقرير في داخل اكسل

والتعديل كان في حلقة تكرار قراءة القريد

واشكر صاحب الموضوع على الكود الذي ساعدني في برنامجي :lol:

		   System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
		   Dim xlApp As Object
		   Dim xlWb As Object
		   Dim xlWs As Object

		   Dim data(1)() 'two dimension array
		   Dim fldCount As Integer
		   Dim recCount As Long
		   Dim iCol As Integer
		   Dim iRow As Integer

		   ' Create an instance of Excel and add a workbook
		   xlApp = CreateObject("Excel.Application")
		   xlWb = xlApp.Workbooks.Add
		   xlWs = xlWb.Worksheets("Sheet1")

		   ' Copy field names to the first row of the worksheet
		   fldCount = DataGridView1.ColumnCount
		   ReDim data(0)(fldCount)

		   xlWs.Cells(1, 3).Value = "عنوان التقرير"

		   For iCol = 1 To fldCount
			   xlWs.Cells(2, iCol).Value = DataGridView1.Columns(iCol - 1).HeaderText
		   Next

		   ' Copy data to the rest rows of the worksheet
		   recCount = DataGridView1.Rows.Count + 1
		   For iRow = 3 To recCount


			   For iCol = 1 To fldCount
				   data(0)(iCol - 1) = Me.DataGridView1.Rows(iRow - 2).Cells(iCol - 1).Value
			   Next
			   xlWs.Range(xlWs.Cells(iRow, 1), xlWs.Cells(iRow, iCol - 1)).Value = data(0)


		   Next

		   ' Auto-fit the column widths and row heights
		   xlApp.Selection.CurrentRegion.Columns.AutoFit()
		   xlApp.Selection.CurrentRegion.Rows.AutoFit()

		   ' Display Excel and give user control of Excel's lifetime
		   xlApp.Visible = True
		   xlApp.UserControl = True

		   ' Release Excel references
		   xlWs = Nothing
		   xlWb = Nothing
		   xlApp = Nothing