啟用并返回 Automation 對(duì)象的引用。
newObj = new ActiveXObject(servername.typename[, location])
Automation 服務(wù)器至少提供一類對(duì)象。例如,字處理應(yīng)用程序可能提供應(yīng)用程序?qū)ο蟆⑽臋n對(duì)象和工具欄對(duì)象。
要?jiǎng)?chuàng)建 Automation 對(duì)象,將新的 ActiveXObject 賦給對(duì)象變量:
var ExcelSheet; ExcelApp = newActiveXObject
("Excel.Application"); ExcelSheet = newActiveXObject(
"Excel.
Sheet")
;
本代碼啟動(dòng)創(chuàng)建對(duì)象的應(yīng)用程序(在這種情況下,Microsoft Excel 工作表)。一旦對(duì)象被創(chuàng)建,就可以用定義的對(duì)象變量在代碼中引用它。在下面的例子中,通過對(duì)象變量 ExcelSheet 訪問新對(duì)象的屬性和方法和其他 Excel 對(duì)象,包括 Application 對(duì)象和 ActiveSheet.Cells 集合。
// 使 Excel 通過 Application 對(duì)象可見。 ExcelSheet.Application.Visible = true; // 將一些文本放置到表格的第一格中。 ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1"; // 保存表格。 ExcelSheet.SaveAs("C:\\TEST.XLS"); // 用 Application 對(duì)象用 Quit 方法關(guān)閉 Excel。 ExcelSheet.Application.Quit();
只有當(dāng) Internet 安全性關(guān)閉時(shí)才能完成在遠(yuǎn)程服務(wù)器中創(chuàng)建對(duì)象。要在遠(yuǎn)程網(wǎng)絡(luò)計(jì)算機(jī)創(chuàng)建對(duì)象,可以將該計(jì)算機(jī)的名稱傳遞給 ActiveXObject 的 servername 參數(shù)。該名稱與共享名的機(jī)器名部分相同。比如共享名為 "\\myserver\public" 的網(wǎng)絡(luò),servername 是 "myserver"。另外,可以用 DNS 格式或 IP 地址指定 servername。
下面的代碼返回在名為 "myserver" 的遠(yuǎn)程網(wǎng)絡(luò)計(jì)算機(jī)上運(yùn)行的 Excel 實(shí)例的版本號(hào):
function GetAppVersion() { var XLApp = newActiveXObject(
"Excel.
Application",
"MyServer")
; return(XLApp.Version); }
如果指定的遠(yuǎn)程服務(wù)器不存在或找不到時(shí)將發(fā)生錯(cuò)誤。