Wie kann ich mit VBScript 6.0 Rahmen in Excel-Dateien hinzufügen?

Question

Ich mag Unterschied Grenzen in Excel-Datei hinzufügen, aber diese Codes nicht funktionieren:

1 - Mit diesem Code Excel-Datei das gleiche ohne Grenzen und zeigen Fehler ist „eine bereits vorhandene Variable geplant“

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 - Während dieser Code, zeigen Fehler „eine bereits vorhandene Variable geplant“

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 

Haben Sie irgendwelche Ideen zu lösen und hinzufügen von Rahmen in Excel-Datei?

Danke!

Answer 1

Sie verwenden späte Bindung, also haben Sie vermutlich keinen Verweis auf die Automatisierungsbibliothek von Excel hinzugefügt, dh Konstanten wie xlContinuous sind alle undefiniert.

Lookup der Wert in Excel (Strg + G im VBA-Editor, geben Sie ?xlContinuous) und definieren eine const für sie an der Spitze Ihres VB6-Modul:

Private Const xlContinuous As Long = 1 

Sie sollten auch set verwenden, wenn die Zuordnung Objekt Referenzen:

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

Answer 2

ich habe es immer so benutzten ....

Dim rng as Range 

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