转置列表框中的值

Question

再会，

我正在尝试通过查询转置添加到我的列表框中的值。 还有人有关于如何在 Header 列上获取列名的提示。 这是我列表框中的值的样子：

到目前为止，以下是我的代码：

    Dim conn As New ADODB.Connection
    Dim reCs As ADODB.Recordset
    Dim tarSheet As Worksheet
    Dim strbooK As String, strTar As String
    Dim arTar As Range
    
    strbooK = ThisWorkbook.Path & "\Excel_VBA.xlsm"

    
    If opTar.Value = True Then
 
        strTar = "SELECT TargetNumber as [Target Number] " & _
                 ",TargetName as [Target Name] " & _
                 ",TargetPrefix as [Target Nickname] " & _
                 ",Count(TargetNumber) as [Number of Events] " & _
                 "FROM [Master$] " & _
                 "GROUP BY TargetNumber, TargetName, TargetPrefix " & _
                 "HAVING TargetNumber = '" & txt_search.Value & "';"
                 
         Set conn = New ADODB.Connection
                    conn.ConnectionString = _
                    "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                    "Data Source=" & strbooK & ";" & _
                    "Extended Properties='Excel 12.0 Xml;HDR=YES';"
                    
                    conn.Open
                    
                    Set reCs = New ADODB.Recordset
                    reCs.ActiveConnection = conn
                    reCs.Source = strTar
                    reCs.Open

        With lbx_reCs
            .BoundColumn = 1
            .ColumnCount = 4
            .ColumnHeads = True
            .TextAlign = fmTextAlignCenter
            .ColumnWidths = "136;136;136;136;"
            .MultiSelect = fmMultiSelectMulti
'            .RowSource = arTar.Address
            .List() = reCs.GetRows
        End With

'Releasing Objects
              reCs.Close
              conn.Close
        
    End If

谢谢

Answer 1

正如标题中所说，您不需要转置记录集的值，只需使用列表框的列属性。

.Column = reCs.GetRows

对于其他问题，您可能会在这里查看。 如果您有像这种情况下的数组，这似乎是不可能的。 另一方面，您可能还想查看上述帖子中的这种解决方案。