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

[sheibanizaveh]

سلام دوستان عزیز شب شما بخیر
من از کد زیر برای انتقال اطلاعات از دیتاگرید به اکسل استفاده میکنم
اما یه مشکلی دارم اینه که :
بعنوان مثال فرض کنید در یک سلول عدد 09 درج شده زمانی که به اکسل انتقال داده میشه عدد میشه 9
به روایتی دیگه صفر اولو بر میداره
راهی مد نظر دارید آیا؟؟
سپاسگزارم


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




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
oSheet = Nothing
oWorkBook = Nothing
oExcel = Nothing


System.Threading.Thread.CurrentThread.CurrentCultu re = New System.Globalization.CultureInfo("fa-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("FA"))

[sheibanizaveh]

یعنی واقعا یکی نیست جواب منو بده؟؟

[iaum1361]

یعنی واقعا یکی نیست جواب منو بده؟؟
علیک سلام و باید نوع داده شما ،text باشد که در اکسل به همان صورت نمایش دهد

[sheibanizaveh]

میشه روی کد توضیح بدید
من این کد رو که اجر می کنم یه فایل اکسل برام ایجاد می کنه که مشکلی رو که بالا به اون اشاره کردمو داره متاسفانه

[reza25000]

oSheet.Cells(r + 1, c) = DataGridView1.Rows(r - 1).Cells(c - 1).Value

در آخر متن این کد عبارت .tostring اضافه کن

oSheet.Cells(r + 1, c) = DataGridView1.Rows(r - 1).Cells(c - 1).Value.tostring