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

我想补充的区别边框在Excel文件，但这个代码将不会工作：如何使用VBScript 6.0在Excel文件中添加边框？

1 - 有了这个代码的Excel文件是无国界的，并显示错误相同的“计划已经存在的变量”

Dim app As Object 
Dim bookAs Object 
Dim sheetAs Object 
app= CreateObject("Excel.Application") 
book= app.Workbooks.Add 
sheet= book.Worksheets(1) 
sheet.Range("A1:F20").Borders.LineStyle = xlContinuous

2 - 尽管此代码，显示错误“计划已经存在的变量”

Dim app As Object 
Dim bookAs Object 
Dim sheetAs Object 
app= CreateObject("Excel.Application") 
book= app.Workbooks.Add 
sheet= book.Worksheets(1) 
With sheet.Range("A:X").Borders 
    .LineStyle = xlContinuous 
End With

你有关于解决和添加边框在Excel文件中的任何想法？

谢谢！

来源

2016-06-12 CroftL

暗淡bookA s Object Dim sheetAs对象应该是“As” –

您正在使用后期绑定，因此推测未添加对Excel自动化库的引用，这意味着像xlContinuous这样的常量都是未定义的。

查找在Excel中值（按Ctrl + G在VBA编辑器，类型?xlContinuous），并在您的VB6模块的顶部为它们定义一个const：

Private Const xlContinuous As Long = 1

您还应该使用set分配时对象引用：

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

来源

2016-06-13 10:40:11

优秀的答案！不幸的是，在解释器中没有关于缺少常量的有用的错误消息，所以你必须事先知道它。对VBA和VBScript之间其他区别的引用也可能有所帮助：https：//msdn.microsoft.com/en-us/library/ms970436.aspx – user121391

我一直使用它像这样....

Dim rng as Range 

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

来源

2016-06-13 18:11:21 LD16

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

回答

相关问题