■前言

修改同事大神寫的非常好的自動Evidence做成工具，

添加一些功能

? ?截取圖片后，截圖的圖片置于最底層 ：調(diào)用VBA函數(shù)?pictureToBack

? ?Case中的的一些內(nèi)容，自動截圖，并保存到Evidence中 ：調(diào)用VBA函數(shù) getCaseInfoAsPicture

?

■VBA的代碼

'把圖片置于底層 Sub pictureToBack()Selection.ShapeRange.ZOrder msoSendToBack End Sub'先當于從case文件中截圖，保存到 Ecidence 中 Sub getCaseInfoAsPicture(ByVal caseNum As Integer)Dim copyBeginIndexcopyBeginIndex = 3 + caseNum * 22Windows("case.xlsx").Activate'當于從case文件中截圖的區(qū)域Range("C3:J13").SelectSelection.CopyWindows("EvidenceTemplate.xlsm").Activate'Range("C3").SelectRange("C" & copyBeginIndex).SelectActiveSheet.Pictures.Paste.SelectEnd Sub

---

■VBS代碼

Set excelApp = createobject("Excel.Application") excelApp.Visible = true excelApp.DisplayAlerts = false Set oWorkbooks = excelApp .Workbooks.Open("C:\test\EvidenceTemplate.xlsm")'... Dim count '不能寫成 Dim count As Integer，否則報錯 '... count = 1 '不能寫成 set count = 1, 否則報錯 '運行函數(shù) （含參數(shù)傳遞） excelApp.Run "getCaseInfoAsPicture"，count '... '運行函數(shù) excelApp.Run "pictureToBack" '... count = count +1 '...oWorkbooks.Close excelApp.Quit Set oWorkbooks = nothing Set excelApp = nothing

---

總結(jié)

以上是生活随笔為你收集整理的如何使用VBS调用VBA函数的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。