VB.NET 如何样把数据库中的 数据 导入到excel模板中

VB.NET 怎么样把数据库中的 数据 导入到excel模板中
VB.NET   怎么样把数据库中的   数据   导入到excel模板中
希望高手   指点     最好能贴代码

------解决方案--------------------
你可以参考长江支流写的金质打印通中的用Excel模板打印那部分
http://www.webmis.com.cn/MisGoldPrinter.htm 下载
frmExcelPrint窗体中的ExcelTemplatePrint(）函数
------解决方案--------------------
和SQL server操作类似的：
Dim conn As New Data.OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\weichen\桌面\新建 Microsoft Excel 工作表.xls;Extended Properties=Excel 8.0; ")
conn.Open()
Dim comm As New OleDb.OleDbCommand
comm.CommandText = "insert into [sheet1$] values( ' ') "
comm.CommandType = CommandType.Text
comm.Connection = conn
comm.ExecuteNonQuery()

------解决方案--------------------
更简单的：
dim myText as string= " "
Dim myc As Integer = ds.Tables(0).Columns.Count - 1
Dim myr As Integer = ds.Tables(0).Rows.Count - 1
Dim i As Integer
Dim j As Integer

For j = 0 To myc
mytext += ds.Tables(0).Columns(j).ColumnName & Chr(9)
Next
mytext += Chr(10)
For i = 0 To myr
For j = 0 To myc
mytext += ds.Tables(0).Rows(i).Item(j).ToString & Chr(9)
Next
mytext += Chr(10)
Next
Dim sw As New StreamWriter( "excel文件地址 ".Text, True, System.Text.Encoding.GetEncoding( "GB2312 "))
sw.Write(mytext)
sw.Close()
sw.Dispose()
------解决方案--------------------
参考：
[url]http://blog.****.net/linjimu/archive/2009/06/17/4277297.aspx[/url]
[url]http://blog.****.net/linjimu/archive/2009/07/02/4315044.aspx[/url]