asp和应用程序
文章平均质量分 60
aspczlover
这个作者很懒,什么都没留下…
展开
-
读取一个EXCEL的文件,然后将其转化成HTML的表格
Set xlApp = server.CreateObject("Excel.Application") strsource = "c:/test.xls" Set xlbook = xlApp.Workbooks.Open(strsource) Set xlsheet = xlbook.Worksheets(1) i=1 response.write "" while xlshe原创 2004-10-02 04:57:00 · 1418 阅读 · 0 评论 -
把一个网页文件的内容导入到word里
网页文件可能包括表格线,图片等 Set MyFileObject=CreateObject("Scripting.FileSystemObject")if Not MyFileObject.FolderExists("c:/导出word文档/") then MyFileObject.CreateFolder("c:/导出word文档/")end ifSet TextFile=MyFileOb原创 2004-10-02 05:01:00 · 1941 阅读 · 1 评论 -
将浏览器文本导入到word
function onDownloadDone(s) { content.value=s; }点击Text2Word,可以把这里的数据转成为Word.也可先导入文本件.点击浏览选择文本文件.再点击Text2Word,把文本文件的数据转成为Word.onDownloadDone)" size="20">value="Text2Word">value="导出该页原创 2004-10-02 05:02:00 · 886 阅读 · 0 评论 -
将浏览器表格导入到word
%>Private Sub buildDoc(tbl) Dim objWordApp Dim objWordDoc Dim objParagraph Dim objRange Dim objTable Dim row, col Dim i, j row = tbl.rows.length col = tbl.rows.item(0).原创 2004-10-02 05:04:00 · 816 阅读 · 0 评论 -
客户端打开word并保存为html格式
function saveword(){ var wrd=new ActiveXObject("Word.Application") wrd.visible=true wrd.Documents.Open("e:/mydoc.doc") wrd.Application.Activate() wrd.ActiveDocument.SaveAs("e:/w原创 2004-10-02 05:09:00 · 852 阅读 · 0 评论 -
浏览器表格导出到Excel
浏览器表格导出到Excel 11 11 22 22 33 33 44 44 function AutomateExcel() {// Start Excel and get Application object.var oXL = new ActiveXObject("Excel.Application原创 2004-10-02 05:16:00 · 2004 阅读 · 1 评论 -
服务器端打开word
方法一str="hello world"Set objWordApp = Server.CreateObject("Word.Application") objWordApp.visible=trueSet objWordDoc=objWordApp.Documents.Open("e:/mydoc.doc") objWordApp.Selection.TypeText(str) objW原创 2004-10-02 05:08:00 · 1408 阅读 · 1 评论