VBA排序行而不打开页面

Question

我的排序代码有问题。 该代码在一个工作簿的不同页面上运行 如果我尝试不先打开页面就进行排序，则脚本会出错。 我想排序而不打开页面。 下面是一张工作表的代码示例：

'Declaration
Dim lastRow As Integer
Dim lastusedcolomb As Integer
'Connection
'compare connection Import
Debug.Print "Connections_Import"
lastusedrow = ActiveWorkbook.Sheets("CompareConnections").Range("A4").End(xlDown).row
lastusedcolomb = ActiveWorkbook.Sheets("CompareConnections").Range("A1").End(xlToRight).Column
numberofitems = lastusedrow - 3
Debug.Print numberofitems
ActiveWorkbook.Sheets("CompareConnections").Range("A4:D" & lastusedrow).Sort key1:=Range("A:D"), Order1:=xlAscending, Header:=xlNo, _
orderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Answer 1

这是您的问题key1:=Range("A:D")- 将其更改为key1:=Sheets("CompareConnections").Range("A:D")