27-11-21, 02:56 PM
(آخر تعديل لهذه المشاركة : 27-11-21, 03:26 PM {2} بواسطة جيولوجي مبتدئ.)
السلام عليكم ورحمة الله وبركاته
شباب كيف يمكن تصدير البيانات الى ملف محدد في الاكسل ( ملف موجود مسبقاً وأضيف اليه البيانات وليس انشاء ملف اكسل جديد ) كل ما أجده في هذا الموضوع أنه ينشأ ملف اكسل جديد وتضاف إليه البيانات وما أريده أن يضيف البيانات غلى ملف موجود مسبقاً في جهازي
لكم جزيل الشكر
دمتم بود
الله يعطيكم العافي ياشباب تم الحل
لكم جزيل الشكر
دمتم بود
شباب كيف يمكن تصدير البيانات الى ملف محدد في الاكسل ( ملف موجود مسبقاً وأضيف اليه البيانات وليس انشاء ملف اكسل جديد ) كل ما أجده في هذا الموضوع أنه ينشأ ملف اكسل جديد وتضاف إليه البيانات وما أريده أن يضيف البيانات غلى ملف موجود مسبقاً في جهازي
لكم جزيل الشكر
دمتم بود
الله يعطيكم العافي ياشباب تم الحل
Dim objExcel As New Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objSheet As Excel.Worksheet
objExcel.Visible = True
objExcel.Workbooks.Add()
objWorkbook = objExcel.Workbooks.Open("D:\excel.xls")
objSheet = objWorkbook.Worksheets(1)
For i As Integer = 0 To DGV.Rows.Count - 2
For j As Integer = 0 To DGV.ColumnCount - 1
objSheet.Cells(i + 1, j + 1) = DGV.Rows(i).Cells(j).Value.ToString
Next
Next
لكم جزيل الشكر
دمتم بود