vbscript - AutomationAnywhere VBScript

Question

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

脚本 1024 预期语句中的错误。

在此处输入图像描述

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   

---

第二：

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

例如：按钮在 Excel 功能区中的外观

后端的代码模块

---