這是上級部門發給我單位的一個作業表，在他們的電腦上能正常運行，在我單位單位電腦我挨個試遍了都是錯誤438，上級部門是win10+ office2016，我自己用wps2019和office2016分別在won7和win10上都試過，均無法運行，請問是怎么回事？代碼如下：
Sheets("未結件").Select
ActiveWorkbook.Worksheets("未結件").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("未結件").Sort.SortFields.Add2 Key:=Range("H1"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal —這是運行失敗的一行。
With ActiveWorkbook.Worksheets("未結件").Sort
.SetRange Range("A1:L2000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
uj5u.com熱心網友回復：
另外，作業表里其他排序的部分均出現這個錯誤
uj5u.com熱心網友回復：
試驗office的時候要把wps卸載了;uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
把：“Sort.SortFields.Add2 Key:”替換成“Sort.SortFields.Add Key:”。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/21816.html
標籤：VBA
下一篇：匯編語言復制子目錄