باز کردن فایل پس از تبدیل دیتاگرید ویو به اکسل

[mehr_83]

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

[nosrati1363]

سلام
در نظر من با کدی که نوشتی باید خود اکسل باز باشه oExcel.visible = True متد Show رو هم امتحان کن اما اگه نشد از کلاس Office.Excelapp ( دات نت ) یکی بساز و یه متغیی از WorkSheet کلاس . حالا خودش متد Open داره مسیر بده بازش کن
البته اگه تو MSDN جستجو کنی چند تا مثال کامل زده

[Reza Safa]

process.start("1.xls")
یا به همراه آدرس بنویسی