关于sql导excel

最新推荐文章于 2022-04-13 15:26:26 发布
最新推荐文章于 2022-04-13 15:26:26 发布
阅读量1.5k 收藏
点赞数
分类专栏： ASP 文章标签： sql excel border microsoft office class
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/baikaishui_0825/article/details/217139
版权
补充：mso-number-format:General;à mso-number-format:@;这样可以避免数字转成科学计数法和零数字消失。

用于把一个 SQL 的 SELECT 查询出的结果输出为 EXCEL 格式文件，这个程序你只要设好用于取得一个记录集的 SQL 的 SELECT 查询语句和一个文件名，程序就能输出 EXCEL 格式文件了，这个程序一共由三个文件构成，第一个文件的文件名为： toexcel.asp 是主文件，内容如下：

 

<%

 

'前面是和来链接到数据库,请自行书写相关语句，此处略过

 

sql=session("toexcelsql")  '这里是要输出EXCEL的查询语句，如 "SESECT * FORM CAI WHERE 性别='女'"

filename="excel.xls"   ' 要输出的EXCEL文件的文件名, 你只要改以上两句就行了,其它的都不要改.

 

'你只要修改以上两变量就行了.其它的我都做好了.

 

call toexcel(FILENAME,sql)

set conn=nothing

 

function ReadText(FileName)  '这是一个用于读出文件的函数

 set adf=server.CreateObject("Adodb.Stream")

 with adf

  .Type=2

  .LineSeparator=10

  .Open

  .LoadFromFile (server.MapPath(FileName))

  .Charset="GB2312"

  .Position=2

  ReadText=.ReadText

  .Cancel()

  .Close()

 end with

 set ads=nothing

end function

 

sub SaveText(FileName,Data)  '这是一个用于写文件的函数

 set fs= createobject("scripting.filesystemobject")

    set ts=fs.createtextfile(server.MapPath(FileName),true)

    ts.writeline(data)

    ts.close

    set ts=nothing

    set fs=nothing

end sub

 

sub toexcel(filename,sql)  '这是一个根据SQL语句和FILENAME生成EXCEL文件

  Set rs=Server.CreateObject("ADODB.RecordSet")

  rs.Open sql,conn,1,3

  TOEXCELLR="<table width='100%'><tr >"

  set myfield=rs.fields

  dim fieldname(50)

  for i=0 to myfield.count-1

     toexcellr=toexcellr&"<td class=xl24>"&MYFIELD(I).NAME&"</td>"

     fieldname(i)=myfield(i).name

     if myfield(i).type=135 then datename=datename&myfield(i).name&","

  next

  toexcellr=toexcellr&"</tr>"

  do while not rs.eof

    toexcellr=toexcellr&"<tr>"

    for i=0 to myfield.count-1

      if instr(datename,fieldname(i)&",")<>0 then

        if not isnull(rs(fieldname(i))) then

           TOEXCELLR=TOEXCELLR&"<td  class=xl25 ><p align='left'>"&formatdatetime(rs(fieldname(i)),2)&"</p></td>"

        else

           TOEXCELLR=TOEXCELLR&"<td  class=xl25 ><p align='left'>　</p></td>"

        end if

      else

         TOEXCELLR=TOEXCELLR&"<td class=xl24 >"&rs(fieldname(i))&"</td>"

      end if

    next

    toexcellr=toexcellr&"</tr>"

    rs.movenext

  loop

  toexcellr=toexcellr&"</table>"

  tou=readtext("tou.txt")

  di=readtext("di.txt")

  toexcellr=tou&toexcellr&di

  call savetext(filename,toexcellr)

end sub

%>

<html>

<head>

<meta http-equiv="refresh" content="3;URL=<%=filename%>">

<meta http-equiv="Content-Language" content="en-us">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>正在生成EXLCE文件</title>

</head>

<BODY>

正在生成EXLCE文件....

</BODY>

</HTML>

 

 

 

 

 

＊＊＊＊＊＊＊＊＊＊＊＊＊＊第二个文件名为：di.txt 内容如下：

 

