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

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

1^# 跳轉到 »

發表於 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元的贊助,人人有能力.

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

2^#

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

複製代碼

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

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

3^#

發表於 2016-12-16 19:21 | 顯示全部帖子

回復 7# bear0925900003
我是普通人而已,只是專研VBA比你多一些的時間吧,
開課是你的恭維話,學識尚淺,不敢開課.

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

靜思自在 : 世上有兩件事不能等：一、孝順二、行善。