哪位大哥作过数据库中数据转成EXCEL表，给源码给我看看ZYYYY9958＠SINA。COM。CN

Question

我想到了两种方法：
1、通过excel对象操作
2、读出到table中后导出

Answer 1

Dim myapp As New Excel.Application()
        Dim xlsbook1 As Excel.Workbook
        xlsbook1 = myapp.Workbooks.add()
        Dim xlssheet1 As Excel.Worksheet
        xlssheet1 = xlsbook1.Sheets("sheet1")
dim cn as new sqlconnection("server=localhost;database=yourdatabasename;uid=sa;pwd=yourpwd;")
dim strsql as string="select * from yourtablename"
dim cmd as new sqlcommand(strsql,cn)
dim dr as sqldatareader
dr=cmd.executereader(commandbehavior.closeconnection)
while dr.read
dim i as integer
for i=1 to rowscount
   dim k as integer
      for k=1 to dr.fieldcount
           xlssheet1.cells(i,k)=dr.item(k-1)
      next k
next i 
dr.close
myapp.quit()

Answer 2

对了，上面的rowscount是你的数据行数，你可以通过查询获得

Answer 3

我有:
http://www.mmifsys.com/moto/eng/images/cominterop.rar
下载,c#