QueryTables.Add更改行高

Question

I have the following..

With ActiveSheet.QueryTables.Add(Connection:="URL;" & qurlname, Destination:=DataSheet.Range(Cells(row_stock + iMax, 29), Cells(row_stock + 199, 29)))
    .BackgroundQuery = True
    .TablesOnlyFromHTML = False
    .Refresh BackgroundQuery:=False
    .SaveData = True
End With

After excution, the rows in question have their height modified from what was originally 15 to 11.25 evidently the minimum for the selected font.

How can I prevent this?

Answer 1

I have no idea why querytables changes the row heights or how to prevent it but I did manage to change things so that the querytables results were placed in a different worksheet. Copying the cells from that sheet to the main sheet left the row height unchanged.