標題: [發問] 無法自動儲存 [打印本頁]

---

作者: cowww    時間: 2023-4-21 13:28     標題: 無法自動儲存

各位大大
我在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
[attach]36202[/attach]

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

---

作者: cowww    時間: 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

---

作者: cowww    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)