<table x:str border=0 cellpadding=0 cellspacing=0 width=288 style='border-collapse:

 collapse;table-layout:fixed;width:216pt'>

 <![if supportMisalignedColumns]>

 <tr height=0 style='display:none'>

  <td width=72 style='width:54pt'></td>

  <td width=72 style='width:54pt'></td>

  <td width=72 style='width:54pt'></td>

  <td width=72 style='width:54pt'></td>

 </tr>

 <![endif]>

</table>

 

 

 

＊＊＊＊＊＊＊＊＊＊＊＊第三个文件的文件名为：tou.TXT　内容如下：

 

 

<html xmlns:o="urn:schemas-microsoft-com:office:office"

xmlns:x="urn:schemas-microsoft-com:office:excel"

xmlns="http://www.w3.org/TR/REC-html40">

 

<head>

<meta http-equiv=Content-Type content="text/html; charset=GB2312">

<meta name=ProgId content=Excel.Sheet>

<meta name=Generator content="Microsoft Excel 9">

<link rel=File-List href="./222.files/filelist.xml">

<link rel=Edit-Time-Data href="./222.files/editdata.mso">

<link rel=OLE-Object-Data href="./222.files/oledata.mso">

<!--[if gte mso 9]><xml>

 <o:DocumentProperties>

  <o:Author>xky</o:Author>

  <o:LastAuthor>xky</o:LastAuthor>

  <o:Created>2002-05-27T17:51:00Z</o:Created>

  <o:LastSaved>2002-06-22T10:03:03Z</o:LastSaved>

  <o:Company>zydn</o:Company>

  <o:Version>9.2812</o:Version>

 </o:DocumentProperties>

 <o:OfficeDocumentSettings>

  <o:DownloadComponents/>

  <o:LocationOfComponents HRef="file:///E:/msowc.cab"/>

 </o:OfficeDocumentSettings>

</xml><![endif]-->

<style>

<!--table

 {mso-displayed-decimal-separator:"/.";

 mso-displayed-thousand-separator:"/,";}

@page

 {margin:1.0in .75in 1.0in .75in;

 mso-header-margin:.5in;

 mso-footer-margin:.5in;}

tr

 {mso-height-source:auto;

 mso-ruby-visibility:none;}

col

 {mso-width-source:auto;

 mso-ruby-visibility:none;}

br

 {mso-data-placement:same-cell;}

.style0

 {mso-number-format:General;

 text-align:general;

 vertical-align:bottom;

 white-space:nowrap;

 mso-rotate:0;

 mso-background-source:auto;

 mso-pattern:auto;

 color:windowtext;

 font-size:9.0pt;

 font-weight:400;

 font-style:normal;

 text-decoration:none;

 font-family:宋体;

 mso-generic-font-family:auto;

 mso-font-charset:134;

 border:none;

 mso-protection:locked visible;

 mso-style-name:常规;

 mso-style-id:0;}

td

 {mso-style-parent:style0;

 padding-top:1px;

 padding-right:1px;

 padding-left:1px;

 mso-ignore:padding;

 color:windowtext;

 font-size:9.0pt;

 font-weight:400;

 font-style:normal;

 text-decoration:none;

 font-family:宋体;

 mso-generic-font-family:auto;

 mso-font-charset:134;

 mso-number-format:General;

 text-align:general;

 vertical-align:bottom;

 border:none;

 mso-background-source:auto;

 mso-pattern:auto;

 mso-protection:locked visible;

 white-space:nowrap;

 mso-rotate:0;}

.xl24

 {mso-style-parent:style0;

 border:.5pt solid windowtext;}

.xl25

 {mso-style-parent:style0;

 mso-number-format:"Long Date";

 text-align:left;

 border:.5pt solid windowtext;}

ruby

 {ruby-align:left;}

rt

 {color:windowtext;

 font-size:9.0pt;

 font-weight:400;

 font-style:normal;

 text-decoration:none;

 font-family:宋体;

 mso-generic-font-family:auto;

 mso-font-charset:134;

 mso-char-type:none;

 display:none;}

-->

</style>

