borders in VBScript
 

Hi!
I created worksheets from a CSV file using VBScript (Excel 2003).
I want to put a border around the filled cells (UsedRange).
I recorded a macro to put full borders (top, bottom, right, left) and
tried to addapt it to my VBScript.

Where can I get a list of all the xl constants - because they are not
recognized in the VBScript ?
How do I write the code so the borders will work?
Thanks!
Mechi


Set objExcel =
CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add
wsheetNum = 1
Set objSummarySheet = objWorkbook.Worksheets(wsheetNum)
objSummarySheet.Name = "Summary"
....
....
With
objSummarySheet.UsedRange.borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With objSummarySheet.UsedRange.borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With objSummarySheet.UsedRange.borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With objSummarySheet.UsedRange.borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With objSummarySheet.UsedRange.borders(xlInsideVertical )
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With objSummarySheet.UsedRange.borders(xlInsideHorizont al)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

borders in VBScript
 

You can get constants form the Object Browser in VBA Excel

right click the VBA code window and select Object browser. Enter the
constant you are looking for like Borders and press binoculars to do a search.

Borders will be highlighted in the Bottom left pane. Click on Item in the
Right Pane. the on the bottom of the pane click on XlBordersIndex. You will
see each of the constants listed. If you press on one of the constants the
value will be displayed on the bottom of the pane.

" wrote:

Hi!
I created worksheets from a CSV file using VBScript (Excel 2003).
I want to put a border around the filled cells (UsedRange).
I recorded a macro to put full borders (top, bottom, right, left) and
tried to addapt it to my VBScript.

Where can I get a list of all the xl constants - because they are not
recognized in the VBScript ?
How do I write the code so the borders will work?
Thanks!
Mechi


Set objExcel =
CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add
wsheetNum = 1
Set objSummarySheet = objWorkbook.Worksheets(wsheetNum)
objSummarySheet.Name = "Summary"
....
....
With
objSummarySheet.UsedRange.borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With objSummarySheet.UsedRange.borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With objSummarySheet.UsedRange.borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With objSummarySheet.UsedRange.borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With objSummarySheet.UsedRange.borders(xlInsideVertical )
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With objSummarySheet.UsedRange.borders(xlInsideHorizont al)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With