使用JavaScript中的ActiveXObject填充並設定Excel格式 var XLObj = new ActiveXObject("Excel.Application");
var xlBook = XLObj.Workbooks.Add; //新增活頁簿
var ExcelSheet = xlBook.Worksheets(1); //建立工作表 2.儲存表格
ExcelSheet.SaveAs("C:\\TEST.XLS"); 3.使 Excel 通過 Application 對象可見
ExcelSheet.Application.Visible = true; 4.列印
xlBook.PrintOut;
或者:
ExcelSheet.PrintOut; 5.關閉
xlBook.Close(savechanges=false);
或者:
ExcelSheet.Close(savechanges=false); 6.結束進程
ExcelSheet.Application.Quit();
或者:
XLObj.Quit();
XLObj=null; 7.版面設定
ExcelSheet.ActiveSheet.PageSetup.LeftMargin= 2/0.035; //頁面邊界 左2厘米
ExcelSheet.ActiveSheet.PageSetup.RightMargin = 3/0.035; //頁面邊界 右3厘米，
ExcelSheet.ActiveSheet.PageSetup.TopMargin = 4/0.035; //頁面邊界 上4厘米，
ExcelSheet.ActiveSheet.PageSetup.BottomMargin = 5/0.035; //頁面邊界 下5厘米
ExcelSheet.ActiveSheet.PageSetup.HeaderMargin = 1/0.035; //頁面邊界 頁首1厘米
ExcelSheet.ActiveSheet.PageSetup.FooterMargin = 2/0.035; //頁面邊界 頁尾2厘米
ExcelSheet.ActiveSheet.PageSetup.CenterHeader = "頁首中部內容";
ExcelSheet.ActiveSheet.PageSetup.LeftHeader = "頁首左部內容";
ExcelSheet.ActiveSheet.PageSetup.RightHeader = "頁首右部內容";
ExcelSheet.ActiveSheet.PageSetup.CenterFooter = "頁尾中部內容";
ExcelSheet.ActiveSheet.PageSetup.LeftFooter = "頁尾左部內容";
ExcelSheet.ActiveSheet.PageSetup.RightFooter = "頁尾右部內容"; 8.對儲存格操作，帶*部分對於行，列，地區都有相應屬性
ExcelSheet.ActiveSheet.Cells(row,col).Value = "內容"; //設定儲存格內容
ExcelSheet.ActiveSheet.Cells(row,col).Borders.Weight = 1; //設定儲存格邊框*()
ExcelSheet.ActiveSheet.Cells(row,col).Interior.ColorIndex = 1; //設定儲存格底色*(1-黑色，
2-白色，3-紅色，4-綠色，5-藍色，6-黃色，7-粉紅色，8-天藍色，9-醬土色..可以多做嘗試)
ExcelSheet.ActiveSheet.Cells(row,col).Interior.Pattern = 1; //設定儲存格背景樣式*(1-無，
2-細網格，3-粗網格，4-斑點，5-橫線，6-豎線..可以多做嘗試)
ExcelSheet.ActiveSheet.Cells(row,col).Font.ColorIndex = 1; //設定字型顏色*(與上相同)
ExcelSheet.ActiveSheet.Cells(row,col).Font.Size = 10; //設定為10號字*
ExcelSheet.ActiveSheet.Cells(row,col).Font.Name = "黑體"; //設定為黑體*
ExcelSheet.ActiveSheet.Cells(row,col).Font.Italic = true; //設定為斜體*
ExcelSheet.ActiveSheet.Cells(row,col).Font.Bold = true; //設定為粗體*
ExcelSheet.ActiveSheet.Cells(row,col).ClearContents; //清除內容*
ExcelSheet.ActiveSheet.Cells(row,col).WrapText=true; //設定為自動換行*
ExcelSheet.ActiveSheet.Cells(row,col).HorizontalAlignment = 3; //水平對齊枚舉* (1-常規，
2-靠左，3-置中，4-靠右，5-填充 6-左右對齊，7-跨列置中，8-分散對齊)
ExcelSheet.ActiveSheet.Cells(row,col).VerticalAlignment = 2; //垂直對齊枚舉*(1-靠上，
2-置中，3-靠下，4-左右對齊，5-分散對齊)
//行，列有相應操作:
ExcelSheet.ActiveSheet.Rows(row).
ExcelSheet.ActiveSheet.Columns(col).
ExcelSheet.ActiveSheet.Rows(startrow+":"+endrow). //如Rows("1:5")即1到5行
ExcelSheet.ActiveSheet.Columns(startcol+":"+endcol). //如Columns("1:5")即1到5列
//地區有相應操作:
XLObj.Range(startcell+":"+endcell).Select;
//如Range("A2:H8")即A列第2格至H列第8格的整個地區
XLObj.Selection.
//合併儲存格
XLObj.Range(startcell+":"+endcell).MergeCells = true;
//如Range("A2:H8")即將A列第2格至H列第8格的整個地區合并為一個儲存格
或者:
XLObj.Range("A2",XLObj.Cells(8, 8)).MergeCells = true; 9.設定行高與列寬
ExcelSheet.ActiveSheet.Columns(startcol+":"+endcol).ColumnWidth = 22;
//設定從firstcol到stopcol列的寬度為22
ExcelSheet.ActiveSheet.Rows(startrow+":"+endrow).RowHeight = 22;
//設定從firstrow到stoprow行的寬度為22 |
