如何使用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文件中添加邊框？

回答

相關問題