返回列表 上一主題 發帖

[發問] 無法自動儲存

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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


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

cowww

帖子
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

帖子
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

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題