国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBS教程:函數-CreateObject 函數

2019-10-26 17:57:37
字體:
來源:轉載
供稿:網友

CreateObject 函數

創建并返回對 Automation 對象的引用。

CreateObject(servername.typename [, location])

參數

servername

必選項。提供對象的應用程序名稱。

typename

必選項。要創建的對象類型或類。

location

可選項。對象所在的網絡服務器將被創建。

說明

Automation 服務器至少提供一種對象類型。例如,字處理應用程序可以提供應用程序對象、文檔對象和工具條對象。

要創建 Automation 對象,將 CreateObject 函數返回的對象賦值給某對象變量:

Dim ExcelSheetSet ExcelSheet = CreateObject("Excel.Sheet")

上述代碼啟動創建對象(在此實例中,是 Microsoft Excel 電子表格)的應用程序。對象創建后,就可以在代碼中使用定義的對象變量引用此對象。在下面的示例中,可使用對象變量、ExcelSheet 和其他 Excel 對象,包括 Application 對象和 Cells 集合訪問新對象的屬性和方法。例如:

' Make Excel visible through the Application object.ExcelSheet.Application.Visible = True' Place some text in the first cell of the sheet.ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1"' Save the sheet.ExcelSheet.SaveAs "C:/DOCS/TEST.XLS"' Close Excel with the Quit method on the Application object.ExcelSheet.Application.Quit' Release the object variable.Set ExcelSheet = Nothing

在遠程服務器上創建一個對象,當 Internet 安全關閉時只能完成。通過傳遞計算機名到 CreateObject 服務器名的參數,能在遠程網絡上創建對象。該名稱如同共享部份的機器名。例如網絡共享名命名為: "http://myserver/public", servername 是 "myserver"。另外,只能指定 servername 使用 DNS 格式或 IP 地址。

以下代碼返回運行在命名為"myserver"的遠程網絡計算機上 Excel 實例的版本號 :

Function GetVersion Dim XLApp Set XLApp = CreateObject("Excel.Application", "MyServer") GetVersion = XLApp.VersionEnd Function

錯誤發生在指定的遠程服務器不存在或無法找到。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 大名县| 高雄县| 专栏| 朔州市| 始兴县| 乐业县| 阿图什市| 华阴市| 桂东县| 陆丰市| 贺州市| 新邵县| 临朐县| 郴州市| 九江县| 微山县| 辽源市| 江华| 合江县| 河东区| 石门县| 塔城市| 嘉黎县| 全椒县| 阆中市| 新和县| 镇平县| 杭锦旗| 长岭县| 独山县| 广平县| 遵义市| 成都市| 乐至县| 荃湾区| 丰都县| 高青县| 疏勒县| 米林县| 万全县| 耒阳市|