JavaScript中ActiveXObject對象是啟用并返回 Automation 對象的引用。使用方法:
newObj = new ActiveXObject( servername.typename[, location])
ActiveXObject 對象語(yǔ)法有這些部分:其中newObj是必選項。要賦值為 ActiveXObject 的變量名。
servername是必選項。提供該對象的應用程序的名稱(chēng)。
typename是必選項。要創(chuàng )建的對象的類(lèi)型或類(lèi)。
location是可選項。創(chuàng )建該對象的網(wǎng)絡(luò )服務(wù)器的名稱(chēng)。
Automation 服務(wù)器至少提供一類(lèi)對象。例如,字處理應用程序可能提供應用程序對象、文檔對象和工具欄對象。
要創(chuàng )建 Automation 對象,將新的 ActiveXObject 賦給對象變量:
- var ExcelSheet;
- ExcelApp = new ActiveXObject("Excel.Application");
- ExcelSheet = new ActiveXObject("Excel.Sheet");
本代碼啟動(dòng)創(chuàng )建對象的應用程序(在這種情況下,Microsoft Excel 工作表)。一旦對象被創(chuàng )建,就可以用定義的對象變量在代碼中引用它。在下面的例子中,通過(guò)對象變量 ExcelSheet 訪(fǎng)問(wèn)新對象的屬性和方法和其他 Excel 對象,包括 Application 對象和 ActiveSheet.Cells 集合。
-
- ExcelSheet.Application.Visible = true;
-
- ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1";
-
- ExcelSheet.SaveAs("C:\\TEST.XLS");
-
- ExcelSheet.Application.Quit();
只有當 Internet 安全性關(guān)閉時(shí)才能完成在遠程服務(wù)器中創(chuàng )建對象。要在遠程網(wǎng)絡(luò )計算機創(chuàng )建對象,可以將該計算機的名稱(chēng)傳遞給 ActiveXObject 的 servername 參數。該名稱(chēng)與共享名的機器名部分相同。比如共享名為 "\\myserver\public" 的網(wǎng)絡(luò ),servername 是 "myserver"。另外,可以用 DNS 格式或 IP 地址指定 servername。
下面的代碼返回在名為 "myserver" 的遠程網(wǎng)絡(luò )計算機上運行的 Excel 實(shí)例的版本號:
- function GetAppVersion()
- {
- var XLApp = new ActiveXObject("Excel.Application", "MyServer");
- return(XLApp.Version);
- }
如果指定的遠程服務(wù)器不存在或找不到時(shí)將發(fā)生錯誤。
使用JavaScript中的ActiveXObject填充并設置Excel格式2006年12月19日 星期二 下午 05:131.創(chuàng )建一個(gè)新Excel表格
- var XLObj = new ActiveXObject("Excel.Application");
- var xlBook = XLObj.Workbooks.Add;
- var ExcelSheet = xlBook.Worksheets(1);
- ExcelSheet.SaveAs("C:\\TEST.XLS");
3.使 Excel 通過(guò) Application 對象可見(jiàn)
- ExcelSheet.Application.Visible = true;
- xlBook.PrintOut;
- 或者:
- ExcelSheet.PrintOut;
- xlBook.Close(savechanges=false);
- 或者:
- ExcelSheet.Close(savechanges=false);
- ExcelSheet.Application.Quit();
- 或者:
- XLObj.Quit();
- XLObj=null;
- ExcelSheet.ActiveSheet.PageSetup.LeftMargin= 2/0.035;
- ExcelSheet.ActiveSheet.PageSetup.RightMargin = 3/0.035;
- ExcelSheet.ActiveSheet.PageSetup.TopMargin = 4/0.035;
- ExcelSheet.ActiveSheet.PageSetup.BottomMargin = 5/0.035;
- ExcelSheet.ActiveSheet.PageSetup.HeaderMargin = 1/0.035;
- ExcelSheet.ActiveSheet.PageSetup.FooterMargin = 2/0.035;
- ExcelSheet.ActiveSheet.PageSetup.CenterHeader = "頁(yè)眉中部?jì)热?;
- ExcelSheet.ActiveSheet.PageSetup.LeftHeader = "頁(yè)眉左部?jì)热?;
- ExcelSheet.ActiveSheet.PageSetup.RightHeader = "頁(yè)眉右部?jì)热?;
- ExcelSheet.ActiveSheet.PageSetup.CenterFooter = "頁(yè)腳中部?jì)热?;
- ExcelSheet.ActiveSheet.PageSetup.LeftFooter = "頁(yè)腳左部?jì)热?;
- ExcelSheet.ActiveSheet.PageSetup.RightFooter = "頁(yè)腳右部?jì)热?;
8.對單元格操作,帶*部分對于行,列,區域都有相應屬性
- ExcelSheet.ActiveSheet.Cells(row,col).Value = "內容";
- ExcelSheet.ActiveSheet.Cells(row,col).Borders.Weight = 1;
- ExcelSheet.ActiveSheet.Cells(row,col).Interior.ColorIndex = 1;
- 2-白色,3-紅色,4-綠色,5-藍色,6-黃色,7-粉紅色,8-天藍色,9-醬土色..可以多做嘗試)
- ExcelSheet.ActiveSheet.Cells(row,col).Interior.Pattern = 1;
- 2-細網(wǎng)格,3-粗網(wǎng)格,4-斑點(diǎn),5-橫線(xiàn),6-豎線(xiàn)..可以多做嘗試)
- ExcelSheet.ActiveSheet.Cells(row,col).Font.ColorIndex = 1;
- ExcelSheet.ActiveSheet.Cells(row,col).Font.Size = 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;
- 2-靠左,3-居中,4-靠右,5-填充 6-兩端對齊,7-跨列居中,8-分散對齊)
- ExcelSheet.ActiveSheet.Cells(row,col).VerticalAlignment = 2;
- 2-居中,3-靠下,4-兩端對齊,5-分散對齊)
-
- ExcelSheet.ActiveSheet.Rows(row).
- ExcelSheet.ActiveSheet.Columns(col).
- ExcelSheet.ActiveSheet.Rows(startrow+":"+endrow).
- ExcelSheet.ActiveSheet.Columns(startcol+":"+endcol).
-
- XLObj.Range(startcell+":"+endcell).Select;
-
- XLObj.Selection.
-
- XLObj.Range(startcell+":"+endcell).MergeCells = true;
-
- 或者:
- XLObj.Range("A2",XLObj.Cells(8, 8)).MergeCells = true;
9.設置行高與列寬
- ExcelSheet.ActiveSheet.Columns(startcol+":"+endcol).ColumnWidth = 22;
-
- ExcelSheet.ActiveSheet.Rows(startrow+":"+endrow).RowHeight = 22;
-
本站僅提供存儲服務(wù),所有內容均由用戶(hù)發(fā)布,如發(fā)現有害或侵權內容,請
點(diǎn)擊舉報。