隨手記錄

【EXCEL】- VBA - 設定「自動開啟檔案後自動執行VBA」時，如何編輯|修改其內容

因工作上的需求，需要設定「自動郵件」的功能。因為不會寫程式，故只能用拚湊的方式，來達成這個目的。現在是使用「開啟EXCEL時，在workbook開啟時，執行VBA，並寄出郵件。郵件寄出後，自動關閉該檔案」。

但因為在VBA中有在程式結尾寫到「關閉EXCEL」的功能，所以變成無法去修改此EXCLE或其VBA。

會寫程式的人，應該有很簡的方法來達成。但個人目前想到的做法是建立一個檔案在相同的路徑下，當這個檔案存在時。則達執行VBA，若檔成不存在時，則此VBA就不執行。

原始碼 - 方法一

Private Sub Workbook_Open()

        

    Dim F As Boolean

    Dim TEST As String

    Dim K As Integer

     

    TEST = ThisWorkbook.Path

    F = CreateObject("Scripting.FileSystemObject").FileExists(TEST & "\可執行巨集.txt") '確定有這個檔案，才會去執行

    

    If F = True Then

        Call 用OUTLOOK郵寄

        Application.Quit

    End If
                               

End Sub

原始碼 - 方法二

Private Sub Workbook_Open()
    
      Dim 是否要寄出 As Integer
      Dim 檔案是否存在 As String
      
      是否要寄出 = 0
      
      檔案是否存在 = ActiveWorkbook.Path & "\" & "週報自動郵件判斷.TXT"
      
      If Dir(檔案是否存在) <> Empty Then
      
        是否要寄出 = 1
      
      End If
      
      
      'If Weekday(Now, 2) = 2 And 是否要寄出 = Yes Then
      If 是否要寄出 = 1 Then
        Call 用OUTLOOK郵寄
        Application.Quit
      End If
                  
      
     
End Sub

找到你要的答案了嗎？若是，請別急著走，更不要吝嗇你的掌聲，撥個兩秒鐘，幫忙按個「讚」吧。另外，工商服務的視窗也是很精采的，別忘了多留意一下，是否有你需要的資訊。

賈伯斯說：求知若渴，虛懷若愚。處處留心皆學問，說不定這些精采的廣告，還可以讓你的人生旅途更加的豐富、更加的精采。

① 為了讓下一個查詢資料的人，可以更快速的查詢到正確的資料，如您有其它資訊可提供，或發現以上訊息有誤時，煩請留下訊息，我們將立即更正。

② 以上資料僅供參考，實際費用仍以原始店家公告為準。