वेब पेज से एक्सेल में टेबल निकालते समय डेटा को लंबवत कैसे जोड़ें

मेरा कोड

Public Sub Raju()         
Dim alertTime As Date
alertTime = Now + TimeValue("0:05:00")        
'
' mymacro Macro        
'
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")  
Dim usedRows As Long
usedRows = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row     
With ws.QueryTables.Add(Connection:= _"URL", Destination _:=ws.Range(Cells(1, 1), Cells(usedRows, 1)))

अब तालिका क्षैतिज दिशा में अद्यतन की गई है
लेकिन मैं खड़ी की जरूरत है

microsoft-excel-2007 vba

— Raj
स्रोत

यदि आपने इसे हल कर लिया है तो अपना समाधान पोस्ट करें

— Raystafarian