VBA Excel的：排序其他工作簿

Question

當excel宏無法打開新工作表時，排序命令起作用。 如果excel宏試圖操作由宏打開的工作表，則相同的排序命令將不起作用。

With ActiveWorkbook.Worksheets("Sheet").Sort
  .SetRange Range("A1:D" & replacementRow - 1)
  .Header = xlNo
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
End With

用於打開工作簿的語句

Workbooks.Open (Cells(1, 1))

Answer 1

我假設您有一個指向Cell（1,1）中工作簿的鏈接？ 如果是這樣，請嘗試：

Dim wb As Workbook
Set wb = Workbooks.Open(Cells(1, 1))

With wb.Worksheets("Sheet1").Sort
  .SetRange Range("A1:D" & replacementRow - 1)
  .Header = xlNo
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
End With