- 帖子
- 526
- 主題
- 56
- 精華
- 0
- 積分
- 604
- 點名
- 100
- 作業系統
- win 10
- 軟體版本
- []
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-3-19
- 最後登錄
- 2025-4-29
           
|
回復 1# 准提部林
請版大指導
回復 18# nicole1012
參考看看, 把 & ".xls" 改為 & aVerXLS
找到 Sub 總分類帳_製作()
If MsgBox("※〔總分類帳〕製作內容： " & Chr(10) & Chr(10) & _
"■檔案名稱 ： " & eFileName & ".xls" & Chr(10) & Chr(10) & _
.
'製作完成的分類帳儲存成 xls .
LinkBook.SaveAs AccBook.Path & "\" & eFileName & ".xls": beep
MsgBox "《總分類帳》製作完成 "
1. End Sub
修改成下列
Sub 總分類帳_製作()
.
. If MsgBox("※〔總分類帳〕製作內容： " & Chr(10) & Chr(10) & _
"■檔案名稱 ： " & eFileName & aVerXLS & Chr(10) & Chr(10) & _
.
. '取得工作黨內清單設定版本設定
LinkBook.SaveAs AccBook.Path & "\" & eFileName & aVerXLS: beep
MsgBox "《總分類帳》製作完成 "
.
. 1:End Sub |
|
發表於 2025-4-19 06:33
| 
