我的 Excel VBA 中有以下代码,可将 SQL 表中的数据复制到 Excel 中。此数据从单元格 C2 开始水平插入,但我希望它垂直插入 C 列。
Sheets("Control").Range("C2").CopyFromRecorset rsPubs
rsPubs
我的 ADO 连接在哪里。
基本上,我只想转置这些数据。这样做的有效方法是什么?
这就是rsPubs
创建方式(连接工作正常,因为我实际上正在获取数据):
' Create a recordset object.
Dim rsPubs As ADODB.Recordset
Set rsPubs = New ADODB.Recordset
With rsPubs
' Assign the Connection object.
.ActiveConnection = cnPubs
' Extract the required records.
.Open "SELECT * FROM Analytics.dbo.XBodoffFinalAllocation"
' Copy the records into cell B3 on Sheet1.
Sheets("Control").Range("C2").CopyFromRecordset rsPubs
' Tidy up
.Close
End With
cnPubs.Close
Set rsPubs = Nothing
Set cnPubs = Nothing