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

因此，我从访问数据库创建Excel报表。所以这是在访问VBA中完成的。从偏移量（VBA）中选择Excel表格中的所有单元格

这里是我的代码：

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错误

来源

2010-07-05 masfenix

你总是可以尝试：

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

With Selection 
    .RowHeight = 20 
End With

来源

2010-07-06 09:46:31 Trefex

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

，然后我只是改变了的东西（标题，标题）到我想要的东西。更容易。 我将迎来我自己的答案是正确的在2天内

来源

2010-07-05 19:28:19 masfenix

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

回答

相关问题