تبدیل متن دیتا گرید به اکسل

[masoudcarpet]

http://barnamenevis.org/forum/attachment.php?attachmentid=33399&stc=1&d=1247816209
برای تبدیل دیتا گرید به اکسل از این کد استفاده میکنم و لی با پیغامی که توی عکس هست مواجه میشم لطفا راهنمائی کنید




Private SubExportToExcel()


SaveFileDialog1.Filter = "*.xls|*.xls"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
Dim oExcel As Object
Dim oWorkBook As Object
Dim oSheet As Object
oExcel = CreateObject("Excel.Application")
oWorkBook = oExcel.Workbooks.Add
oExcel.visible = True
Dim c, r As Integer
Dim ColNum As Integer = DataGridView1.ColumnCount
Dim RowNum As Integer = DataGridView1.RowCount
Dim col As Integer = 65
oSheet = oWorkBook.worksheets(1)
For c = 1 To ColNum
oSheet.Range(CStr(Chr(col) & 1)).Value = DataGridView1.Columns(c - 1).HeaderText
col += 1
Next
For r = 1 To RowNum
For c = 1 To ColNum
oSheet.Cells(r + 1, c) = DataGridView1.Rows(r - 1).Cells(c - 1).Value
Next
Next
oWorkBook.SaveAs(SaveFileDialog1.FileName, True)
oSheet = Nothing
oWorkBook = Nothing
oExcel = Nothing
End If

End Sub

[masoudcarpet]

لطفا یه نفر به این سوال جواب بده:عصبانی++:

[masoudcarpet]

یا این سوال خیلی آسونه یا تکراریه یا کسی جوابش رو بلد نیست بالاخره تکلیف ما رو مشخص کنید؟:متفکر:

[amironline]

ميشه كدتونو كامل بزارين

مثلا اين خط رو نوشتين؟


Imports Microsoft.Office.Interop

[parsehvb]

یه نگاهی به اینجا بنداز
ارسال اطلاعات به اکسل و ورد (http://barnamenevis.org/forum/showthread.php?t=141932)

[masoudcarpet]

ميشه كدتونو كامل بزارين

مثلا اين خط رو نوشتين؟


Imports Microsoft.Office.Interop
با تشکر از اینکه جوابمو دادی باید عرض کنم که کد ی رو که شما گفتید نوشتم

[masoudcarpet]

خطای بالا به خاطر اضافه نکردن refrence بود و اما:
یه چیزی پیدا کردم وقتی از قسمت Region And Language در کنترل پنل زبان رو روی انگلیسی میزارم برنامه کار میکنه ولی و قتی اون به Persian تغییر میدم خطای
Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))
رو میده حالا راهنمائی کنید چه طور میشه از طریق کد و بدون رفتن به کنترل پنل Region را تغییر بدم:متفکر:

[masoudcarpet]

بالاخره این مشکل هم با این دو خط کد حل شد


System.Threading.Thread.CurrentThread.CurrentCultu re = new System.Globalization.CultureInfo("en-US")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("En"))

[mortezamhd]

masoudcarpet (http://barnamenevis.org/forum/member.php?u=35651)سلام دوست عزیز :
من کد اولی رو که گذاشتین رو امتحان کردم و هیچ مشکلی نداشت !!!
میشه در مورد این کد توضیح بدین (بی زحمت اگه میشه کاملا توضیح بدید)؟؟؟
طریقه ریخت اطلاعات دیتاگرید در اکسل 07 با این کد شما چقدر فرق داره ؟ چون من با xlsx ذخیره کردم ولی نشد.
و آخرین سوالم اینه که چجوری میشه اندازه یک سل رو تغییر بدیم (در هنگام ریختن اطلاعات) و آیا میشه از فرمولای اکسل هم استفاده کرد (در هنگام ریختن اطلاعات) ؟؟؟
منتظر جوابتون هستم مرسی:لبخندساده:

[masoudcarpet]

دوست عزیز اون کد اول رو که شما اشاره کردید از توی همین سایت و با جستجو به دست آوردم بنابراین در مورد سوالهای شما نمیتونم جواب درستی بدم ولی مطمئنم که مدیران سایت جواب سوالات شما رو دارند و به زودی ارائه می کنند.

[mortezamhd]

مرسی دوست عزیز