在Access和MSSqlserver里都有将表直接导出到Excel的工具

Posted 2020-08-12

在Access和MSSqlserver里都有将表直接导出到Excel的工具,可是当客户需要在程序里将数据库里的表生成Excel表格时,我们用一般的T-sql语句很难做到!下面是我结合网上资料和客户的需求写的代码,仅供学习交流.

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Stu_signUp order by id asc"
rs.open sql,conn,1,1
Set fs = server.CreateObject("scripting.filesystemobject") 
‘--假设你想让生成的EXCEL文件做如下的存放 
filename = Server.MapPath("users.xls") 
‘--如果原来的EXCEL文件存在的话删除它 
if fs.FileExists(filename) then 
   fs.DeleteFile(filename) 
end  if 
‘--创建EXCEL文件 
set myfile = fs.CreateTextFile(filename,true) 
  dim ttxt,file,filepath,writefile
  ttxt="user.xls"  ‘为要写入的文件取个文件名，后缀可以是txt,xls,这里我用csv,这种文件打开也是excel表
  Set file = CreateObject("Scripting.FileSystemObject")
  Application.lock ‘写入文件的存放路径，一定要开放这个路径下的读写权限
  filepath=Server.MapPath(ttxt)
  Set Writefile = file.CreateTextFile(filepath,true)
  ‘在表格中写入第一行，字段描述，这个根据你实际的数据表字段来写
  if not (rs.eof And rs.bof) then

   dim  trLine,responsestr 
   strLine=""
   ‘如果你不需要改边列名
   For each x in rs.Fields
    strLine=strLine &x.name& chr(9)
   next
   ‘如果你的数据表中的字段非用户想要看到的，在这里可以将你的字段放在数组中写在Excel的首行
   arr=array("编号","学生姓名","学生性别","生日","所在学校","年级","班级","英语启蒙年龄","是否在课外机构学习英语","课外机构名称","入学时间","家长姓名","家长称谓","家长手机","家长工作单位","家长职业","学历","报名日期")
  For i=0 to Ubound(arr)
       strLine = strLine & arr(i)& chr(9) 
  Next
 
  myfile.writeline strLine
  Do while Not rs.EOF 
       strLine="" 
  j=0
       for each x in rs.Fields 
           strLine = strLine &x.value&  chr(9)
       next 
       myfile.writeline  strLine 

       rs.MoveNext 
   loop 
myfile.close
  rs.close
  set rs=nothing
end if
‘完成写入

%>