執行階段錯誤2147417848 (80010108)

Question

執行階段錯誤2147417848 (80010108)

Polly Huang 0

使用者的影像

執行EXCEL巨集會跳出這個錯誤訊息, 這段程式碼使用很久都沒有問題, 最近才有情況

但不是每台電腦都會這樣, 會跳訊息的電腦也不是每次都會跳

偵錯時停在此段程式碼

0 則留言

2 個回答

您的回答

Answer 1

熱情熄心冷 5,575

如果你經常使用這個巨集，請把 Select / Activate 等移除，改用絕對定址。

避免有多個 Automation 同時存取該物件。

0 則留言

Answer 2

Alvise Cervellati 7,055 獨立顧問

你好，Polly Huang，欢迎加入社区

请问，你能分享一下你的 Move 调试器目前停止的具体代码行吗？

在这种情况下，这种错误的最大特征是它间歇性出现，__且只发生在某些计算机__上。这通常表明你的代码逻辑正常，但与Excel当前内存状态、执行时序、其他后台程序干扰或未限定对象引用发生冲突。这种情况在执行 Move 工作表上的OR方法Copy时尤为常见。

请告诉我这些细节

猫王

Polly Huang 0 信譽點數

2026-07-30T07:36:39.51+00:00

你好, 已用顏色標註停止的代碼行, 在執行圖片的代碼之前, 只做了.PageSetup 及 .Font
Alvise Cervellati 7,055 信譽點數獨立顧問

2026-07-30T07:53:20.6733333+00:00

好，试着用这个代码：

' 1. Move the "TEST" sheet to the front of TEST.xlsm

' Always explicitly state which workbook the sheets belong to

Workbooks("TEST.xlsm").Sheets("TEST").Move Before:=Workbooks("TEST.xlsm").Sheets(1)

' 2. FORCE EXCEL TO CATCH UP

' It tells the OS to process all pending background operations.

DoEvents

Application.ScreenUpdating = True ' Forcing a quick screen refresh can help clear the queue

DoEvents

' 3. Move the array of sheets directly into a new workbook

' Notice we do not need .Select or .Activate beforehand

Workbooks("TEST.xlsm").Sheets(Array("TEST", "Sheet2", "Sheet3")).Move

注意：如果工作表在活跃工作簿中，你可以用替换 Workbooks("TEST.xlsm") ActiveWorkbook。

注意。每次都先备份一下你的文件
Polly Huang 0 信譽點數

2026-07-31T03:50:04.1+00:00

你好, 非常感謝你的代碼, 我這邊測試過還是出現一樣的問題
Alvise Cervellati 7,055 信譽點數獨立顧問

2026-08-01T16:22:25.7266667+00:00

好吧，也许我们需要绕过移动方法，试试这个代码：

Dim wbSource As Workbook

Dim wbNew As Workbook

Dim ws As Worksheet

' Set the reference to your working file

Set wbSource = Workbooks("TEST.xlsm")

' 1. Move "TEST" to the front (Internal moves are usually safe)

wbSource.Sheets("TEST").Move Before:=wbSource.Sheets(1)

DoEvents

' 2. Explicitly create a new workbook

Set wbNew = Workbooks.Add

DoEvents

' 3. COPY the sheets instead of moving them

wbSource.Sheets(Array("TEST", "Sheet2", "Sheet3")).Copy Before:=wbNew.Sheets(1)

' 4. Clean up the new workbook by turning off alerts and deleting default sheets (e.g., "Sheet1")

Application.DisplayAlerts = False

For Each ws In wbNew.Worksheets

' If the sheet name is NOT one of our copied sheets, delete it

If ws.Name <> "TEST" And ws.Name <> "Sheet2" And ws.Name <> "Sheet3" Then

ws.Delete

End If

Next ws

' 5. Delete the original sheets from the source workbook

wbSource.Sheets(Array("TEST", "Sheet2", "Sheet3")).Delete

Application.DisplayAlerts = True