参考:https://docs.microsoft.com/zh-cn/office/vba/api/excel.range.sort?redirectedfrom=MSDN
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\12.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Columns("A:D")
Rg.sort(key1:=Ws.Range("B2"),header:= MSExcel.XlYesNoGuess.xlYes,Orientation:= MSExcel.XlSortOrientation.xlSortColumns)
App.Visible = True