office更新後Excel巨集執行發生執行階段錯誤:2147417848 (80010108)錯誤

Question

office更新後Excel巨集執行發生執行階段錯誤:2147417848 (80010108)錯誤

匿名

如題，該主機設定可以兩個Windows帳號登入，但其中一個windows帳號登入後執行巨集都會發生「執行階段錯誤:2147417848 (80010108)」，另一個windows帳號就不會發生，且該巨集在其他電腦執行都是正常的，想詢問該問題要如何解決？

VBA語法如下：

ActiveWorkbook.Worksheets("TABLE0").sort.SortFields.Add Key:=Range("AT2:AT200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

鎖定的問題。此問題已從 Microsoft 支援服務社群移轉。您可以對其是否有幫助進行投票，但無法對問題新增註解或回覆，或進行追蹤。

0 則留言

由問題作者接受的回答

匿名

從註冊表刪除這個資料夾。
電腦\HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Excel

0 則留言

5 個其他答案

Answer 1

完整語法是如下，經查找後兩個帳號語系跟排序規則設定都一樣，而且這個巨集在這兩個帳號(都是管理者權限)執行兩年多

到兩週前Windows跟office更新後，一個帳號突然執行該巨集就出錯，所以想問是什麼原因造成

Sub sort()

'

' sort 巨集

'

ActiveWorkbook.Worksheets("TABLE0").sort.SortFields.Clear 

ActiveWorkbook.Worksheets("TABLE0").sort.SortFields.Add Key:=Range("AT2:AT200") \_ 

    , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal 

ActiveWorkbook.Worksheets("TABLE0").sort.SortFields.Add Key:=Range("AS2:AS200") \_ 

    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 

With ActiveWorkbook.Worksheets("TABLE0").sort 

    .SetRange Range("A1:AT200") 

    .Header = xlYes 

    .MatchCase = False 

    .Orientation = xlTopToBottom 

    .SortMethod = xlPinYin 

    .Apply 

End With

End Sub

Answer 2

匿名

不同帳號是否設定了不同語系或排序規則？因為看起來這段指令只用到排序。

0 則留言

Answer 3

匿名

已經私訊您，再麻煩您看一下

0 則留言

Answer 4

匿名

是否方便共用一個文件調試代碼？

私信可以傳送附件

0 則留言