vbscript 和 javascript 生成 Excel 文件[office 2000].

原创 2004年09月15日 14:52:00

将这些代码另存为“excel.htm“即可(在CSDN上运行不了)

================================================
ASP
<p>
< %
     Response.ContentType = "application/vnd.ms-excel"
% >
</p>
vbscript:
<p>
<input type="button" onClick="vbscript:StartExcel()" value="vbscript1"/>
<input type="button" onClick="vbscript:StartExcel2()" value="vbscript2"/>
</p>
javascript:
<p>
<input type="button" onClick="javascript:jStartExcel()" value="javascript"/>
</p>
<p>
<a href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D3/S5A341.asp" target="_blank">Microsoft Excel Language Reference</a>—MSDN(推荐!)
</p>
引自:
<p>
<a href="http://builder.com.com/5100-6373-5072712.html" target="_blank">Explore ways to pass a Microsoft Excel file to the client side
</a>
</p>
<script language='VBScript'>

Dim Xcl
Sub StartExcel()
    Set Xcl = CreateObject("Excel.Application")
    Xcl.Visible = true
 Set newBook = Xcl.Workbooks.Add
 newBook.Worksheets.Add
 newBook.Worksheets(1).Activate
 newBook.Worksheets(1).Range("A1:B1000").NumberFormat = "0"
 newBook.Worksheets(1).Range("A1:B1000").HorizontalAlignment = 1 ' 左对齐
 newBook.Worksheets(1).Range("A1:D1").merge() ' 合并单元格
 newBook.Worksheets(1).Range("A1:D1").value="test" ' 赋值
 newBook.Worksheets(1).Range("A1:D1").HorizontalAlignment=3 ' 居中对齐
 newBook.Worksheets(1).Columns("A").columnwidth=50 ' 设置列宽
 newBook.Worksheets(1).Rows(2).RowHeight = 40 ' 设置行高
 newBook.Worksheets(1).Columns("A").WrapText = True
 newBook.Worksheets(1).Columns("B").columnwidth=50
 newBook.Worksheets(1).Columns("B").WrapText = true
 newBook.Worksheets(1).Cells(2,1).Interior.ColorIndex="15" ' 设置字的颜色
 newBook.Worksheets(1).Cells(2,1).Borders.LineStyle=1 ' 设置边框 1为实线,2为虚线
 newBook.Worksheets(1).Cells(3,2).Font.Name = "Verdana"
 newBook.Worksheets(1).Cells(3,2).Font.Italic = true
 newBook.Worksheets(1).Cells(3,2).HorizontalAlignment = 4 '右对齐
 newBook.Worksheets(1).Cells(2,1).value="First Column, First Cell"
 newBook.Worksheets(1).Cells(3,1).value="First Column, Second Cell"
 newBook.Worksheets(1).Cells(2,2).value="Second Column, FIrst Cell"
 newBook.Worksheets(1).Cells(3,2).value="Seond Column, Second Cell"
 newBook.Worksheets(1).Name="My First WorkSheet"
 'fname=Xcl.GetSaveAsFilename("Testing Excel Extraction.xls")
 'if fname = "False" then
 ' fname=""
 'end if
 'newBook.SaveAs fname ' 文件自动保存为 Testing Excel Extracting.xls
 'Xcl.Application.Quit ' 关闭 Excel
 Set Xcl = nothing
End Sub

Sub StartExcel2()
 Set Xcl = CreateObject("Excel.Application")
 Xcl.Visible = true
 Set newBook = Xcl.Workbooks.Add ' 填加一个新的工作表
 newBook.Worksheets(1).Activate
 newBook.Worksheets(1).Range("A1:B1000").NumberFormat = "0"
 newBook.Worksheets(1).Cells(1,1).value="Value1"
 newBook.Worksheets(1).Cells(2,1).value="Value2"
 newBook.Worksheets(1).Cells(1,2).value="20"
 newBook.Worksheets(1).Cells(2,2).value="10"
 newBook.Worksheets(1).Cells(3,1).value="Total"
 newBook.Worksheets(1).Cells(3,2).value="=Sum(B1:B2)"
 newBook.Worksheets(1).Cells(4,1).value=CInt(newBook.Worksheets(1).Cells(3,2).value * 2)
 newBook.Worksheets(1).Name="My Second WorkSheet" ' 工作表命名
 'Xcl.Application.Quit ' 关闭 Excel
 Set Xcl = nothing
End Sub
</script>
<script language="javascript">

