0

並べ替えコマンドは、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))
4

1 に答える 1

1

セル (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
于 2012-11-11T17:32:21.740 に答える