■前言
修改同事大神寫的非常好的自動evidence做成工具,
新增一些功能
・case中的的一些內容,自動截圖,並儲存到evidence中 :呼叫vba函式 getcaseinfoaspicture
■vba的**
'把置於底層
sub picturetoback()
selection.shaperange.zorder msosendtoback
end sub
'先當於從case檔案中截圖,儲存到 ecidence 中
sub getcaseinfoaspicture(byval casenum as integer)
dim copybeginindex
copybeginindex = 3 + casenum * 22
windows("case.xlsx").activate
'當於從case檔案中截圖的區域
dim count '不能寫成 dim count as integer,否則報錯
'...
count = 1 '不能寫成 set count = 1, 否則報錯
'執行函式 (含引數傳遞)
'...
'執行函式
'...
count = count +1
'...
oworkbooks.close
set oworkbooks = nothing
SAP 使用VBA呼叫SAP RFC
使用vba呼叫sap rfc和jco 常用的方法基本一致。大致分為兩步 登入和執行 1 設定登入資訊 set r3 createobject sap.functions r3.connection.system dev r3.connection.client 160 r3.connection.s...
Excel VBA 在VBA中呼叫函式
excel的表函式也可以直接在vba中直接呼叫執行,具體呼叫格式如下 呼叫方法2 變數物件 vba.表函式 表函式引數 例項 range d8 vba.ucase range a1 a10 value 1 並非所有表函式都可以在vba中予以呼叫,比如trunc,numberstring。表函式if ...
vba中dir用法 vba中dir函式使用心得
dir pathname attributes 構建測試環境如下 一 測試在dir函式中使用萬用字元來查詢多個檔案,在vbe中輸入 如下 sub listfiles dim strpath as string,strtmp as string strpath c test strtmp dir st...