sheibanizaveh
سه شنبه 18 اسفند 1394, 18:41 عصر
سلام دوستان عزیز شب شما بخیر
من از کد زیر برای انتقال اطلاعات از دیتاگرید به اکسل استفاده میکنم
اما یه مشکلی دارم اینه که :
بعنوان مثال فرض کنید در یک سلول عدد 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"))
من از کد زیر برای انتقال اطلاعات از دیتاگرید به اکسل استفاده میکنم
اما یه مشکلی دارم اینه که :
بعنوان مثال فرض کنید در یک سلول عدد 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"))