باز کردن word and exell در vb.net2005

[qolkaram]

سلام من search کردم اما نتونستم در مورد باز کردن word and exell در vb.net2005
مطلبی پیدا کنم .کسی می تونه به من کمک کنه ؟ خیلی عجله دارم هر کی می تونه کمکم کنه

[Mohammad .net]

در سایت CodeProjects (http://www.codeproject.com/) یک مثال کامل وجود دارد.

[jghalai]

سلام اول باید Microsoft.office.introp.word , Microsoft.office.introp.excelرا رفرنس بدی
بعد از کد زیر استفاده کن


Public Shared Sub OpenWord(ByVal DocFileName As String)
On Error Resume Next
WrdApp = CreateObject("Word.Application")
If Err.Number <> 0 Then
WrdApp = GetObject(, "Word.Application")
End If
WrdApp.Visible = True

WrdApp.Documents.Open(DocFileName)

End Sub

برای excel هم می تونی از کد زیر استفاده کنی


Public Shared Sub OpenExcel(ByVal DocFileName As String)
XlApp = New Excel.Application
XlApp.Visible = True
XlApp.UserControl = True
Dim oldCI As System.Globalization.CultureInfo = _
System.Threading.Thread.CurrentThread.CurrentCultu re
System.Threading.Thread.CurrentThread.CurrentCultu re = _
New System.Globalization.CultureInfo("en-US")
Dim filejob As New CfileName
XlApp.Workbooks.Open(DocFileName)
System.Threading.Thread.CurrentThread.CurrentCultu re = oldCI

End Sub

[shahram197070]

با سلام
اینجا لینک زیر رو نگاه کن مشکلت حل می شه
http://barnamenevis.org/forum/showthread.php?t=90533