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