سلام دوست عزیز اول کد های (sub)زیر رو به پروژتون اضافه میکنید
1.jpg
Capture.JPG
2.jpg
بعد از مراحل بالا کد Imports Microsoft.Office.Interop به بالای پروژه اضافه میشه و فقط کافی هر جا نیاز داشتی که دیتا گرید رو به اکسل تبدیل کنید از دستور ()toexel استفاده کنید
موفق باشید
Sub toexel()
System.Threading.Thread.CurrentThread.CurrentCultu re = System.Globalization.CultureInfo.CreateSpecificCul ture("en-US")
Dim app As New Excel.Application
Dim xlWorkBook As Excel.Workbook = app.Workbooks.Add()
Dim xlWorkSheet As Excel.Worksheet
Dim xlApp As New Excel.Application
Dim misValue As Object = System.Reflection.Missing.Value
xlWorkSheet = xlWorkBook.Sheets("Sheet1")
For i As Integer = 1 To DataGridView1.Columns.Count
xlWorkSheet.Cells(1, i) = DataGridView1.Columns(i - 1).HeaderText
Next
xlWorkSheet.DisplayRightToLeft = True
For i = 0 To DataGridView1.RowCount - 1
Application.DoEvents()
For j As Integer = 1 To DataGridView1.Columns.Count
xlWorkSheet.Cells(i + 2, j) = DataGridView1.Rows(i).Cells(j - 1).Value.ToString
Next
Next
xlWorkSheet.DisplayRightToLeft = True
xlWorkSheet.Cells.HorizontalAlignment = RightToLeft
'............................................مس ر Desktop........................................... ...........
Dim aa As String = Environment.GetFolderPath(Environment.SpecialFolde r.Desktop)
'................................................. .................................................
xlWorkSheet.DisplayRightToLeft = True
xlWorkSheet.SaveAs(aa.ToString + "ha.xlsx")
xlWorkBook.Close()
xlApp.Quit()
MsgBox("کاربر گرامی فایل مورد نظر ذخیره شد", MsgBoxStyle.Information, "هشدار")
Me.Close()
End Sub
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول