免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

打開(kāi)APP
userphoto
未登錄

開(kāi)通VIP，暢享免費(fèi)電子書(shū)等14項(xiàng)超值服

開(kāi)通VIP

首頁(yè)

好書(shū)

留言交流

下載APP

聯(lián)系客服
JavaScript中ActiveXObject函數(shù)

JavaScript中ActiveXObject對(duì)象是啟用并返回 Automation 對(duì)象的引用。使用方法：
newObj = new ActiveXObject( servername.typename[, location])
ActiveXObject 對(duì)象語(yǔ)法有這些部分：其中newObj是必選項(xiàng)。要賦值為 ActiveXObject 的變量名。
servername是必選項(xiàng)。提供該對(duì)象的應(yīng)用程序的名稱(chēng)。
typename是必選項(xiàng)。要?jiǎng)?chuàng)建的對(duì)象的類(lèi)型或類(lèi)。
location是可選項(xiàng)。創(chuàng)建該對(duì)象的網(wǎng)絡(luò)服務(wù)器的名稱(chēng)。

 
Automation 服務(wù)器至少提供一類(lèi)對(duì)象。例如，字處理應(yīng)用程序可能提供應(yīng)用程序?qū)ο?、文檔對(duì)象和工具欄對(duì)象。

　　要?jiǎng)?chuàng)建 Automation 對(duì)象，將新的 ActiveXObject 賦給對(duì)象變量： 
 
  1. var ExcelSheet;   
  2. ExcelApp = new ActiveXObject("Excel.Application");   
  3. ExcelSheet = new ActiveXObject("Excel.Sheet");  
　　本代碼啟動(dòng)創(chuàng)建對(duì)象的應(yīng)用程序（在這種情況下，Microsoft Excel 工作表）。一旦對(duì)象被創(chuàng)建，就可以用定義的對(duì)象變量在代碼中引用它。在下面的例子中，通過(guò)對(duì)象變量 ExcelSheet 訪問(wèn)新對(duì)象的屬性和方法和其他 Excel 對(duì)象，包括 Application 對(duì)象和 ActiveSheet.Cells 集合。 

   
  1. // 使 Excel 通過(guò) Application 對(duì)象可見(jiàn)。   
  2.   ExcelSheet.Application.Visible = true;   
  3.   // 將一些文本放置到表格的第一格中。   
  4.   ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1";   
  5.   // 保存表格。   
  6.   ExcelSheet.SaveAs("C:\\TEST.XLS");   
  7.   // 用 Application 對(duì)象用 Quit 方法關(guān)閉 Excel。   
  8.   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ī)的名稱(chēng)傳遞給 ActiveXObject 的 servername 參數(shù)。該名稱(chēng)與共享名的機(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)：  
  1. function GetAppVersion()   
  2. {   
  3.     var XLApp = new ActiveXObject("Excel.Application", "MyServer");   
  4.     return(XLApp.Version);   
  5. }  

 

如果指定的遠(yuǎn)程服務(wù)器不存在或找不到時(shí)將發(fā)生錯(cuò)誤。
使用JavaScript中的ActiveXObject填充并設(shè)置Excel格式2006年12月19日 星期二 下午 05:131.創(chuàng)建一個(gè)新Excel表格 
 
  1. var XLObj = new ActiveXObject("Excel.Application");   
  2.    var xlBook = XLObj.Workbooks.Add;                         //新增工作簿   
  3.    var ExcelSheet = xlBook.Worksheets(1);                   //創(chuàng)建工作表  
 
2.保存表格 
   
  1. ExcelSheet.SaveAs("C:\\TEST.XLS");  
 
3.使 Excel 通過(guò) Application 對(duì)象可見(jiàn) 
    
  1. ExcelSheet.Application.Visible = true;  
 
4.打印 
    
  1. xlBook.PrintOut;   
  2.    或者:   
  3.    ExcelSheet.PrintOut;  

5.關(guān)閉 
    
  1. xlBook.Close(savechanges=false);   
  2.    或者:   
  3.    ExcelSheet.Close(savechanges=false);  


6.結(jié)束進(jìn)程 
     
  1. ExcelSheet.Application.Quit();   
  2.     或者:   
  3.     XLObj.Quit();   
  4.     XLObj=null;  

7.頁(yè)面設(shè)置 
    
  1. ExcelSheet.ActiveSheet.PageSetup.LeftMargin= 2/0.035;         //頁(yè)邊距 左2厘米   
  2.    ExcelSheet.ActiveSheet.PageSetup.RightMargin = 3/0.035;      //頁(yè)邊距 右3厘米，   
  3.    ExcelSheet.ActiveSheet.PageSetup.TopMargin = 4/0.035;        //頁(yè)邊距 上4厘米，   
  4.    ExcelSheet.ActiveSheet.PageSetup.BottomMargin = 5/0.035;   //頁(yè)邊距 下5厘米   
  5.    ExcelSheet.ActiveSheet.PageSetup.HeaderMargin = 1/0.035;   //頁(yè)邊距 頁(yè)眉1厘米   
  6.    ExcelSheet.ActiveSheet.PageSetup.FooterMargin = 2/0.035;    //頁(yè)邊距 頁(yè)腳2厘米   
  7.    ExcelSheet.ActiveSheet.PageSetup.CenterHeader = "頁(yè)眉中部?jī)?nèi)容";   
  8.    ExcelSheet.ActiveSheet.PageSetup.LeftHeader = "頁(yè)眉左部?jī)?nèi)容";   
  9.    ExcelSheet.ActiveSheet.PageSetup.RightHeader = "頁(yè)眉右部?jī)?nèi)容";   
  10.    ExcelSheet.ActiveSheet.PageSetup.CenterFooter = "頁(yè)腳中部?jī)?nèi)容";   
  11.    ExcelSheet.ActiveSheet.PageSetup.LeftFooter = "頁(yè)腳左部?jī)?nèi)容";   
  12.    ExcelSheet.ActiveSheet.PageSetup.RightFooter = "頁(yè)腳右部?jī)?nèi)容";  

8.對(duì)單元格操作，帶*部分對(duì)于行，列，區(qū)域都有相應(yīng)屬性 
    
  1. ExcelSheet.ActiveSheet.Cells(row,col).Value = "內(nèi)容";                //設(shè)置單元格內(nèi)容   
  2.    ExcelSheet.ActiveSheet.Cells(row,col).Borders.Weight = 1;        //設(shè)置單元格邊框*()   
  3.    ExcelSheet.ActiveSheet.Cells(row,col).Interior.ColorIndex = 1;    //設(shè)置單元格底色*(1-黑色，   
  4.        2-白色，3-紅色，4-綠色，5-藍(lán)色，6-黃色，7-粉紅色，8-天藍(lán)色，9-醬土色..可以多做嘗試)   
  5.    ExcelSheet.ActiveSheet.Cells(row,col).Interior.Pattern = 1;         //設(shè)置單元格背景樣式*(1-無(wú)，   
  6.                                                     2-細(xì)網(wǎng)格，3-粗網(wǎng)格，4-斑點(diǎn)，5-橫線，6-豎線..可以多做嘗試)   
  7.    ExcelSheet.ActiveSheet.Cells(row,col).Font.ColorIndex = 1;        //設(shè)置字體顏色*(與上相同)   
  8.    ExcelSheet.ActiveSheet.Cells(row,col).Font.Size = 10;                //設(shè)置為10號(hào)字*   
  9.    ExcelSheet.ActiveSheet.Cells(row,col).Font.Name = "黑體";        //設(shè)置為黑體*   
  10.    ExcelSheet.ActiveSheet.Cells(row,col).Font.Italic = true;             //設(shè)置為斜體*   
  11.    ExcelSheet.ActiveSheet.Cells(row,col).Font.Bold = true;             //設(shè)置為粗體*   
  12.    ExcelSheet.ActiveSheet.Cells(row,col).ClearContents;                //清除內(nèi)容*   
  13.    ExcelSheet.ActiveSheet.Cells(row,col).WrapText=true;               //設(shè)置為自動(dòng)換行*   
  14.    ExcelSheet.ActiveSheet.Cells(row,col).HorizontalAlignment = 3;  //水平對(duì)齊方式枚舉* (1-常規(guī)，   
  15.                                    2-靠左，3-居中，4-靠右，5-填充 6-兩端對(duì)齊，7-跨列居中，8-分散對(duì)齊)   
  16.    ExcelSheet.ActiveSheet.Cells(row,col).VerticalAlignment = 2;      //垂直對(duì)齊方式枚舉*(1-靠上，   
  17.                                                                                   2-居中，3-靠下，4-兩端對(duì)齊，5-分散對(duì)齊)   
  18.    //行，列有相應(yīng)操作:   
  19.    ExcelSheet.ActiveSheet.Rows(row).   
  20.    ExcelSheet.ActiveSheet.Columns(col).   
  21.    ExcelSheet.ActiveSheet.Rows(startrow+":"+endrow).                   //如Rows("1:5")即1到5行   
  22.    ExcelSheet.ActiveSheet.Columns(startcol+":"+endcol).                //如Columns("1:5")即1到5列   
  23.    //區(qū)域有相應(yīng)操作:   
  24.    XLObj.Range(startcell+":"+endcell).Select;   
  25.        //如Range("A2:H8")即A列第2格至H列第8格的整個(gè)區(qū)域   
  26.    XLObj.Selection.   
  27.    //合并單元格   
  28.    XLObj.Range(startcell+":"+endcell).MergeCells = true;   
  29.        //如Range("A2:H8")即將A列第2格至H列第8格的整個(gè)區(qū)域合并為一個(gè)單元格   
  30.    或者:   
  31.    XLObj.Range("A2",XLObj.Cells(8, 8)).MergeCells = true;  
9.設(shè)置行高與列寬 
     
  1. ExcelSheet.ActiveSheet.Columns(startcol+":"+endcol).ColumnWidth = 22;   
  2.         //設(shè)置從firstcol到stopcol列的寬度為22   
  3.     ExcelSheet.ActiveSheet.Rows(startrow+":"+endrow).RowHeight = 22;   
  4.         //設(shè)置從firstrow到stoprow行的寬度為22   
 
 
 
 
 
 
 
 
 
 
 
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。
打開(kāi)APP，閱讀全文并永久保存 查看更多類(lèi)似文章
猜你喜歡
類(lèi)似文章
通過(guò)Excel控件進(jìn)行數(shù)據(jù)的打印或者預(yù)覽
用VB操作excel方法匯總
自動(dòng)生成EXCEL文件完整示例
如何在vfp中調(diào)用excel實(shí)現(xiàn)圖、表的制作（之八）
VFP與 EXCEL
在VFP中全面控制Excel
更多類(lèi)似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長(zhǎng)圖 關(guān)注 下載文章
綁定賬號(hào)成功
后續(xù)可登錄賬號(hào)暢享VIP特權(quán)！
如果VIP功能使用有故障，
可點(diǎn)擊這里聯(lián)系客服！

聯(lián)系客服