<!--[if gte mso 9]><xml>

 <x:ExcelWorkbook>

  <x:ExcelWorksheets>

   <x:ExcelWorksheet>

    <x:Name>Sheet1</x:Name>

    <x:WorksheetOptions>

     <x:DefaultRowHeight>225</x:DefaultRowHeight>

     <x:Print>

      <x:ValidPrinterInfo/>

      <x:PaperSizeIndex>9</x:PaperSizeIndex>

      <x:HorizontalResolution>-3</x:HorizontalResolution>

      <x:VerticalResolution>0</x:VerticalResolution>

     </x:Print>

     <x:Selected/>

     <x:Panes>

      <x:Pane>

       <x:Number>3</x:Number>

       <x:ActiveRow>24</x:ActiveRow>

       <x:ActiveCol>5</x:ActiveCol>

      </x:Pane>

     </x:Panes>

     <x:ProtectContents>False</x:ProtectContents>

     <x:ProtectObjects>False</x:ProtectObjects>

     <x:ProtectScenarios>False</x:ProtectScenarios>

    </x:WorksheetOptions>

   </x:ExcelWorksheet>

   <x:ExcelWorksheet>

    <x:Name>Sheet2</x:Name>

    <x:WorksheetOptions>

     <x:DefaultRowHeight>225</x:DefaultRowHeight>

     <x:ProtectContents>False</x:ProtectContents>

     <x:ProtectObjects>False</x:ProtectObjects>

     <x:ProtectScenarios>False</x:ProtectScenarios>

    </x:WorksheetOptions>

   </x:ExcelWorksheet>

   <x:ExcelWorksheet>

    <x:Name>Sheet3</x:Name>

    <x:WorksheetOptions>

     <x:DefaultRowHeight>225</x:DefaultRowHeight>

     <x:ProtectContents>False</x:ProtectContents>

     <x:ProtectObjects>False</x:ProtectObjects>

     <x:ProtectScenarios>False</x:ProtectScenarios>

    </x:WorksheetOptions>

   </x:ExcelWorksheet>

  </x:ExcelWorksheets>

  <x:WindowHeight>6600</x:WindowHeight>

  <x:WindowWidth>12000</x:WindowWidth>

  <x:WindowTopX>0</x:WindowTopX>

  <x:WindowTopY>1395</x:WindowTopY>

  <x:ProtectStructure>False</x:ProtectStructure>

  <x:ProtectWindows>False</x:ProtectWindows>

 </x:ExcelWorkbook>

</xml><![endif]-->

</head>

 

<body link=blue vlink=purple>

