Script ActiveX FileSystemObject Excel.Application Word.Application实例
<script type="text/javascript" >var fso = new ActiveXObject("Scripting.FileSystemObject") fso.CreateFolder ("C:\\Bonus");//在C盘创建一个文件夹fso.DeleteFolder ("C:\\Bonus");// 删除创建的文件夹fso.CopyFile("c:\\temp\\11.bmp","c:\\Bonus\\22.bmp");//复制文件// 创建新文件var tf = fso.CreateTextFile("c:\\testfile.txt", true); tf.WriteLine("Testing 1, 2, 3.") ; // 填写数据，并增加换行符tf.WriteBlankLines(3) ; // 增加个空行tf.Write ("This is a test."); // 填写一行，不带换行符tf.Close(); // 关闭文件// 打开文件var ForReading=1;var ts = fso.OpenTextFile("c:\\testfile.txt", ForReading); s = ts.ReadLine(); // 读取文件一行内容到字符串alert("File contents = '" + s + "'"); // 显示字符串信息ts.Close(); // 关闭文件</script><script language="javascript">var ExcelApp = new ActiveXObject("Excel.Application"); //启动创建对象的应用程序EXCELvar ExcelSheet = new ActiveXObject("Excel.Sheet"); //创建EXCEL工作表ExcelSheet.Application.Visible = true; // 使Excel窗口可见// 将一些文本放置到表格的第一格中。ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1";// 保存EXCEL到C:\TEST.XLS。ExcelSheet.SaveAs("C:\\TEST1.XLS");//用Quit 方法关闭Excel。ExcelApp.Quit(); //可以找到C:\TEST1.XLS文件，检查其正确性</script><script language="javascript">//启动EXCELvar ExcelApp = new ActiveXObject("Excel.Application"); ExcelApp.Visible = true; //使EXCEL窗口可见ExcelApp.WorkBooks.Open("c:\\TEST.xls");var objExcelBook=ExcelApp.ActiveWorkBook;var objExcelSheets=objExcelBook.Worksheets;var objExcelSheet=objExcelBook.Sheets(1); //指定当前工作区为Sheet2//此处为对excel单元格进行填写数据的语句objExcelSheet.Range("B2:k2").Value=Array("Week1","Week2","Week3","Week4","Week5","Week6","Week7");objExcelSheet.Range("B3:k3").Value=Array("67","87","5","9","7","45","45","54","54","10");objExcelSheet.Range("B4:k4").Value=Array("10","10","8","27","33","37","50","54","10","10");objExcelSheet.Range("B5:k5").Value=Array("23","3","86","64","60","18","5","1","36","80");objExcelSheet.Cells(3,1).Value="InternetExplorer";objExcelSheet.Cells(4,1).Value="Netscape";objExcelSheet.Cells(5,1).Value="Other";objExcelSheet.SaveAs("C:\\TEST2.XLS"); //保存到C:\TEST2.XLSExcelApp.Quit(); //退出EXCEL</script><script language="javascript">WordApp = new ActiveXObject("Word.Application"); //启动WordWordApp.Application.Visible = true; //使Word窗口可见var mydoc=WordApp.Documents.Add("",0,1); //新建一个文档WordApp.ActiveWindow.ActivePane.View.Type=3; //Word视图模式为页面WordApp.Selection.TypeText("测试案例"); //输入字符串WordApp.Selection.HomeKey (5,1); //光标移到行首WordApp.Selection.Font.Bold = 9999998 ; //wdToggleWordApp.Selection.WholeStory(); //选中整个文档内容mydoc.SaveAs("c:\\test.doc"); //存盘到c:\test.docfor(i=WordApp.Documents.Count;i>0;i--){ //关闭所有打开的WORD文档 WordApp.Documents(i).Close(0);}WordApp.Application.quit(); //退出Word</script> ?