在Power Automate Desktop中用VBScript给Excel指定区域加边框遇Range类型不匹配错误

导致错误的几个关键问题及修正方式：

• VBScript是弱类型语言，不支持Dim myRange As Range这种强类型变量声明，需改为Dim myRange。
• 打开工作簿的语句缺少右括号：Set ExcelDoc = Excel.Workbooks.open("%ExcelFile%" 要补全为Set ExcelDoc = Excel.Workbooks.open("%ExcelFile%")。
• 范围引用里的左引号是中文全角格式，VBScript无法识别，需替换为英文半角引号：Range("A1:C3")。
• 直接调用Range()未指定所属工作表，会引发上下文错误，必须明确关联打开的工作簿中的工作表，比如ExcelDoc.ActiveSheet.Range("A1:C3")。
• VBScript没有内置Excel的常量（如xlContinuous、xlThin），需替换为对应的数值：xlContinuous=1，xlThin=2。

修正后的完整代码：

Dim Excel
Dim ExcelDoc
Dim myRange

' 打开Excel文件
Set Excel = CreateObject("Excel.Application")
Set ExcelDoc = Excel.Workbooks.open("%ExcelFile%")

' 指定目标范围，关联到打开的工作簿的活动工作表
Set myRange = ExcelDoc.ActiveSheet.Range("A1:C3")

' 设置边框样式
With myRange.Borders
    .LineStyle = 1 ' 对应xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = 2 ' 对应xlThin
End With

' 保存并关闭工作簿（SaveChanges:=True 确保修改被保存）
ExcelDoc.Close SaveChanges:=True

' 退出Excel应用
Excel.Application.Quit

内容的提问来源于stack exchange，提问作者Priya Sekar