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

最新推荐文章于 2024-10-06 11:18:21 发布

woshiguoguoxz

最新推荐文章于 2024-10-06 11:18:21 发布

阅读量1.6k

点赞数

本文链接：https://blog.csdn.net/woshiguoguoxz/article/details/4555398

版权

本文详细介绍了在ASP中通过VB代码从数据库导出数据到Excel时，如何应用宏设置边框的过程。作者遇到并解决了在设置边框过程中遇到的“类型不匹配”和“运行时错误”，最终成功设置了边框样式。问题主要集中在宏中的常量转换和属性设置上，例如正确的使用`.Weight = "2"`而不是`.Weight = xlThin`。

摘要由CSDN通过智能技术生成

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)
        .Li