我试图按特定列的数据降序排序7行 excel电子表格中的数据如下所示:
Name---Actual----Budget---Budget%
Name1--$2000-----$5000--------40%
Name2--$5000-----$4000-------110%
等...
我想按“预算%”列按降序排序。
我到目前为止的守则是:
Dim objExcel As New Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objSheet As Excel.Worksheet
objExcel.WindowState = Excel.XlWindowState.xlMinimized
objExcel.Visible = False
objWorkbook = objExcel.Workbooks.Open("C:\LLG\template.xlsx")
objSheet = objWorkbook.Worksheets(1)
'CODE HERE PLACES DATA INTO CELLS ON SPREADSHEET
objSheet.Rows.Sort(column(4))
我遗漏了将数据放入单元格的代码,因为它运行正常,只是objsheet.rows.sort(第(4)行)完全错误。
非常感谢任何帮助。
答案 0 :(得分:0)
你可能需要第二个参数来指定降序
xlDescending
我认为您需要指定要应用排序的范围,例如
Set objRange = objsheet.UsedRange
Set objRange2 = objExcel.Range("D1")
objRange.Sort objRange2, xlDescending