从偏移量（VBA）中选择Excel工作表中的所有单元格

Question

所以我正在从访问数据库创建一个excel报告。所以这是在访问VBA中完成的。

这是我的代码：

Public Sub ExportActiveSheet()

   'irrelevant data


   'get the info
   ExcelSheet.Range("A3").CopyFromRecordset rs




   Set rs = Nothing
End Sub

所以现在，正如你所看到的......我的记录集被复制到从A3开始的范围。我有一个未知数量的列（现在，用户可以选择1列到36列，但这可以增长。再次，这应该是无关紧要的）。

我想选择从A3到工作表结尾的所有内容（或者，更好的是只有有数据的行）并更改行高。

我试过了：

    ExcelSheet.Range(Cells(3, 1), Cells(10000, 40)).Select
    With ExcelApp.Selection
        .RowHeight = 22.5
    End With

但是它给了我一个Method Range of object _worksheet failed错误

Answer 1

你总是可以尝试：

ActiveSheet.Range("A3:A" & ActiveSheet.UsedRange.Rows.Count).Select

With Selection
     .RowHeight = 20
End With

Answer 2

 With ExcelSheet
        .Cells.RowHeight = 22.5
        .Cells.Font.name = "Ariel"
        .Cells.Font.Size = 8.5
end with

然后我只是将内容（标题，标题）更改为我想要的内容。更容易。 我会在2天内将自己的答案标记为正确答案