JavaScript中ActiveXObject

JavaScript中ActiveXObject對象是啓用並返回 Automation 對象的引用。使用方法：

newObj = new ActiveXObject( servername.typename[, location])

ActiveXObject 對象語法有這些部分：其中newObj是必選項。要賦值爲 ActiveXObject 的變量名。
servername是必選項。提供該對象的應用程序的名稱。
typename是必選項。要創建的對象的類型或類。
location是可選項。創建該對象的網絡服務器的名稱。

 

Automation 服務器至少提供一類對象。例如，字處理應用程序可能提供應用程序對象、文檔對象和工具欄對象。

　　要創建 Automation 對象，將新的 ActiveXObject 賦給對象變量： 

var ExcelSheet;
ExcelApp = new ActiveXObject("Excel.Application");
ExcelSheet = new ActiveXObject("Excel.Sheet");

　　本代碼啓動創建對象的應用程序（在這種情況下，Microsoft Excel 工作表）。一旦對象被創建，就可以用定義的對象變量在代碼中引用它。在下面的例子中，通過對象變量 ExcelSheet 訪問新對象的屬性和方法和其他 Excel 對象，包括 Application 對象和 ActiveSheet.Cells 集合。 

   

// 使 Excel 通過 Application 對象可見。
  ExcelSheet.Application.Visible = true;
  // 將一些文本放置到表格的第一格中。
  ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1";
  // 保存表格。
  ExcelSheet.SaveAs("C:\\TEST.XLS");
  // 用 Application 對象用 Quit 方法關閉 Excel。
  ExcelSheet.Application.Quit();

　　只有當 Internet 安全性關閉時才能完成在遠程服務器中創建對象。要在遠程網絡計算機創建對象，可以將該計算機的名稱傳遞給 ActiveXObject 的 servername 參數。該名稱與共享名的機器名部分相同。比如共享名爲 "\\myserver\public" 的網絡，servername 是 "myserver"。另外，可以用 DNS 格式或 IP 地址指定 servername。

　　下面的代碼返回在名爲 "myserver" 的遠程網絡計算機上運行的 Excel 實例的版本號：  

function GetAppVersion()
{
    var XLApp = new ActiveXObject("Excel.Application", "MyServer");
    return(XLApp.Version);
}

 

如果指定的遠程服務器不存在或找不到時將發生錯誤。
使用JavaScript中的ActiveXObject填充並設置Excel格式2006年12月19日 星期二 下午 05:131.創建一個新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