درج اطلاعات از دیتاگرید در جای مشخص ازفایل اکسل

[mohsenaminzare]

با سلام
من یک datagridview دارم که در هر سطر اون نام و نام خانوادگی و کد ملی مشتریان نمایش داده می شه می خوام بعد از زدن دکمه ای اطلاعات دیتا گرید به داخل اکسل بره . فایل اکسل هم از قبل ایجاد شده است . من این کارروکردم و اطلاعات ذخیره شد ولی در ابتدای فایل ذخیره می شه . می خوام برنامه طوری باشه که هر سطر از دیتا گرید به داخل سطر مشخص از اکسل در جای مشخص بره

[ghayour]

سلام

project>add reference>.Net>Microsoft.Office.Interop.Excel

Imports Microsoft.Office.Interop
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Export DataGridView to Excel
Dim xlapp As Excel.Application
Dim xlworkbook As Excel.Workbook
Dim xlworksheet As Excel.Worksheet
Dim misvalue As Object = System.Reflection.Missing.Value
Dim i As Integer
Dim j As Integer
xlapp = New Excel.Application
xlworkbook = xlapp.Workbooks.Add(misvalue)
xlworksheet = xlworkbook.Sheets("Sheet1")
For i = 0 To DataGridView1.RowCount - 2
For j = 0 To DataGridView1.ColumnCount - 1
xlworksheet.Cells(i + 1, j + 1) = _
DataGridView1(j, i).Value.ToString()
Next
Next
Dim dialog As New SaveFileDialog
Dim result As DialogResult = dialog.ShowDialog
Try
xlworksheet.SaveAs(dialog.FileName)
Catch exerr As Exception
End Try

xlworkbook.Close()
xlapp.Quit()

releaseObject(xlapp)
releaseObject(xlworkbook)
releaseObject(xlworksheet)

End Sub
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComO bject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
منبع:
http://www.codeproject.com/Questions/314494/Export-DataGridView-to-Excel-in-vb-net-2-0-Windows

[mohsenaminzare]

با تشکر از پاسختان
حالا اگه بخوام اطلاعات مثلا در سلول c5. درج. شه چکار بايد کنم

[layegh110]

عالی بود جناب غیور.
----------------------------------------
راستی آواتار زیباتون هم ما رو تا کنار ضریح مهربانی برد. السلام علیک یا علی بن موسی الرضا

[layegh110]

با تشکر از پاسختان
حالا اگه بخوام اطلاعات مثلا در سلول c5. درج. شه چکار بايد کنم

فکر کنم باید در تعریف سلولها در حلقه ی فور مقادیری که باید از آی و جی کم و زیاد بشه رو دست کاری کنید. این تصور منه. تجربه نکردم.

**********************
فسألوا اهل الذکر //////// اللهم صل علی محمد و آل محمد و عجل فرجهم

[ghayour]

با تشکر از پاسختان
حالا اگه بخوام اطلاعات مثلا در سلول c5. درج. شه چکار بايد کنم
کافیه مقداری که به i و j اضافه میشه را تغییر دهید.
به عنوان مثال:
xlworksheet.Cells(i + 5, j + 3) = _

[MOR_MS]

سلام
چطوري ميشه هدر ديتا گريد را هم انتقال دار
در موردي سلولهاي انتخاب شده ديتا گريد ميشه از اين روش استفاده كرد
ممنون ميشم راهنمايي كنيد