从偏移量(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
错误
答
你总是可以尝试:
ActiveSheet.Range("A3:A" & ActiveSheet.UsedRange.Rows.Count).Select
With Selection
.RowHeight = 20
End With
答
With ExcelSheet
.Cells.RowHeight = 22.5
.Cells.Font.name = "Ariel"
.Cells.Font.Size = 8.5
end with
,然后我只是改变了的东西(标题,标题)到我想要的东西。更容易。 我将迎来我自己的答案是正确的在2天内