AutomationAnywhere VBScript

Question

您好，我正在尝试上传 VBScript 以仅过滤掉已更改的数据。当我将脚本用作宏时，它可以工作，但是当我通过 AAE 启动它时，它会抛出

Error In Script 1024 Expected Statement.

enter image description here

Sub filtering()
    Range("H3").AutoFilter Field:=8, Criteria1:="<>"
    Range("Q3").AutoFilter Field:=17, Criteria1:="<>"
    Range("P3").AutoFilter Field:=16, Criteria1:=">=" & Range("A1").Value
    Operator:=xlAND Criteria2:="<=" & Range("A2").Value   
End Sub

Answer 1

有两种方法可以解决这个问题：

第一个：

让我们在 <script> 标签中包含子例程

<script type="text/vbscript">

Sub filtering()
    Range("H3").AutoFilter Field:=8, Criteria1:="<>"
    Range("Q3").AutoFilter Field:=17, Criteria1:="<>"
    Range("P3").AutoFilter Field:=16, Criteria1:=">=" & Range("A1").Value
    Operator:=xlAND Criteria2:="<=" & Range("A2").Value   
End Sub

</script>

或者完全忽略子例程并在 AAE 的 .vbs 文件中包含以下代码片段

Range("H3").AutoFilter Field:=8, Criteria1:="<>"
Range("Q3").AutoFilter Field:=17, Criteria1:="<>"
Range("P3").AutoFilter Field:=16, Criteria1:=">=" & Range("A1").Value
Operator:=xlAND Criteria2:="<=" & Range("A2").Value

其次：

您可以将脚本添加为功能区形式的 Add-in 按钮在 AAE 中，您可以使用命令库中的 Object Cloning 指示按钮单击按钮。

例如：来自 Excel Ribbons

的按钮外观

后端代码模块

AutomationAnywhere VBScript

AutomationAnywhere VBScript

vbscript

automationanywhere

rpa