0

我有以下..

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,显然是所选字体的最小值。

我怎样才能防止这种情况?

4

1 回答 1

0

我不知道为什么 querytables 会更改行高或如何防止它,但我确实设法更改了一些东西,以便将 querytables 结果放在不同的工作表中。将该工作表中的单元格复制到主工作表使行高保持不变。

于 2012-08-15T14:39:49.283 回答