【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

 

 

 

 


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

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

 

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

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

 

 


arrow
arrow
    文章標籤
    EXCEL VBA
    全站熱搜

    News123 發表在 痞客邦 留言(0) 人氣()