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 に答える