編譯錯誤，同時聲明關閉

平臺：Microsoft Visual Basic 6.5和MS Excel 2007編譯錯誤，同時聲明關閉

我想做一個宏來做一些excel啓用文件的編輯。完成關於如何關閉Excel文件而不保存的研究。在我可以使用該方法之前，webpage教我放置聲明。我插入複製命令並嘗試編譯。編譯錯誤，預計結束語句。任何人都知道聲明有什麼問題？

Public Overridable Sub Close (_ 
    <OptionalAttribute> SaveChanges As Object, _ 
    <OptionalAttribute> Filename As Object, _ 
    <OptionalAttribute> RouteWorkbook As Object _ 
) 

Private Sub WorkbookClose() 
    Me.Close(False, False) 
End Sub

來源

2013-04-03 Leon

快速的問題。你爲什麼要這樣關閉工作簿。你如何打開這本工作手冊？手動或通過代碼？ –

如果它的宏在excel中將以下代碼複製到本工作簿代碼部分。

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    Me.Close False 
End Sub

enter image description here

來源

2013-04-03 06:08:15 Santosh

HiHi Santosh。謝謝。這是我需要的功能。謝謝很多=） – Leon

@Leon歡迎:-) – Santosh

Santosh我希望你看到這個味精，我想寫類似的功能的話... 我使用了上面提到的相同的方法，並將Me.Close False與以下編碼但不能工作... 試圖使用 1）Me.close 2）Me.close（假） 3）ActiveDocument.Close 4）ActiveDocument.Close（假） 5）ActiveDocument.Quit 6）Application.Quit（False） 7）Application.Close 8）ActiveDocument.Close SaveChanges：= wdDoNotSaveChanges – Leon

上「的ThisWorkbook」，並雙擊輸入以下代碼：

Option Explicit 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 

    Cancel = True 
    MsgBox "Save Is Not Allowed" 

End Sub

來源

2013-04-03 09:02:47

Thx波特，雖然這不是我需要的腳本。感謝參考。 – Leon

編譯錯誤，同時聲明關閉

回答

相關問題