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

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

ObjGet

檢索程序或文件名引用的 COM 對象.

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

參 數(shù)

返 回 值

備 注

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

函 數(shù) 示 例

; 使用類名字獲取對象的例子
;
; 要使這例子成功，必須打開 Excel

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

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

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



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

$FileName="C:\Worksheet.xls"

if not FileExists($FileName) then
  Msgbox (0,"Excel 文件測試","不能進(jìn)行這個測試, 因為你沒有創(chuàng)建 Excel 文件 "& $FileName)
  Exit
endif

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

if IsObj($oExcelDoc) then

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

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

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

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

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

else
  Msgbox (0,"Excel 文件測試","錯誤: 不能將 "& $FileName & " 作為 Excel 對象打開.")
endif