asp中从数据库导出EXCEL时，EXCEL宏应用的边框设置

Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false               '不显示警告
   'xlApp.Application   = false               '不显示界面
   xlapp.Workbooks.add
   set objExcelBook   = xlapp.ActiveWorkBook
   set objExcelSheets = objExcelBook.Worksheets
   set xlSheet = objExcelBook.Sheets(1)
 
EXCEL中设置边框，录制的宏
Sub Macro1()
'
' Macro1 Macro
' 宏由 YlmF 录制，时间: 2009-9-15 test
'
' 快捷键: Ctrl+q
'
    Range("A3:G32").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic