返回列表 上一主題 發帖

請問如何每月VBA創建資料夾

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-7-26 19:18 | 顯示全部帖子

請問如何每月VBA創建資料夾

本帖最後由 GBKEE 於 2013-7-27 09:09 編輯

小弟不才想自行製作財務報表，其內容包括日報表、周報表、月報表
想請各位大大幫忙解決的問題如下：
1.利用VBA於每月月初開啟財報檔案時自動創建一個以月份為資料夾名稱之資料夾
2.資料夾每月固定於月初創建一次，內含小弟所製作的日報表、周報表、月報表之空白表單
3.每月所製作的財報記錄自動儲存於該月資料夾中
4.因財報為連續性文件，因此須於每月月初資料夾創建時，自動刷新刪除表格記錄之資料

若有大大能幫忙解決上述之問題，小弟感激萬分!!
收藏 分享
你猜!!

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
2#
發表於 2016-12-14 14:00 | 顯示全部帖子
請問大大Const 表單資料夾 = "D:\"是屬於預設儲存路徑
如何把Const 表單資料夾指定在A1儲存格，讓儲存格在輸入路徑後可以改變儲存路徑
你猜!!

TOP

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
3#
發表於 2016-12-15 09:09 | 顯示全部帖子
可否將GBKEE大大於本篇提出的程式碼稍作修改，條件如下
Option Explicit
'***表單範本.xls (空白表單的活頁簿)-> 因財報為連續性文件，因此須於每月月初資料夾創建時，自動刷新刪除表格記錄之資料
Const 表單資料夾 = "D:\"        '← "D:\" 可否指定儲存格內容(在儲存格內輸入路徑)
Const 表單名稱 = "報表單.xls"   
Sub Auto_Open()
    Dim Fs As Object, xlMonth As String
    xlMonth = 表單資料夾 & Format(Date, "YYYY年MM月財務報表")   '←如何使日期顯示往前一個月，例如本月為2016年12月顯示為2016年11月
    If Dir(xlMonth, vbDirectory) = "" Then MkDir (xlMonth)
    Set Fs = CreateObject("Scripting.FileSystemObject").GetFile(表單資料夾 & "\表單範本.xls")
    If Dir(xlMonth & "\" & 表單名稱) = "" Then Fs.Copy xlMonth & "\" & 表單名稱         
End Sub
你猜!!

TOP

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
4#
發表於 2016-12-15 15:31 | 顯示全部帖子
GBKEE大妳真是神人，有考慮開班授課嗎?我報名
你猜!!

TOP

        靜思自在 : 我們最大的敵人不是別人．可能是自己。
返回列表 上一主題