帖子: 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.因財報為連續性文件，因此須於每月月初資料夾創建時，自動刷新刪除表格記錄之資料

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

樓主熱帖

你猜!!

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-7-27 09:08 | 只看該作者

回復 1# bear0925900003
試試看

Option Explicit
'***表單範本.xls (空白表單的活頁簿)-> 因財報為連續性文件，因此須於每月月初資料夾創建時，自動刷新刪除表格記錄之資料
Const 表單資料夾 = "D:\" '請製作 **** D:\表單範本.xls (空白表單) *********
Const 表單名稱 = "報表單.xls" '月報表活頁簿名稱
Sub Auto_Open() '一般模組(Module1) 開啟檔案自動執行的程序
Dim Fs As Object, xlMonth As String
xlMonth = 表單資料夾 & Format(Date, "YYYYMMDD 財務報表") '每月的資料夾
If Dir(xlMonth, vbDirectory) = "" Then MkDir (xlMonth) 'vbDirectory 16 除無屬性的檔案外，另指定路徑或檔案夾。
Set Fs = CreateObject("Scripting.FileSystemObject").GetFile(表單資料夾 & "\表單範本.xls")
If Dir(xlMonth & "\" & 表單名稱) = "" Then Fs.Copy xlMonth & "\" & 表單名稱 '複製表單範本(空白表單) 改名為 "報表單.xls"
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

bear0925900003

中學生 Rank: 2

帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

3^#

發表於 2016-12-14 14:00 | 只看該作者

請問大大Const 表單資料夾 = "D:\"是屬於預設儲存路徑
如何把Const 表單資料夾指定在A1儲存格，讓儲存格在輸入路徑後可以改變儲存路徑

你猜!!

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2016-12-15 05:44 | 只看該作者

回復 3# bear0925900003
請將你的檔案上傳，以方便解題者之詮釋，
謝謝。

TOP

bear0925900003

中學生 Rank: 2

帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

5^#

發表於 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2016-12-15 10:00 | 只看該作者

回復 5# bear0925900003
試試看

Option Explicit
'***表單範本.xls (空白表單的活頁簿)-> 因財報為連續性文件，因此須於每月月初資料夾創建時，自動刷新刪除表格記錄之資料
'Const 表單資料夾 = "D:\" '← "D:\" 可否指定儲存格內容(在儲存格內輸入路徑)
'Const 表單名稱 = "報表單.xls"
Sub Auto_Open()
Dim Fs As Object, xlMonth As String, 表單資料夾 As String, 表單名稱 As String
表單資料夾 = ActiveSheet.Range("A1") ' 也可以指定 **表單資料夾 = Sheets("Sheet1").Range("A1")
表單名稱 = ActiveSheet.Range("A2") ' 也可以指定 **表單名稱 = Sheets("Sheet1").Range("A2")
xlMonth = 表單資料夾 & Format(Date, "YYYY年MM月財務報表") '←如何使日期顯示往前一個月，例如本月為2016年12月顯示為2016年11月
If Dir(xlMonth, vbDirectory) = "" Then MkDir (xlMonth)
Set Fs = CreateObject("Scripting.FileSystemObject").GetFile(表單資料夾 & "\" & 表單名稱)
If Dir(xlMonth & "\" & 表單名稱) = "" Then Fs.Copy xlMonth & "\" & 表單名稱
End Sub