我繼承了一個excel項目，我的任務(wù)是自動化和進(jìn)一步開發(fā) .

用例是

訂單進(jìn)來了

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

相關(guān)信息中的類型(客戶，訂單，數(shù)據(jù)，任務(wù)等)

并將新任務(wù)文件保存在正在執(zhí)行任務(wù)的文件夾中

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

新任務(wù)文件需要具有某個已排序的文件名結(jié)構(gòu) .

我的問題出現(xiàn)在ActiveWorkbook.SaveAs文件名中 .

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

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

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

調(diào)試

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

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

調(diào)試研究說我在SaveAs之前需要一個DoEvents

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

在調(diào)試過程中，我還創(chuàng)建了AfterSave()和Open() . 它們在正常操作期間正常觸發(fā)，但在SaveAs崩潰時失敗 . 例如，當(dāng)我禁用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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。