如何使用 VBA 转置通过 QueryTables 导入的值？

Question

I have created a VBA code where it prompts for a CSV file and imports it. However, it imports values as a row. I need them to be imported as a column. How?

I tried setting the Range to $B$2:$B$10 , but that did not help. I tried searching QueryTables for "transpose data on import" directive, but so far have not found one.

Code:

Sub Button_Import_Click()
    
    Dim Ret
    
    Ret = Application.GetOpenFilename("Nameplate File (*.txt), *.txt")
    
    If Ret <> FALSE Then
        With ActiveSheet.QueryTables.Add(Connection:= _
             "TEXT;" & Ret, Destination:=Range("$B$2"))
            .TextFileParseType = xlDelimited
            .RefreshStyle = xlOverwriteCells
            .TextFileCommaDelimiter = TRUE
            .Refresh
            
        End With
    End If
    
End Sub

Data Sample

Filename: text.txt

Data: product,30,370 psi,80 lbs,description,80,March,20,2021

Expectation for Excel:

B2: product
B3: 30
B4: 370 psi
...
B10: 2021

Answer 1

I ended up posting QueryTables result to an empty cell range A20 in this case and then using Transpose to copy over cells to the required location B2:B10

If Ret <> False Then
    With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;" & Ret, Destination:=Range("$A$20"))
    .TextFileParseType = xlDelimited
    .RefreshStyle = xlOverwriteCells
    .AdjustColumnWidth = False
    .TextFileCommaDelimiter = True
    .Refresh

    End With
    
    'Transpose
    Dim DirArray As Variant
    DirArray = Range("A20:I20").Value
    Range("B2:B10").Value = Application.WorksheetFunction.Transpose(DirArray)
    Range("A20:I20").Clear
    
End If