引用方式: Export(Ado.Recordset) 或 Export(Rds.RecordSet)
/// S T A R T //
Function FieldType(intType)
   Select Case intType
      Case 20
         FieldType = "int"
      Case 128
         FieldType = "binary"
      Case 11
         FieldType = "bit"
      Case 129
         FieldType = "char"
      Case 135
         FieldType = "datetime"
      Case 131
         FieldType = "varchar"
      Case 5
         FieldType = "float"
      Case 205
         FieldType = "image"
      Case 3
         FieldType = "int"
      Case 6
         FieldType = "money"
      Case 130
         FieldType = "char"
      Case 203
         FieldType = "text"
      Case 131
         FieldType = "numeric"
      Case 202
         FieldType = "varchar"
      Case 4
         FieldType = "real"
      Case 135
         FieldType = "datetime"
      Case 2
         FieldType = "int"
      Case 6
         FieldType = "money"
      Case 204
         FieldType = "varchar"
      Case 201
         FieldType = "text"
      Case 128
         FieldType = "timestamp"
      Case 17
         FieldType = "varchar"
      Case 72
         FieldType = "varchar"
      Case 204
         FieldType = "varbinary"
      Case 200
         FieldType = "varchar"
    End Select
End Function
Sub Export(AdoRecordSet)
Rem AdoRecordSet 传入一个对象,可以是 Rds.Recordset 或者是 Adodb.RecordSet
Rem 导出到用户桌面的  Query_数字组合.xls
On Error Resume Next
    Dim Excel_Dsn
    Dim Excel_Conn
    Dim Excel_Adodc
    Dim mySql, fs
    Dim i, j, TmpField, FileName, WshShell
    Rem 桌面路径
    Set WshShell = CreateObject("Wscript.Shell")
    Rem 创建一个连接
    Set Excel_Conn = CreateObject("ADODB.Connection")
    Rem 创建一条记录
    Set Excel_Adodc = CreateObject("ADODB.RecordSet")
    Rem 创建文件对象
    Set fs = CreateObject("Scripting.FileSystemObject")
    Rem 判断文件是否存在, 自动更名 (0 - 99), 可以修改
    For i = 0 To 99
        If Len(i) = 1 Then
            FileName = WshShell.SpecialFolders("Desktop") & "/Query_0" & i
        Else
            FileName = WshShell.SpecialFolders("Desktop") & "/Query_" & i
        End If
        If Not fs.FileExists(FileName & ".xls") Then
            Exit For
        End If
    Next
    FileName = FileName & ".xls"
    Rem 创建Excel驱动,一般 Window 98 以上的电脑都有这个驱动
    Excel_Dsn = "DRIVER={Microsoft Excel Driver (*.xls)};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=""" & FileName & """;DBQ=" & FileName
    Excel_Conn.Open Excel_Dsn
    With AdoRecordSet
        If Not (.EOF And .BOF) Then
   .MoveFirst
            mySql = "Create Table [Query] ("
            For i = 0 To .Fields.Count - 1
                TmpField = FieldType(.Fields(i).Type)
                If TmpField = "char" Or TmpField = "varchar" Or TmpField = "nchar" Or TmpField = "nvarchar" Or TmpField = "varbinary" Then
                    If .Fields(i).DefinedSize >= 256 Then
                        mySql = mySql & Trim(.Fields(i).Name) & " text,"
                    Else
                        mySql = mySql & Trim(.Fields(i).Name) & " " & FieldType(.Fields(i).Type) & "(" & .Fields(i).DefinedSize & ")" & ","
                    End If
                Rem Image 的数据类型不导出
                ElseIf TmpField <> "image" Then
                    mySql = mySql & Trim(.Fields(i).Name) & " " & FieldType(.Fields(i).Type) & ","
                End If
            Next
            mySql = Left(Trim(mySql), Len(Trim(mySql)) - 1)
            mySql = mySql & ")"
            Rem 创建表名
            Rem 这个不能使用 Excel_Adodc.Close,因为等待这句执行完,对象会自动关闭,不会给服务器造成负担
            Excel_Adodc.Open mySql, Excel_Dsn
            Rem 捕捉错误信息
            If Err.number <> 0 Then
  MsgBox "发生错误：" & Err.Description, 64, "系统信息："
  Exit Sub
            End If
            Rem 插入数据
            For i = 0 To .RecordCount - 1
                mySql = "Insert into [Query] Values("
                For j = 0 To .Fields.Count - 1
                    TmpField = FieldType(.Fields(j).Type)
                    Rem Image 的数据类型不导出
                    If TmpField <> "image" Then
   if ISNULL(.Fields(j).Value) then
                         mySql = mySql & "NULL,"
   else
                         mySql = mySql & "'" & Trim(.Fields(j).Value) & "',"
   end if
                    End If
                Next
                mySql = Left(Trim(mySql), Len(Trim(mySql)) - 1)
                mySql = mySql & ")"
                Rem 这个不能使用 Excel_Adodc.Close,因为等待这句执行完,对象会自动关闭,不会给服务器造成负担
                Excel_Adodc.Open mySql, Excel_Dsn
                Rem 捕捉错误信息
                If Err.number <> 0 Then
   MsgBox "发生错误：" & Err.Description, 64, "系统信息："
   Exit Sub
                End If
                .MoveNext
            Next
            MsgBox "系统提示：" & Chr(13) & "已经将文件保存到 """ & FileName & """ ]", 64, "系统信息："
        End If
        Rem 关闭与释放对象
        Excel_Conn.Close
        Set Excel_Conn = Nothing
        Set Excel_Adodc = Nothing
    End With
End Sub
// E N D   I F //

H5将网页数据导出为Excel并可下载
在制作webapp中，遇到个要将数据导出为Excel的问题。我搜索了一下网上的方案，可以直接将HTML的表格导出为Excel文件，这些方法在电脑上确实是可行的，当时如果放到手机上导出的Excel根本不能下载，手机下载文件都是已网络链接的形式，直接导出的文件在手机上是获取不到的。
我搜遍网上的资料都没有发现有讲在手机上将网页数据导出Excel的，于是只能自己去摸索，要想在手机端导出Excel普通的直接导出是没用的，于是可行的方法就是将导出的流数据先上传到服务器再通过服务器的文件链接让手机进行下载。
将数据转换成Excel的流数据

要上传文件到腾讯云的对象存储中就需要先获取到文件的流数据。

这里可以用到一个插件：js-xlsx |   https://github.com/SheetJS/js-xlsx
这里示例将json进行转换
var jsono = [
    {
         "五月":"1号",
		 "姓名": "小王",
		 "年龄": "18",
		 "性别":"男",
    },
	{
         "五月":"2号",
		 "姓名": "小明",
		 "年龄": "21",
		 "性别":"男",
    }
];
//传入jsono 进行数据处理
downloadExl(jsono)
var tmpDown; //导出的二进制对象

function downloadExl(json) {
          var tmpdata = json[0];
          json.unshift({});
          var keyMap = [];
          for (var k in tmpdata) {
              keyMap.push(k);
              json[0][k] = k;
          } 
        var tmpdata = [];//用来保存转换好的json 
              json.map((v, i) => keyMap.map((k, j) => Object.assign({}, {
                  v: v[k],
                  position: (j > 25 ? getCharCol(j) : String.fromCharCode(65 + j)) + (i + 1)
              }))).reduce((prev, next) => prev.concat(next)).forEach((v, i) => tmpdata[v.position] = {
                  v: v.v
              });
              var outputPos = Object.keys(tmpdata); //设置区域,比如表格从A1到D10
              var tmpWB = {
                  SheetNames: ['mySheet'], //保存的表标题
                  Sheets: {
                      'mySheet': Object.assign({},
                          tmpdata, //内容
                          {
                              '!ref': outputPos[0] + ':' + outputPos[outputPos.length - 1] //设置填充区域
                          })
                  }
              };
              tmpDown = new Blob([s2ab(XLSX.write(tmpWB, 
                  {bookType: (type == undefined ? 'xlsx':type),bookSST: false, type: 'binary'}//这里的数据是用来定义导出的格式类型
                  ))], {
                  type: ""
              }); //创建二进制对象写入转换好的字节流
}

最后的 tmpDown  就是转换出来的Excel字节流数据

接下来将这个流数据上传到腾讯云的对象存储中就能获得文件的下载链接了
var filename="员工名单.xlsx";//文件名
cos.putObject({  
	Bucket: '',//储存桶名称
	Region: 'ap-guangzhou', //地区
	Key:filename,//文件名
	Body:tmpDown,   //元文件
	onProgress: function(progressData) {
	}, 
}, function(err, data) {
	//拼接上https:// 就是文件的下载链接
	//调用dlsc() 将长链接转成短链接
	dlsc("https://"+data.Location);
	btne.button('reset');
});	

//将链接转成短链接，这里用的是百度的api
function  dlsc(url){
    var dlj =url; 
    var ajax = new XMLHttpRequest();
    var token = "";//百度api token 
	ajax.open('post','https://dwz.cn/admin/v2/create', 'true');
	ajax.setRequestHeader("Content-Type", "application/json");
	ajax.setRequestHeader("Token", token);
	ajax.send(JSON.stringify({  
	    url: url  
	}));
	ajax.onreadystatechange = function () {
	    //返回短链接
	    if (ajax.readyState === 4 && ajax.status === 200) {
			var data=JSON.parse(ajax.responseText);
			dlj=data.ShortUrl;						
			$("#xzlj").text(dlj);						
	    } 
 	}	
}

这是最终返回的Excel下载链接，手机可以直接进行下载 我的手机  https://dwz.cn/USczufF6


高效率的聚合搜索：www.xiaoqiuss.cn

最近在做一个项目，涉及到导出数据到Excel表格，由于是采用的前后端分离模式开发的，之前常用的方法已经失效，在网上找了一些资料和方法

js文件下载地址
1.是采用的一个插件 xlsx.full.min.js，实现在服务器请求过来数据，按照格式就可以实现导出到Excel表，废话不多说，直接贴代码：
  <!-- 这是页面代码 -->
	<button class="am-btn am-btn-default" onclick="findExcelData();" type="button">导出</button>
	<a href="" download="客户信息.xlsx" id="downloadA"></a>

//这是js代码
//查询客户信息列表 导出Excel
function findExcelData() {
	var startDate = $("input[name=startDate]").val();
	var endDate = $("input[name=endDate]").val();
	var param = {
		startDate: startDate,
		endDate: endDate
	};
	$.post(Url + 'customer/toExcel', param, function(data, status) {
		console.log(data);
		if (data['result'] == '0000') {
			var list = eval(data['list']);
			var size = data['size'];
			if (size > 0) {
				downloadExl(list);
			} else {
				alert("选择的时间区域没有数据");
			}
			//时间回显
			$("#startDate").val(data['startDate']);
			$("#endDate").val(data['endDate']);
		} else {
			alert(data['message']);
		}
	})
}

var tmpDown; //导出的二进制对象
function downloadExl(json, type) {
	//根据json数据，获取excel的第一行存至map
	var tmpdata = json[0];
	json.unshift({});
	var keyMap = []; //获取keys
	for (var k in tmpdata) {
		keyMap.push(k);
		json[0][k] = k;
	}

	var tmpdata = [];
	json.map((v, i) => keyMap.map((k, j) => Object.assign({}, {
		v: v[k],
		position: (j > 25 ? getCharCol(j) : String.fromCharCode(65 + j)) + (i + 1)
	}))).reduce((prev, next) => prev.concat(next)).forEach((v, i) => tmpdata[v.position] = {
		v: v.v
	});

	//设置区域,比如表格从A1到D10
	var outputPos = Object.keys(tmpdata);
	var tmpWB = {
		SheetNames: ['mySheet'], //保存的表标题
		Sheets: {
			'mySheet': Object.assign({},
				tmpdata, //内容
				{
					'!ref': outputPos[0] + ':' + outputPos[outputPos.length - 1] //设置填充区域
				})
		}
	};

	//创建二进制对象写入转换好的字节流
	tmpDown = new Blob([s2ab(XLSX.write(tmpWB, {
			bookType: (type == undefined ? 'xlsx' : type),
			bookSST: false,
			type: 'binary'
		} //这里的数据是用来定义导出的格式类型
	))], {
		type: ""
	});

	var href = URL.createObjectURL(tmpDown); //创建对象超链接
	var timestamp = (new Date()).getTime();
	var excelName = timestamp + ".xlsx";
	document.getElementById("downloadA").download = excelName;
	document.getElementById("downloadA").href = href; //绑定a标签
	document.getElementById("downloadA").click(); //模拟点击实现下载
	setTimeout(function() { //延时释放
		URL.revokeObjectURL(tmpDown); //用URL.revokeObjectURL()来释放这个object URL
	}, 100);
}

//字符串转字符流
function s2ab(s) {
	var buf = new ArrayBuffer(s.length);
	var view = new Uint8Array(buf);
	for (var i = 0; i != s.length; ++i) view[i] = s.charCodeAt(i) & 0xFF;
	return buf;
}

//将指定的自然数转换为26进制表示。映射关系：[0-25] -> [A-Z]。
function getCharCol(n) {
	let temCol = '',
		s = '',
		m = 0
	while (n > 0) {
		m = n % 26 + 1
		s = String.fromCharCode(m + 64) + s
		n = (n - m) / 26
	}
	return s
}

2.第二种方法是获取页面table，将table标签，包括tr、td等对json数据进行拼接，将table输出到表格上实现，这种方法的弊端在于输出的是伪excel，虽说生成xls为后缀的文件，但文件形式上还是html，下面贴代码
前端代码
<button class="am-btn am-btn-default" onclick="method5('kehuTable');" type="button">导出Excel</button>

js代码
//打印表格
var idTmr;

function getExplorer() {
	var explorer = window.navigator.userAgent;
	//ie  
	if (explorer.indexOf("MSIE") >= 0) {
		return 'ie';
	}
	//firefox  
	else if (explorer.indexOf("Firefox") >= 0) {
		return 'Firefox';
	}
	//Chrome  
	else if (explorer.indexOf("Chrome") >= 0) {
		return 'Chrome';
	}
	//Opera  
	else if (explorer.indexOf("Opera") >= 0) {
		return 'Opera';
	}
	//Safari  
	else if (explorer.indexOf("Safari") >= 0) {
		return 'Safari';
	}
}
//tableid   为table表格ID
function method5(tableid) {
	if (getExplorer() == 'ie') {
		var curTbl = document.getElementById(tableid);
		var oXL = new ActiveXObject("Excel.Application");
		var oWB = oXL.Workbooks.Add();
		var xlsheet = oWB.Worksheets(1);
		var sel = document.body.createTextRange();
		sel.moveToElementText(curTbl);
		sel.select();
		sel.execCommand("Copy");
		xlsheet.Paste();
		oXL.Visible = true;

		try {
			var fname = oXL.Application.GetSaveAsFilename("Excel.xls",
				"Excel Spreadsheets (*.xls), *.xls");
		} catch (e) {
			print("Nested catch caught " + e);
		} finally {
			oWB.SaveAs(fname);
			oWB.Close(savechanges = false);
			oXL.Quit();
			oXL = null;
			idTmr = window.setInterval("Cleanup();", 1);
		}

	} else {
		tableToExcel(tableid)
	}
}

function Cleanup() {
	window.clearInterval(idTmr);
	CollectGarbage();
}
var tableToExcel = (function() {
	var uri = 'data:application/vnd.ms-excel;base64,',
		template = '<html><head><meta charset="UTF-8"></head><body><table  border="1">{table}</table></body></html>',
		base64 = function(
			s) {
			return window.btoa(unescape(encodeURIComponent(s)))
		},
		format = function(s, c) {
			return s.replace(/{(\w+)}/g, function(m, p) {
				return c[p];
			})
		}
	return function(table, name) {
		if (!table.nodeType)
			table = document.getElementById(table)
		var ctx = {
			worksheet: name || 'Worksheet',
			table: table.innerHTML
		}
		window.location.href = uri + base64(format(template, ctx))
	}
})()

3.通过将json遍历进行字符串拼接，将字符串输出到csv文件，代码如下
<button onclick='tableToExcel()'>导出</button>

  function tableToExcel(){
      //要导出的json数据
      var jsonData = [
        {
          name:'李四',
          phone:'1777829****',
          email:'20838****@qq.com'
        },
        {
           name:'张三',
          phone:'1777829****',
          email:'20838****@qq.com'
        },
        {
         name:'王五',
          phone:'1777829****',
          email:'20838****@qq.com'
        },
        {
           name:'老刘',
          phone:'1777829****',
          email:'20838****@qq.com'
        }
      ]
      //列标题，逗号隔开，每一个逗号就是隔开一个单元格
      let str = `姓名,电话,邮箱\n`;
      //增加\t为了不让表格显示科学计数法或者其他格式
      for(let i = 0 ; i < jsonData.length ; i++ ){
        for(let item in jsonData[i]){
            str+=`${jsonData[i][item] + '\t'},`;     
        }
        str+='\n';
      }
      //encodeURIComponent解决中文乱码
      let uri = 'data:text/csv;charset=utf-8,\ufeff' + encodeURIComponent(str);
      //通过创建a标签实现
      var link = document.createElement("a");
      link.href = uri;
      //对下载的文件命名
      link.download =  "json数据表.csv";
      document.body.appendChild(link);
      link.click();
      document.body.removeChild(link);

很多时候，我们需要让用户在网页填写信息，然后导出到Excel。
我们需要在项目中创建一个表单页面export.html。代码如下：
<meta charset="UTF-8"/>
<html>
<head>
    <title>导出页面</title>
</head>
<body>
<form action="/ExportServlet" method="post">
    <table>
        <tr>
            <td>用户名：</td><td><input type="text" name="username"/></td>
        </tr>
        <tr>
            <td>密码：</td><td><input type="password" name="password"/></td>
        </tr>
        <tr>
            <td><input type="submit" value="导出到Excel"/></td>
        </tr>
    </table>
</form>
还需要创建一个处理表单请求的servlet组件。ExportServlet.java。代码如下：
package com.yykj.servlet;

import org.apache.poi.hssf.usermodel.*;
import javax.servlet.*;
import javax.servlet.http.*;
import java.io.IOException;

public class ExportServlet extends HttpServlet {

    @Override
    protected void doGet(HttpServletRequest req, HttpServletResponse resp) throws ServletException, IOException {
        doPost(req, resp);
    }

    @Override
    protected void doPost(HttpServletRequest req, HttpServletResponse resp) throws ServletException, IOException {
        req.setCharacterEncoding("UTF-8");
        resp.setContentType("application/vnd.ms-excel");
        resp.addHeader("Content-Disposition", "attachment; filename=logininfo.xls");
        String username = req.getParameter("username");
        String password = req.getParameter("password");
        ServletOutputStream out = resp.getOutputStream();
        HSSFWorkbook wb = new HSSFWorkbook();
        HSSFSheet sheet = wb.createSheet("用户注册信息");
        HSSFRow row = sheet.createRow(0);
        HSSFCell cell = row.createCell(0);
        cell.setCellValue(username);
        HSSFCell cell1 = row.createCell(1);
        cell1.setCellValue(password);
        wb.write(out);
        out.flush();
        out.close();
    }
}
注意：这里要导入poi组件的jar包，并且servlet要在web.xml注册过。