ارسال اطلاعات data grid به excel

[reza ghorbani]

با سلم خدمت دوتان
من مي خوام اطلاعات درون يك Data Grid رو به excel منتقل كنم .
اگه بتونين راهنماييم كنين خيلي ممنون ميشم:قلب:

[mostafa_bahar]

Dim X_Excel As Excel.Application
Dim X_WorkBook As Excel.Workbook
Dim X_WorkSheet As Excel.Worksheet
Set X_Excel = New Excel.Application
Set X_WorkBook = X_Excel.Workbooks.add
Set X_WorkSheet = X_WorkBook.Worksheets(1)
'X_WorkSheet.Cells(1, 1) = "VB"
'X_WorkSheet.Cells(1, 2) = "Bala"
X_WorkBook.SaveAs filename:=Text4.Text
X_Excel.Visible = True
X_Excel.Quit
از دستورات بالا استفاده کن

[reza ghorbani]

دستت درد نکنه از کدی که گذاشتی
می شه یه خورده دربارش توضیح بدی!!!
دمت گرم