我繼承了一個excel項目，我的任務是自動化和進一步開發 .

用例是

訂單進來了

用戶打開基本(root)excel文件

相關信息中的類型(客戶，訂單，數據，任務等)

并將新任務文件保存在正在執行任務的文件夾中

保留基礎(根)excel basic并為下一個訂單做好準備 .

新任務文件需要具有某個已排序的文件名結構 .

我的問題出現在ActiveWorkbook.SaveAs文件名中 .

當我單步執行(F5)行時，它會完成所有步驟，創建文件名，顯示另存為用戶界面，正確顯示正確的文件夾和建議的文件名，并實際保存文件 . 當我從ErrHandler和最后一個Application.EnableEvents = yes出來時 - 它崩潰了 . 它似乎要么關閉基本文件，打開新文件，要么將活動工作簿傳輸到新的保存文件 .

哪個好，如果它可以停止崩潰 .

If criticalInput then

Msgbox “U been bad, U Shall not PASS!”, vbCritical ‘Not actual text or box showing, just for demo.

Else

Dim fileSaveName As Variant

'### It Crashes after saving (possible at opening)

fileSaveName = Application.GetSaveAsFilename( _

InitialFileName:=tasksfolder & "\" & suggestFilename, _

fileFilter:="Excel-projectmappe med aktive makroer (*.xlsm), *.xlsm")

If fileSaveName False Then

'### here is where you would save your file

DoEvents ‘ Debugging research tells this should be here. Not that is changes anything.

ActiveWorkbook.SaveAs fileSaveName ‘ During dev this has been disabled.

End If ' SaveAs

End If ' criticalInput

ErrHandler:

'## Reset back to default

Application.DefaultFilePath = strDefault

Application.EnableEvents = True

End Sub

調試

如果我禁用SaveAs并且只在base(root)excel文件上工作，我可以很好地保存文件 .

我可以打開新的任務文件并妥善保存 . (只是一個關于覆蓋的錯誤，Y / N)

調試研究說我在SaveAs之前需要一個DoEvents

調試研究也表示只有最相關的參考文獻(在我的情況下取消選擇OLE自動化)

在調試過程中，我還創建了AfterSave()和Open() . 它們在正常操作期間正常觸發，但在SaveAs崩潰時失敗 . 例如，當我禁用SaveAs或正常打開excel書時 .

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

On Error GoTo ErrHandler

If Success Then

Application.EnableEvents = False

'MsgBox "Success save", vbInformation ' for debugging purposes.

End If

ErrHandler:

Application.EnableEvents = True

End Sub

Private Sub Workbook_Open()

'MsgBox "I haz been opened, yehawww", vbInformation ' debugging

End Sub

總結

以上是生活随笔為你收集整理的saveas java_在SaveAs之后Excel崩溃的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。