QueryTables.Add更改行高

Question

我有以下内容..

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

在执行之后，所讨论的行的高度从最初的15到11.25修改为显然是所选字体的最小值。

我该如何防止这种情况？

Answer 1

我不知道为什么querytables会改变行高或如何防止它，但我确实设法改变了一些事情，以便将查询表结果放在不同的工作表中。将单张格中的单元格复制到主页面会使行高不变。