如何使用VBS呼叫VBA函式

2021-10-05 18:58:08 字數 1067 閱讀 7976

■前言

修改同事大神寫的非常好的自動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...