最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线



CreateObject 函數(shù)

創(chuàng)建并返回對 Automation 對象的引用。

CreateObject(servername.typename [, location])

參數(shù)

servername

必選項。提供對象的應(yīng)用程序名稱。

typename

必選項。要創(chuàng)建的對象類型或類。

location

可選項。對象所在的網(wǎng)絡(luò)服務(wù)器將被創(chuàng)建。

說明

Automation 服務(wù)器至少提供一種對象類型。例如,字處理應(yīng)用程序可以提供應(yīng)用程序?qū)ο、文檔對象和工具條對象。

要創(chuàng)建 Automation 對象,將 CreateObject 函數(shù)返回的對象賦值給某對象變量:

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

上述代碼啟動創(chuàng)建對象(在此實例中,是 Microsoft Excel 電子表格)的應(yīng)用程序。對象創(chuàng)建后,就可以在代碼中使用定義的對象變量引用此對象。在下面的示例中,可使用對象變量、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

在遠程服務(wù)器上創(chuàng)建一個對象,當(dāng) Internet 安全關(guān)閉時只能完成。通過傳遞計算機名到 CreateObject 服務(wù)器名的參數(shù),能在遠程網(wǎng)絡(luò)上創(chuàng)建對象。該名稱如同共享部份的機器名。例如網(wǎng)絡(luò)共享名命名為: "\\myserver\public", servername 是 "myserver"。另外,只能指定 servername 使用 DNS 格式或 IP 地址。

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

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

錯誤發(fā)生在指定的遠程服務(wù)器不存在或無法找到。

要求

版本2

請參閱

GetObject 函數(shù)

返回首頁
建瓯市| 江孜县| 古丈县| 乌兰县| 莫力| 平潭县| 武平县| 洮南市| 宣化县| 栖霞市| 雅安市| 儋州市| 百色市| 吐鲁番市| 广饶县| 土默特右旗| 临夏市| 绵竹市| 兴国县| 泌阳县| 满洲里市| 西吉县| 增城市| 武冈市| 广平县| 平安县| 安丘市| 佛教| 麟游县| 大庆市| 古浪县| 黑河市| 柳州市| 友谊县| 和田县| 东海县| 深圳市| 九龙城区| 青冈县| 泗水县| 綦江县|