转载:vb导出excel的方法
一、使用OWC
什么是OWC?
OWC是Office Web Compent的缩写,即Microsoft的Office Web组件,它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中,如果可以假设客户机上存在特定的浏览器和一些功能强大的软件(如IE5和Office 2000),那么就有能力利用Office Web组件提供一个交互式图形开发环境。这种模式下,客户端工作站将在整个任务中分担很大的比重。
<%Option Explicit Class ExcelGen Private objSpreadsheet Private iColOffset
Private iRowOffset Sub Class_Initialize() Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet") iRowOffset = 2 iColOffset = 2 End Sub
Sub Class_Terminate() Set objSpreadsheet = Nothing Clean up End Sub
Public Property Let ColumnOffset(iColOff) If iColOff > 0 then iColOffset = iColOff Else iColOffset = 2 End If End Property
Public Property Let RowOffset(iRowOff) If iRowOff > 0 then iRowOffset = iRowOff Else iRowOffset = 2 End If End Property Sub GenerateWorksheet(objRS) Populates the Excel worksheet based on a Recordsets contents Start by displaying the titles If objRS.EOF then Exit Sub Dim objField, iCol, iRow iCol = iColOffset iRow = iRowOffset For Each objField in objRS.Fields objSpreadsheet.Cells(iRow, iCol).Value = objField.Name objSpreadsheet.Columns(iCol).AutoFitColumns 设置Excel表里的字体 objSpreadsheet.Cells(iRow, iCol).Font.Bold = True objSpreadsheet.Cells(iRow, iCol).Font.Italic = False objSpreadsheet.Cells(iRow, iCol).Font.Size = 10 objSpreadsheet.Cells(iRow, iCol).Halignment = 2 居中 iCol = iCol + 1 Next objField Display all of the data Do While Not objRS.EOF iRow = iRow + 1 iCol = iColOffset For Each objField in objRS.Fields If IsNull(objField.Value) then objSpreadsheet.Cells(iRow, iCol).Value = "" Else objSpreadsheet.Cells(iRow, iCol).Value = objField.Value objSpreadsheet.Columns(iCol).AutoFitColumns objSpreadsheet.Cells(iRow, iCol).Font.Bold = False objSpreadsheet.Cells(iRow, iCol).Font.Italic = False objSpreadsheet.Cells(iRow, iCol).Font.Size = 10 End If iCol = iCol + 1 Next objField objRS.MoveNext Loop End Sub Function SaveWorksheet(strFileName)
Save the worksheet to a specified filename On Error Resume Next Call objSpreadsheet.ActiveSheet.Export(strFileName, 0) SaveWorksheet = (Err.Number = 0) End Function End Class
Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open "SELECT * FROM xxxx", "Provider=SQLOLEDB.1;Persist Security
Info=True;User ID=xxxx;Password=xxxx;Initial Catalog=xxxx;Data source=xxxx;" Dim SaveName SaveName = Request.Cookies("savename")("name") Dim objExcel Dim ExcelPath ExcelPath = "Excel\" & SaveName & ".xls" Set objExcel = New ExcelGen objExcel.RowOffset = 1 objExcel.ColumnOffset = 1 objExcel.GenerateWorksheet(objRS) If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then Response.Write "<html><body bgcolor=gainsboro text=#000000>已保存为Excel文件.
<a href=" & server.URLEncode(ExcelPath) & ">下载</a>" Else Response.Write "在保存过程中有错误!" End If Set objExcel = Nothing objRS.Close Set objRS = Nothing %>
二、用Excel的Application组件在客户端导出到Excel或Word
注意:两个函数中的“data“是网页中要导出的table的 id
<input type="hidden" name="out_word" οnclick="vbscript:buildDoc" value="导出到word" class="notPrint"> <input type="hidden" name="out_excel" οnclick="AutomateExcel();" value="导出到excel" class="notPrint">
导出到Excel代码
<SCRIPT LANGUAGE="javascript"> <!-- function AutomateExcel() { // Start Excel and get Application object. var oXL = new ActiveXObject("Excel.Application"); // Get a new workbook. var oWB = oXL.Workbooks.Add(); var oSheet = oWB.ActiveSheet; var table = document.all.data; var hang = table.rows.length;
var lie = table.rows(0).cells.length;
// Add table headers going cell by cell. for (i=0;i<hang;i++) { for (j=0;j<lie;j++) { oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText; }
} oXL.Visible = true; oXL.UserControl = true; } //--> </SCRIPT>
导出到Word代码
<script language="vbscript"> Sub buildDoc set table = document.all.data row = table.rows.length column = table.rows(1).cells.length
Set objWordDoc = CreateObject("Word.Document")
objWordDoc.Application.Documents.Add theTemplate, False objWordDoc.Application.Visible=True
Dim theArray(20,10000) for i=0 to row-1 for j=0 to column-1 theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT next next objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综合查询结果集") //显示表格标题
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("") Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range With rngPara .Bold = True //将标题设为粗体 .ParagraphFormat.Alignment = 1 //将标题居中 .Font.Name = "隶书" //设定标题字体 .Font.Size = 18 //设定标题字体大小 End With Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)
for i = 1 to column
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1) objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1next For i =1 to column For j = 2 to row objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j) objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1 Next Next
End Sub </SCRIPT>
三、直接在IE中打开,再存为EXCEL文件
把读出的数据用<table>格式,在网页中显示出来,同时,加上下一句即可把EXCEL表在客客户端显示。
<%response.ContentType ="application/vnd.ms-excel"%>
注意:显示的页面中,只把<table>输出,最好不要输出其他表格以外的信息。
四、导出以半角逗号隔开的csv
用fso方法生成文本文件的方法,生成一个扩展名为csv文件。此文件,一行即为数据表的一行。生成数据表字段用半角逗号隔开。(有关fso生成文本文件的方法,在此就不做介绍了)
CSV文件介绍 (逗号分隔文件)
选择该项系统将创建一个可供下载的CSV 文件; CSV是最通用的一种文件格式,它可以非常容易地被导入各种PC表格及数据库中。
请注意即使选择表格作为输出格式,仍然可以将结果下载CSV文件。在表格输出屏幕的底部,显示有 "CSV 文件"选项,点击它即可下载该文件。
如果您把浏览器配置为将您的电子表格软件与文本(TXT)/逗号分隔文件(CSV) 相关联,当您下载该文件时,该文件将自动打开。下载下来后,如果本地已安装EXCEL,点击此文件,即可自动用EXCEL软件打开此文件。
转载于:https://www.cnblogs.com/pynotes/archive/2010/04/08/1707843.html
转载:vb导出excel的方法相关推荐
- 懒人小工具1:winform自动生成Model,Insert,Select,Delete以及导出Excel的方法
懒人小工具2:T4自动生成Model,Insert,Select,Delete以及导出Excel的方法 github地址:https://github.com/Jimmey-Jiang/J ...
- csv和excel php 解析_PHP 高效导入导出Excel(csv)方法之fgetcsv()和fputcsv()函数
CSV,是Comma Separated Value(逗号分隔值)的英文缩写,通常都是纯文本文件. 一.CSV数据导入函数fgetcsv() fgetcsv() 函数从文件指针中读入一行并解析 CSV ...
- PHP导出excel的方法总结
PHP导出excel的方法总结 1.两个步骤定义导出方法和内容 public function exportExcel($expTitle,$expCellName,$expTableData,$st ...
- 用OleDb写的一个导出Excel的方法
为什么80%的码农都做不了架构师?>>> //前几天遇到个导出Excel的问题,然后上网找了很久,终于写出这个方法了,所以分享一下. /// <summary> / ...
- C#关于导出excel的方法
一说到导出excel可能很多人都会觉得说直接利用npoi 导入导出excel格式的文件,那样非常方便,但是可能有些时候有的浏览器不支持,那么该怎么办呢,现在介绍一种纯C#的导出excel的方法,代码如 ...
- java excel 导出_java导出Excel通用方法实例
数据导出到Excel几乎是所有客户都会提出的一个需求.下面我就分享一下我的代码. 首先需要引入的jar包: 然后就是正式代码了. package lcy._41_50; import java.io. ...
- 最简单的php导出excel文件方法
网上有很多php操作excel或其他文件的类库,也做的很完善.比如无比风骚的PHPExcel,官方网站:http://www.codeplex.com/PHPExcel ,pear的Spreadshe ...
- [转载] Python导出Excel图表
参考链接: Python | 使用openpyxl模块在Excel工作表中绘制图表 1 Python自动化办公的过程,部分涉及到导出Excel图表:本篇主要讲下使用python代码将excel中的图表 ...
- 前端table导出excel表格方法汇总
在做一些后台管理系统中,经常会遇到table 组件:然后需要导出excel.开发中实现方法如下: 第一类:后端来做导出功能(后端做更合适) 1. 后端生成excel,返回一个url地址:前端直接利用浏 ...
最新文章
- Emgu-WPF学习使用-识别二维码的位置
- 小学校园里计算机文字,中小学计算机教学论文(共2228字).doc
- Android ADB Server启动失败
- Django生命周期与中间件
- c++函数模板(c++细节篇十)
- Spark _06_补充部分算子【一】
- oracle 删除空间不足,oracle表空间扩容、创建、删除(解决表空间不足问题)
- mysql 截取字符串部分值,Mysql字符串截取_获取指定字符串中的数据
- 隐藏a标签seo_SEO网站优化,新手SEO常犯的五个错误!
- 中给函数赋读权限_sql动态传参在springData中的应用(补充)
- 数学逻辑习题集(2)
- 基于灰度世界、完美反射、动态阈值等图像自动白平衡算法的原理
- cisco 路由器时区设置
- 全球排名前10位的广告公司
- java写triangle_Java - 制作Triangle类
- 计算机未连接到网络,电脑未连接到一个互联网的问题,解决网络问题方法
- jQuery(一):概述、选择器、操作(元素本身、属性、内容、样式)、元素遍历、事件
- 如何配置一个高效、漂亮、爱不释手的终端?
- 上海2022年11月月赛丙组
- 从flowable到统一流程平台
热门文章
- CVPR 2020丨基于并行点检测和点匹配的单阶段实时HOI Detection方法
- Nature、Science、Cell全加入!80家学术机构新冠研究全部免费
- 网申倒计时4天 | DJI大疆秋招独家笔试攻略
- 3D重建传统算法对比深度学习,SFU谭平:更需要的是二者的融合
- 李飞飞点赞!,刚刚公布了第一批数据集benchmark入围名单
- PyTorch | torch.zeros()如何使用?torch.zeros使用方法 | torch.zeros()例子
- 推荐系统遇上深度学习(六)--PNN模型理论和实践
- 全局路径规划:图搜索算法介绍1(BFS/DFS)
- c语言 炸弹文件,炸弹超人游戏c语言简板
- community 计算模块度_燃气模块炉使用信息采集表