baikaishui_0825
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
mysql 导入excel
xlp1548947540的专栏
05-22 243
mysql导入excel，时，首先在数据库中新建一个编，定义每一列的名字。 然后用LOAD DATA LOCAL INFILE '/home/lab223/xlp/house.xlsx' INTO TABLE xutest.house_price  FIELDS TERMINATED BY '\t' LINES TERMINATED BY '\r'; 导入数据库。 注意：1 命令中有LOCA
将excel数据导入mysql中
zyh_1995的博客
04-02 6945
1.打开存放数据段的Excel文件，处理好列的关系，将不必要的列都删除掉，将Excel另存为CSV格式。2.在MySQL中建表，列的名字和数据格式都要和Excel中的一致。建表格式参考：CREATE TABLE IF NOT EXISTS data1( id INT UNSIGNED AUTO_INCREMENT, title VARCHAR(100) NOT NULL, );3.最后...
mso-number-format
weixin_30387423的博客
01-07 837
2010-09-14 14:13 应用中经常会遇到要从系统或数据库中导出数据平面文件，一般是导出到txt,csv或excel。txt和csv一般用在系统间的数据交换，而 excel一般有较好的显示效果，可以按照一定的模板导出，导出就不用再排版了，使用简单，如果是使用做报表一般都导出excel文件。但是使用com组件导出到Excel数据很慢，有另一种生成excel文件的...
js导出excel增加表头、mso-number-format定义数据格式
weixin_33712881的博客
03-17 404
问题1：增加表头　　 　　js导出表格时，只会导出table里的展现出的内容，如需增加表头等内容需要在页面获取的字符串中拼接表头的相关字符串，详细介绍如下： 　　 tableString:新增的表头内容字符串； ctx.table: 新增的表头+页面获取的table字符串。 这样，表头就加上了，还可以通过style设置它的样式： 　　 问题2：mso-number-format...
html生成excel附件时格式处理
a15828444995的博客
04-29 624
今天遇到一个html文档生成excel后，格式乱了的问题，html 生成的数据是1-1-1，excel中会自动转成日期格式 以下举例说明 想要达到的效果如下， 但实际生成的格式如下 为了解决这个问题，可以使用一下方案， 在需要自定义格式的地方进行格式处理，红色部分 <th rowspan="2" style="border:1px solid #666;t...
excel数据导成sql表数据工具
10-18
可以将excel中数据，需要的列导出成SQL插入语句。已导成jar包，有可视化操作届面，内附详细说明
Excel导进sql server代码
01-03
Excel导进sql server代码，并对Excel资料进行栏位检查。
英语背单词的词库sql文件和excel文件两种形式
07-06
本资源包含两种形式的英语单词词库：SQL文件和Excel文件，方便不同需求的学习者使用。这两种文件格式各有特点，且适用于不同的场景。 首先，我们来详细了解SQL文件。SQL（Structured Query Language），即结构化...
SQL直接操作excel表(查询/导入/插入)
09-10
操作excel表包括：查询Excel数据;将Excel的数据导入SQL server; 将SQL SERVER中查询到的数据导成一个Excel文件;在SQL SERVER里往Excel插入数据，感兴趣的你可以参考下哈
Excel VBA上传数据到SQL server
05-10
导入，总不能由IT人员来导吧，必将累死； 填报，要么C#、Java开发个页面，开发？我若是码农，我还会来搜索这个Soluation吗？ 要么购买第三方工具，购买？NO.NO.NO,没有预算； 那怎么办，自然就会想到Excel 的VBA， ...
前端实现excel导出功能（vue）
qq_46875572的博客
04-13 1861
前端使用excel的导出功能的插件有： 1.vue-json-excel 2.xlsx+xlsx-style+file-saver
[转发]导出Excel 格式 mso-number-format
Jacky_Dai的专栏
11-26 770
应用中经常会遇到要从系统或数据库中导出数据平面文件，一般是导出到txt,csv或excel。txt和csv一般用在系统间的数据交换，而 excel一般有较好的显示效果，可以按照一定的模板导出，导出就不用再排版了，使用简单，如果是使用做报表一般都导出excel文件。 但是使用com组件导出到Excel数据很慢，有另一种生成excel文件的方式就是通过html和css快速导出数据同时并能设置样式...
table2excel 导出日期格式
qq_44761766的博客
02-02 921
table2excel导出日期 excel打开默认单元格式为自定义,要手动更改单元格式为日期,否则为乱码 解决:导出时将日期改为文本,修改jquery.table2excel.js中的mso-number-format if($(q).html().indexOf(".")!=-1){ tempRows += "<td style=\"mso-number-format:'@';\""; }else{ tempRows += "<td style
使用HTML,CSS快速导出数据到Excel数据格式化问题
deb_ug的专栏
10-17 3018
在head中加入css定义    .spercent  {  background-color:#ffff99;  mso-number-format:0.00%;  }    在css中加入：mso-number-format定义数据格式，格式可以在excel中查看自定义格式，具体可以参考一下：  mso-number-format:"0" NO Decimals 
number_format需要注意的地方
houpanqi的博客
11-16 2023
number_format() 函数通过千位分组来格式化数字，但当你的数据库字段为demical时，直接保存会被过滤。 例如： 4,300.05 ，保存到demical字段中时，则为4 所以请用str_replace函数将逗号替换掉再保存。
jsp导出excel文件并设定单元格格式
bjnihao的专栏
09-15 2405
   response.setHeader("Content-disposition","inline; filename=test1.xls");   //以上这行设定传送到前端浏览器时的档名为test1.xls   //就是靠这一行，让前端浏览器以为接收到一个excel档%>Excel档案呈现方式.xlsText{mso-number-format:"/@";}              
LoadPicture 函数
baikaishui_0825的专栏
04-13 3471
如果你装载图片只用关心第一个参数，路径。 如果是光标和图标文件的话： LoadPicture 函数     将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。 语法 LoadPicture([filename], [size], [colordepth],[x,y]) LoadPicture 函数语法有下列部分： 部分 描述  filename 可选的。字符
python excel导入sql server数据库
最新发布
08-02
要使用Python将Excel数据导入到SQL Server数据库，可以使用如下步骤： 1. 安装所需库：首先，需要安装xlrd库，用于读取Excel文件的数据；同时，还需要安装pymssql库，用于连接和操作SQL Server数据库。 2. 导入库...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值