如何使用VBS调用VBA函数

■前言

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

添加一些功能

・截取图片后，截图的图片置于最底层：调用VBA函数 pictureToBack

・Case中的的一些内容，自动截图，并保存到Evidence中：调用VBA函数 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文件中截图的区域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, 否则报错
'运行函数 （含参数传递）
excelApp.Run "getCaseInfoAsPicture"，count
'...
'运行函数
excelApp.Run "pictureToBack"
'...
count = count +1
'...oWorkbooks.Close
excelApp.Quit
Set oWorkbooks = nothing
Set excelApp = nothing

---

如何使用VBS调用VBA函数相关推荐

在Excel的单元格中，调用VBA函数
说明: 自定义函数必须写在模块里,也是就(Module),(標準モジュール) Public Function test001(ByVal str As String) test001 = str &a ...
VBS调用Windows API函数
Demon's Blog 忘记了,喜欢一个人的感觉 Demon's Blog » 程序设计 » VBS调用Windows API函数 « 用VBS修改Windows用户密码在VB中创建和使用 ...
VBA中调用Excel函数
VBA中编写的事件,不断的触发循环 :先程序开始时关闭 Excel.Application.EnableEvents =False:结束时打开:Excel.Application.EnableEve ...
vbs调用c++dll_COM编程攻略（八动态调用与IDispatch接口）
上一篇我们实现了一个本地进程服务. Froser:COM编程攻略(七 COM跨进程组件开发实战)zhuanlan.zhihu.com 这一篇,我们将对这个本地进程服务做一些修改,让它能支持如下VBS ...
VB和VBS、VBA的区别及作用
VB Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言,为结构化的.模块化的.面向对象的.包含协助开发环境的事件驱动为机制的可视化程序设计语言.是一种 ...
读取Excel的文本框，除了解析xml还可以用python调用VBA
作者:小小明 Python读取Excel的文本框基本需求今天看到了一个很奇怪的问题,要读取Excel文件的文本框中的文本,例如这种: 本以为openxlpy可以读取,但查看openxlpy官方文档 ...
python 调用vba 参数保存表格_Jupyter Notebooks嵌入Excel并使用Python替代VBA宏
以前,Excel和Python Jupyter Notebook之间我们只能选择一个. 但是现在随着PyXLL-Jupyter软件包的推出,可以将两者一起使用. 在本文中,我将向你展示如何设置在Exc ...
VBS 与 VBA 的区别
'■前言 VBA操作Excel很常见, 之前也看到过使用VBS操作Excel,来完成某些自动化处理的代码. 虽然有些类似,但是,VBS 与 VBA 是两种不同的语言. ■VBA 代码运行,基于Exce ...
指定单元格里面的，内容发生变化，触发事件，调用VBA代码。
指定单元格里面的,内容发生变化,触发事件,调用VBA代码._sun0322-CSDN博客_单元格变化触发vba 目录 ■通过改变一个单元格的内容,出发一个事件,根据改变的内容,进行相应的处理. ■扩展 ...
access vba函数
access vba函数 Abs 函数返回参数的绝对值,其类型和参数相同. 语法 Abs(number) 必要的 number 参数是任何有效的数值表达式,如果 number 包含 Null,则返回 ...

如何使用VBS调用VBA函数

如何使用VBS调用VBA函数相关推荐

最新文章

热门文章