VBA , SQL - Transponowanie pobranych danych

Question

Cześć,

Napisałem kilka linijek które mają pomóc mi w pobraniu wyfiltrowanych danych z bazy do listbox'a. Niestety pobrane dane zamiast w postaci wierszy wyświetlają mi się pod postacią kolumn (poniżej pokazałem o co mi chodzi).

Powinno być

a	b	c
a1	b1	c2
a2	b2	c2

 

Jest

a	a1	a2
b	b1	b2
c	c1	c2

Uwzględniłem w kodzie możliwość transponowania array'a który otrzymuję, jednak wyświetla mi się błąd "Run-time error '381': Could not set List property. Invalid property array index". 

Czy jesteście w stanie pomóc mi znaleźć rozwiązanie problemu? Poniżej mój kod (podświetliłem linijkę gdzie jest błąd):

Private Sub filtrSQL()
Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim SQLStr As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim list As Object
Set list = UserForm1.lstData
Server_Name = nazwa serwera
Database_Name = nazwa bazy
SQLStr = "select X1,X2,X3,Opis,Model,isNull(Szer#,'') from [XYZ_database$] where X1 like '%" & UserForm1.cobX1& "%' and X2 like '%" & UserForm1.txtbX2 & "%' and X3 like '%" & UserForm1.cobX3  & "%' and Opis like '%" & UserForm1.txtbOpis & "%' and Model like '%" & UserForm1.txtbModel & "%' and [Szer#] like  '%" & UserForm1.txtbSzer & "%'"
With list
.ColumnHeads = True
.ColumnCount = 6
.ColumnWidths = "100;100;100;100;100;100"
.MultiSelect = fmMultiSelectExtended
Dim arr As Variant
arr = rs.GetRows
.list = Application.WorksheetFunction.Transpose("arr")  ' problematyczna linijka 
End With
rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing

End Sub

 

Wielkie dzięki za pomoc :)
 

Comments

A nie możesz wkleić to w nieużywaną część arkusza, skopiować i wkleić specjalnie z transpozycją? Jeśli miałbyś z tym problem daj znać napiszę jak mógłby wyglądać ten kawałek kodu.

---

Niestety funkcjonalność arkusza i rodzaj filtrowanych danych determinuje, aby proces ten był realizowany bez pośredniego zapisywania danych.

---

Zawsze możesz otworzyć nowy workbook tam wpisać dane, skopiować, wkleić z transpozycją i zaczytać do tablicy w vba i zamknąć arkusz bez zapisywania zmian. Żeby użytkownik tego nie widział wyłączasz odświeżanie ekranu i gotowe.... Inaczej zostanie Ci prawdopodobnie samemu napisać funkcję, która transponuje tablice....

---

Wielkie dzięki za pomysł. Niestety obecnie  czas w jakim wyfiltrowane dane ładują się  do listbox'a jest bardzo długi i powoduje to że narzędzie jest mało pomocne.