欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

基 礎(chǔ) 函 數(shù) 參 考

ObjGet

檢索程序或文件名引用的 COM 對(duì)象.

ObjGet ( "文件名" [, "類名" [, 實(shí)例]])

參 數(shù)

文件名 對(duì)象文件的完整路徑和名稱(見(jiàn)備注).
類名 [可選參數(shù)] 類標(biāo)識(shí)符. 可以是 ProgID 或 CLSID 的字符串表示形式.
實(shí)例 [可選參數(shù)] 對(duì)象的實(shí)例, 相同于 (CO) 類 ROT 對(duì)象.

返 回 值

成功: 返回一個(gè)對(duì)象.
失敗: 返回空字符串, 并設(shè)置 @error.

備 注

如果只使用類標(biāo)識(shí)符, 則文件名為可選, 但不能省略參數(shù).
如果你想運(yùn)行對(duì)象表(ROT)訪問(wèn)對(duì)象, 可以使用空字符串. 此時(shí)可以使用第三個(gè)參數(shù)指定訪問(wèn)的實(shí)例.
所有其它情況下, 第三個(gè)參數(shù)將被忽略.

如果您使用一個(gè)文件名, 類名是可選的. 僅當(dāng)你想加載一個(gè)特定的類對(duì)象時(shí)使用類名.

有關(guān)對(duì)象的更多信息參見(jiàn) Obj/COM 參考.

相 關(guān) 函 數(shù)

GUICtrlCreateObj, IsObj, ObjCreate, ObjEvent, ObjName

函 數(shù) 示 例


; 使用類名字獲取對(duì)象的例子
;
; 要使這例子成功，必須打開(kāi) Excel

$oExcel = ObjGet("","Excel.Application")    ; 獲取現(xiàn)有的 Excel 對(duì)象

if @error then
  Msgbox (0,"Excel 測(cè)試","獲取當(dāng)前對(duì)象 Excel 發(fā)生錯(cuò)誤. 錯(cuò)誤代碼: " & hex(@error,8))
  exit
endif

$oExcel.Visible = 1     ; 讓那家伙顯示它自己
$oExcel.workbooks.add       ; 添加一個(gè)新工作表
exit



; 使用文件名獲取對(duì)象
;
; 必須在根目錄 C:\ 創(chuàng)建一個(gè) Excel 文件：Worksheet.xls
; 以便使這個(gè)例子能工作.

$FileName="C:\Worksheet.xls"

if not FileExists($FileName) then
  Msgbox (0,"Excel 文件測(cè)試","不能進(jìn)行這個(gè)測(cè)試, 因?yàn)槟銢](méi)有創(chuàng)建 Excel 文件 "& $FileName)
  Exit
endif

$oExcelDoc = ObjGet($FileName)  ; 從現(xiàn)有文件名獲取 Excel 對(duì)象

if IsObj($oExcelDoc) then

  ; 提示: 取消下列兩行的注釋，使 Excel 可見(jiàn) (注釋者: DaleHohm)
  ; $oExcelDoc.Windows(1).Visible = 1; 設(shè)置第一個(gè)工作表可見(jiàn)
  ; $oExcelDoc.Application.Visible = 1; 設(shè)置應(yīng)用程序可見(jiàn) (在 Excel 沒(méi)有退出時(shí))

  $String = ""      ; 為顯示效果的字符串

  ; 一些文檔屬性不返回，我們將會(huì)忽略這些.
  $OEvent=ObjEvent("AutoIt.Error","nothing"); 等于為"VBscript(VB腳本)"打開(kāi)下一個(gè)錯(cuò)誤摘要
  
  For $Property In $oExcelDoc.BuiltinDocumentProperties
     $String = $String &  $Property.Name & ":" & $Property.Value & @CRLF
  Next

  Msgbox(0,"Excel 文件測(cè)試","文檔 " & $FileName & " 的屬性:" & @CRLF & @CRLF & $String)

  $oExcelDoc.Close      ; 關(guān)閉 Excel 文檔

else
  Msgbox (0,"Excel 文件測(cè)試","錯(cuò)誤: 不能將 "& $FileName & " 作為 Excel 對(duì)象打開(kāi).")
endif

provider with jb51.net (unicode)