Keep in touch

you can keep in touch with my all blogs and sites by install this Toolbar...
http://rworldtoolbar.ourtoolbar.com/

Saturday, March 6, 2010

VB.NET: Write/Create an Excel File

Dim OutputArray(200, 200) As String
Dim strFileName As String = "MyExl.xls"

'set ur OutputArray here

Dim excel As New Microsoft.Office.Interop.Excel.ApplicationClass
Dim wBook As Microsoft.Office.Interop.Excel.Workbook
Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet

wBook = excel.Workbooks.Add()
Try
wSheet = wBook.ActiveSheet()
Dim Range As Microsoft.Office.Interop.Excel.Range = wSheet.Range("A1", wSheet.Cells(200, 200))
Range.Value2 = OutputArray
wBook.SaveAs(strFileName)
Catch ex As Exception
msgbox("Some Error Occured !!!")
Finally
wBook.Close()
excel.Quit()
excel = Nothing
End Try

No comments: