网页上数据导出到EXCEL

原创 2004年10月05日 13:28:00



引用方式: 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 //////////////////////////////////

网页上数据导出到EXCEL

引用方式: Export(Ado.Recordset) 或 Export(Rds.RecordSet)/////////////////// S T A R T ///////////////////...
  • possible_Y
  • possible_Y
  • 2004年03月16日 18:16
  • 4709

如何把数据从网页中直接导入到excel中

把数据从网页中直接导入到excel中,下面就上代码。 页面js中导出的方法: function exportExcel() { var queryPara = sy.serializeObje...
  • kai_wei
  • kai_wei
  • 2016年03月19日 19:55
  • 601

用PHP实现网页内容保存为excel表格

当网页的表格需要保存为excel格式,可以使用链接访问以下PHP页面,即可以将内容保存到本地。 PHP程序处理:  $smarty->assign('title', $excel['ti...
  • gdpencil
  • gdpencil
  • 2011年01月17日 18:43
  • 3827

如何将网页内容导出到EXCEL表中……

单元格A单元格A单元格合并行A//指定页面区域内容导入Excelfunction AllAreaExcel(){  var oXL = new ActiveXObject("Excel.Applica...
  • javatim
  • javatim
  • 2007年10月18日 16:58
  • 3505

网页将数据导出到Excel【JavaWeb技术】

很多时候,我们需要让用户在网页填写信息,然后导出到Excel。 我们需要在项目中创建一个表单页面export.html。代码如下: 导出页面 ...
  • L_BestCoder
  • L_BestCoder
  • 2017年02月13日 12:44
  • 1954

java将数据库里的数据导出到excel

项目中很多都会用到将数据导出到excel,然后对数据进行整理分析,在之前的项目中,多处用到此功能,也走了很多弯路,从一开始的tableExcel到现在的poi,从一开始用HSSFWorkbook 再到...
  • u011900448
  • u011900448
  • 2016年11月09日 11:03
  • 13591

Java中数据导出到Excel实例

在平时的开发中,我们会经常遇到这样一个需求,要在页面通过一个『导出』按钮把查询出的数据导出到 Excel 表格中。本文即为实现上述需求的一个小实例。环境配置 jar包 poi.jar jdk 1.6...
  • zcq_1234
  • zcq_1234
  • 2017年01月09日 23:28
  • 168

Java中导出数据到Excel处理方法

在开发中我们经常遇到把数据导出到Excel中的需求,这里简单的描述下个人实现方式,提供了Excel2003 与Excel2007两种实现方式。实现如下:   1、接口类demo: packag...
  • baijianjun123456
  • baijianjun123456
  • 2016年04月01日 11:01
  • 2852

js导出页面表格数据到Excel

js导出页面表格数据到Excel,可自定义Excel文件名
  • sxdfx
  • sxdfx
  • 2017年06月08日 14:12
  • 1151

将DataSet中的数据导出到Excel表中

    实例代码:    ///     /// 导出Excel数据    ///     ///     ///     ///     public void CreateExcel(DataSe...
  • gooddasenlin
  • gooddasenlin
  • 2007年07月20日 11:11
  • 730
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:网页上数据导出到EXCEL
举报原因:
原因补充:

(最多只允许输入30个字)