نقل البيانات من الداتا جريد الى الاكسيل

شكرا اخي لردك الجميل ولكن انا اريد ل DataGrid وليس MSFlexGrid لنهم يختلفون عن بعض ارجو المساعدة وشكرا

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

For row = 0 To MSFlexGrid1.Rows - 1
		n = 0
		For col = 0 To MSFlexGrid1.Cols - 1
			arr(i, n) = MSFlexGrid1.TextMatrix(row, col)
			n = n + 1
		Next
		i = i + 1
	Next

تحتاج الى الاعتماد على ال recordset المرتبطة بها datagrid وعلى سبيل المثال adodc1 فيصبح الكود كما يلي

  For Row = 0 To Adodc1.Recordset.RecordCount - 1
		n = 0
		For Col = 0 To Adodc1.Recordset.Fields.Count - 1
		DataGrid1.Col = Col
		DataGrid1.Row = Row
		 arr(i, n) = DataGrid1.Text
		 n = n + 1
		Next
		i = i + 1
	Next

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

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

ويكود خطاء في اظهار المعلومات وهوا

DataGrid1.col = col

DataGrid1.row = row

arr(i, n) = DataGrid1.Text

مش عارف شو الخطاء

وشكرا

كمان بتعديل بسيط بحاجة الى adodc1 على الفورم او غير بما يناسبك

Private Sub Command1_Click()

	Dim irow As Integer
	Dim icol As Integer
	Dim objExcl As Object 'Excel.Application
	Dim objWk As Object 'Excel.Workbook
	Dim objSht As Object ' Excel.Worksheet
	Dim iHead As Integer
	Dim vHead As Variant
	Set objExcl = CreateObject("Excel.Application")
	objExcl.Application.Visible = True
	Set objWk = objExcl.Workbooks.Add
	Set objSht = objWk.Sheets(1)


Dim rsClone As adodb.Recordset
Set rsClone = Adodc1.Recordset.Clone

'Heading
For icol = 0 To rsClone.Fields.Count - 1

			objSht.Cells(irow + 1, icol + 1) = DataGrid1.Columns(icol).Caption

	 Next icol


	For irow = 1 To rsClone.RecordCount


		For icol = 0 To rsClone.Fields.Count - 1

			objSht.Cells(irow + 1, icol + 1) = rsClone(DataGrid1.Columns(icol).DataField) & ""

		Next icol
		rsClone.MoveNext
	Next irow

	Set objSht = Nothing
	Set objWk = Nothing
	Set objExcl = Nothing
End Sub

والله ماني عارف كيف بدي اشكرك اخي طارق الكود شغال 100%

بس في سئال محيرني بقدر اني احذف ملف معين من الكوكيز او الهستري تاعت الوندوز يعني اعمل بحث عن ملف معين واذا وجده يحذفه

اقتباس

بس في سئال محيرني بقدر اني احذف ملف معين من الكوكيز او الهستري تاعت الوندوز يعني اعمل بحث عن ملف معين واذا وجده يحذفه

هذا موضوع اخر ومتوفر عن طريق البحث

عملت بحث في المنتدى ولكن لا يوجد يالي بدي ياه انا بدي اخي طارق انه

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

لانه عند الضغط على تحديث البرنامج يقوم البرنامج بتحميل ملف تكست من الموقع الى الجهاز وبعمل مقارنه بين الرقمين ارجو ان تكون فهمتني

لاني شغلت البرنامج وعملت تحديذ واشتغمل تمام بس المشكله لما رحت على الموقع وغيرت الرقم من 1 الى 2 ما حملي الجديد بوخذ الرقم من ملف التكست من التيملبز تاعت الانترنت يالي في الوندوز ارجو المساعدة للضروره

واشكرا اخي طاريق مره اخرى