[發問] 無法自動儲存

各位大大
我在full_calc的檔案寫開啟 "LF每日模具異動.xlsm"，開啟後關閉檔案
Sub full_calc()

'開啟LF每日模具異動
L = "\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\模具異動-六福(急件1.9專用)\"
Workbooks.Open (L & "LF每日模具異動.xlsm")

'關閉LF每日模具異動
Workbooks("LF每日模具異動.xlsm").Close

End Sub

在LF每日模具異動的This workboook->Workbook_BeforeClos底下寫儲存的語法
檔案關掉之後發現並沒有儲存
但是如果是單獨開啟"LF每日模具異動.xlsm"檔案再關掉卻有儲存

我以為是因為檔案關太快導致來不及儲存
所以再寫一段延遲五秒關閉
結果還是沒有儲存
Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.Save

Application.Wait Now + TimeValue("0:00:05")
End Sub

請問論壇的大大們
是否有方法可以解決這個辦法??

樓主熱帖

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

2^#

發表於 2023-4-21 14:02 | 只看該作者

回復 1# cowww
語法給的有誤
Sub full_calc()

Application.DisplayAlerts = False

'開啟LF每日模具異動
L = "\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\模具異動-六福(急件1.9專用)\"
Workbooks.Open (L & "LF每日模具異動.xlsm")

'關閉LF每日模具異動
Workbooks("LF每日模具異動.xlsm").Close

Application.DisplayAlerts = True

End Sub

TOP

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

3^#

發表於 2023-4-21 15:01 | 只看該作者

回復 2# cowww

我測試出來了
在close之前在加句save
Sub open_Click()

Application.DisplayAlerts = False

'開啟LF每日模具異動
L = "\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\模具異動-六福(急件1.9專用)\"
Workbooks.Open (L & "LF每日模具異動.xlsm")
'儲存LF每日模具異動
Workbooks("LF每日模具異動.xlsm").Save
'關閉LF每日模具異動
Workbooks("LF每日模具異動.xlsm").Close

Application.DisplayAlerts = True

End Sub

TOP