如何使用VBScript 6.0在Excel文件中添加边框？

我想在Excel文件中添加差异边框，但此代码无效：

1-使用此代码时，Excel文件与无边框文件相同，并显示错误“已存在变量”

2-在执行此代码时，显示错误“计划一个已存在的变量”

您对在Excel文件中解析和添加边框有什么想法吗

---

谢谢

您正在使用后期绑定，因此可能没有添加对Excel自动化库的引用，这意味着像

xlContinuous

这样的常量都未定义

在Excel中查找该值（在VBA编辑器中按Ctrl+G，键入

？xlContinuous

），并在VB6模块顶部为其定义常量：

Private Const xlContinuous As Long = 1

在指定对象参照时，还应使用

set

：

set app = CreateObject("Excel.Application")
set book = app.Workbooks.Add
set sheet = book.Worksheets(1)

---

我一直这样用它

Dim rng as Range

Set rng = xlSheet.Range(***specify your range here***)
    rng.Borders.LineStyle = xlContinuous

---

Dim bookAs对象Dim sheetAs对象应为“As”极好的答案！不幸的是，解释器中没有关于缺少常量的有用错误消息，因此您必须事先知道它。参考VBA和VBScript之间的其他差异也可能会有所帮助：

set app = CreateObject("Excel.Application")
set book = app.Workbooks.Add
set sheet = book.Worksheets(1)

Dim rng as Range

Set rng = xlSheet.Range(***specify your range here***)
    rng.Borders.LineStyle = xlContinuous