是否可以将数据从.CopyFromRecordset粘贴到特定的单元格

Sub PasteDataFromRecordset()
    Dim conn As Object
    Dim rs As Object
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串，这里假设连接到一个数据库
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=数据库服务器;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' 打开连接
    conn.Open
    
    ' 创建Recordset对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行SQL查询语句，这里假设查询结果包含两列数据
    rs.Open "SELECT Column1, Column2 FROM TableName", conn
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 指定数据粘贴的起始单元格
    Set rng = ws.Range("A1")
    
    ' 将Recordset的数据复制到临时区域
    rng.CopyFromRecordset rs
    
    ' 将临时区域的数据复制到目标单元格
    ws.Range("B2").Value = rng.Value
    
    ' 关闭Recordset和连接
    rs.Close
    conn.Close
End Sub