导入:复制代码 代码如下: 导出:复制代码 代码如下:function AutomateExcel(){  // Start Excel and get Application object.var oXL = new ActiveXObject("Excel.Application");  oXL.Visible = true;  // Get a new workbook.var oWB = oXL.Workbooks.Add();var oSheet = oWB.ActiveSheet;  // Add table headers going cell by cell.oSheet.Cells(1, 1).Value = "First Name";oSheet.Cells(1, 2).Value = "Last Name";oSheet.Cells(1, 3).Value = "Full Name";oSheet.Cells(1, 4).Value = "Salary";  // Format A1:D1 as bold, vertical alignment = center.oSheet.Range("A1", "D1").Font.Bold = true;oSheet.Range("A1", "D1").VerticalAlignment = -4108; //xlVAlignCenter  // Create an array to set multiple values at once.  // Fill A2:B6 with an array of values (from VBScript).oSheet.Range("A2", "B6").Value = CreateNamesArray();  // Fill C2:C6 with a relative formula (=A2 & " " & B2).var oRng = oSheet.Range("C2", "C6");oRng.Formula = "=A2 & " " & B2";  // Fill D2:D6 with a formula(=RAND()*100000) and apply format.oRng = oSheet.Range("D2", "D6");oRng.Formula = "=RAND()*100000";oRng.NumberFormat = "$0.00";  // AutoFit columns A:D.oRng = oSheet.Range("A1", "D1");oRng.EntireColumn.AutoFit();  // Manipulate a variable number of columns for Quarterly Sales Data.DispalyQuarterlySales(oSheet);  // Make sure Excel is visible and give the user control// of Excel's lifetime.oXL.Visible = true;oXL.UserControl = true;}复制代码 代码如下:"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
08-31 07:46