vb.net Export Data to Excel

excel| Export Data----------vb.net export data to Excel-------------

Dim oexcel as New excel.application
Dim obook as Excel.Workbook
Dim osheet as Excel.Worksheet
Dim DataArray as Integer
obook = OExcel.Workbooks.Open ("C:\1.xls")
osheet = obook. Worksheets (1)
Osheet.name = "OK"
Dim Myadapter as New oledb.oledbdataadapter ("SELECT * from List", Module1.dbconn)
Dim myDataSet as New DataSet
Myadapter.fill (myDataSet, "list")
DataGrid1.DataSource = myDataSet. Tables ("list")
Dim I as Integer
Dim Icount as Integer
icount = myDataSet. Tables ("list"). Rows.Count
For i = 0 to ICount-1
DataArray (i, 0) = Datagrid1.item (i, 0)
Next
Osheet.range ("B1"). Resize (100, 1). Value = DataArray
obook. Save ()
oExcel.Quit ()

Add the rows (columns) of data to Excel, and the array of source data corresponds to the rows (columns) of Excel.

The code above uses the DataGrid control, which is the same if you use a table.


The size of the array can be defined by itself, and if the number of data is greater than the range of the array, then the array is the name (who wants to output it with an array):-)

The first time to write a blog, what is wrong to write, master please advise

--------------Finish-------------------------------