使用VBA向动态范围SQL查询添加边框

Sub AddBorderToDynamicRange()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim rng As Range
    
    ' 创建数据库连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置数据库连接字符串，具体根据数据库类型和位置进行设置
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' 打开数据库连接
    conn.Open
    
    ' 设置SQL查询语句
    strSQL = "SELECT * FROM 表名;"
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行SQL查询
    rs.Open strSQL, conn
    
    ' 获取查询结果的范围
    Set rng = Sheet1.Range("A1").CopyFromRecordset(rs)
    
    ' 关闭记录集和数据库连接
    rs.Close
    conn.Close
    
    ' 添加边框
    rng.BorderAround xlContinuous, xlMedium
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
End Sub