從偏移量（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天內