mehr_83
پنج شنبه 02 شهریور 1391, 18:25 عصر
با کد زیر که در بخش آموزش سایت قرار داده شده اطلاعات دیتاگریدویو رو به اکسل می فرستم. اگر بخوام بعد اینکه به فایل اکسل تبدیل شد بلافاصله فایل اکسل باز بشه چکاری باید انجام بدم؟
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
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