VBScript 6.0을 사용하여 Excel 파일에 테두리를 추가하는 방법은 무엇입니까?

Question

나는 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에서 테두리를 추가하는 방법에 대한 아이디어가 "이미 존재하는 변수 계획"?

감사합니다.

Answer 1

후기 바인딩을 사용하고 있으므로 Excel의 자동화 라이브러리에 대한 참조가 추가되어 있지 않은 것 같습니다. 즉 xlContinuous과 같은 상수는 모두 정의되지 않았습니다.

조회 Excel에서 값합니다 (VBA 편집기에서 Ctrl + G를 입력 ?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) 

Answer 2

난 항상 이런 식으로 사용했습니다 ....

Dim rng as Range 

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