function jStartExcel() {
 var xls = new ActiveXObject ( "Excel.Application" );
 xls.visible = true;
 var newBook = xls.Workbooks.Add;
 newBook.Worksheets.Add;
 newBook.Worksheets(1).Activate;
 xls.ActiveWorkBook.ActiveSheet.PageSetup.Orientation = 2;
 xls.ActiveWorkBook.ActiveSheet.PageSetup.PaperSize = 5;
 newBook.Worksheets(1).Columns("A").columnwidth=40;  // 设置 A 列宽度为40px
 newBook.Worksheets(1).Columns("A").WrapText = true; // 设置自动换行
 newBook.Worksheets(1).Columns("B").columnwidth=50;  // 设置 B 列宽度为50px
 newBook.Worksheets(1).Columns("B").WrapText = true; // 设置自动换行
 newBook.Worksheets(1).Range("A1:B1000").NumberFormat = "0";
 newBook.Worksheets(1).Range("A1:B1000").HorizontalAlignment = -4131;
 newBook.Worksheets(1).Range("A1:B1").merge();  // 合并单元格区域 A1:D1
 newBook.Worksheets(1).Range("A1:B1").value="My Title"; // 赋值
 newBook.Worksheets(1).Range("A1:B1").HorizontalAlignment=3; //居中对齐
 newBook.Worksheets(1).Range("A1:B1").Interior.ColorIndex=2; //背景色设为白色
 newBook.Worksheets(1).Range("A1:B1").Font.Bold = true;  // 粗体
 newBook.Worksheets(1).Range("A1:B1").Font.ColorIndex = 3; // 字体为红色
 newBook.Worksheets(1).Cells(2,1).Interior.ColorIndex=15; // 背景色
 newBook.Worksheets(1).Cells(2,1).value="Second Row, First Column";
 newBook.Worksheets(1).Cells(2,1).Font.Italic=true;
 newBook.Worksheets(1).Cells(2,1).Font.Bold=true;
 newBook.Worksheets(1).Cells(2,2).value="Second Row, Second Column";
 newBook.Worksheets(1).Cells(3,1).value="Third Row, First Column";
 newBook.Worksheets(1).Cells(3,2).value="Third Row, Second Column";
 newBook.Worksheets(1).Name="My First WorkSheet";
}
</script>

VBscript和javascript区别以及在哪里该用谁?

在很多论坛中看到关于VBscript和javascript到底应该使用哪个,哪个比较好的问题?  今天我来谈谈我的看法:  服务器端:  大家知道ASP支持这两中脚本语言,也就是在服...
  • Chair_
  • Chair_
  • 2014年10月31日 15:30
  • 1412

VBScript的读写文件操作

第一步:OpenTextFile() 或者OpenAsTextStream() 第二步:Read 方法 或者ReadAll 方法 或者ReadLine 方法 Write 方法 W...
  • u013569416
  • u013569416
  • 2014年11月23日 17:18
  • 1621

XSS攻击过滤器

import java.io.IOException; import javax.servlet.Filter; import javax.servlet.FilterChain; import ...
  • lg12lp12
  • lg12lp12
  • 2017年11月06日 10:43
  • 54

VBScript中SendKeys与项目结合的妙用

VBScript中的SendKeys命令模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,其使用格式为:object.SendKeys string。其中,“objec...
  • WZ18810463869
  • WZ18810463869
  • 2016年02月29日 21:09
  • 484

通过java调用VBS,再用VBS执行Excel中的宏的例子

(一) 首先需要降低客户端及服务器端对于Excel的宏的安全级别的要求,按照下述的图示进行操作: (1)进入宏的安全级别设置功能   (2) 降低宏的安全级别 (二)  按照下面代码编写V...
  • xyl870419
  • xyl870419
  • 2014年03月11日 14:15
  • 1495

VBScript例子程序

VBS基本语法介绍W3CSchool工作中遇到的问题,项目组长给了一个Excel,让分析其中包含的字符含义,由于每页条数太多,导致看不出来要分析的字符在一长串字符中的位置。于是想把其中要注意的字符标注...
  • slaory
  • slaory
  • 2015年07月08日 20:54
  • 156

导出Excel--不用安装office

导出Excel方法汇总,包含服务器不安装office方法导出
  • zhouganqing
  • zhouganqing
  • 2016年07月27日 16:20
  • 1495

vbscript 字符串连接和数字转化为字符串

1、字符串连接用& 2、数字转化为字符串使用cstr       如:cstr(456)将输出字符串"456" VBscript中的字符串函数 在VBscript中,系统提供了大量的字符串函数来...
  • huyoufu200920201078
  • huyoufu200920201078
  • 2015年05月18日 21:57
  • 1695

freemarker导出excel时office报错而wps不会

由于excel模板是客户提供的,并且较复杂,所以采用freemarker导出会轻松很多。 第一次用freemarker按照网上教程(我用的是wps2016): http://blog.csdn.n...
  • klchht
  • klchht
  • 2016年08月16日 10:55
  • 2743

C#导出生成excel文件方法(xml,html方式)

C#导出生成excel文件方法(xml,html方式) 直接贴上代码,里面都有注释 ///         /// xml格式生成excel文件并存盘;         ///     ...
  • huwei2003
  • huwei2003
  • 2013年09月18日 10:30
  • 2932
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vbscript 和 javascript 生成 Excel 文件[office 2000].
举报原因:
原因补充:

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