[發問] 創立資料夾名稱

　暱稱: 新鮮貨幽杉

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-11-28 10:45 | 顯示全部帖子

我要創立資料夾名子為昨天日期 "MMDD"
如果已經沒有資料夾就新建
以下會產生『&dd』這個資料夾而不是1127 請各位大大幫忙!@@"

複製代碼

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

　暱稱: 新鮮貨幽杉

2^#

發表於 2012-11-28 11:30 | 顯示全部帖子

回復 2# mark15jill

我知道阿= ="但是你拉出來也創建不出來啊你有試過嗎....
所以我才先放進去看大大門怎麼幫我改.......我剛剛已經想到解決的辦法了

Sub 創建文件夾()
Dim dd As Date '宣告為字串
Range("A1") = Date & "製作"
If Dir("F:\已上傳\11月\" & Format(Date - 1, "mmdd") & "自動新建", vbDirectory) <> "" Then
Else
MkDir "F:\已上傳\11月\" & Format(Date - 1, "mmdd") & "自動新建"
End If
End Sub

複製代碼

但是又遇到困難....

我要轉存工作頁去那個資料夾裡面....
又遇到困難不知道如何指定剛剛新增的資料夾並且命名為 up99 (要放在剛剛新增的 1127資料夾裡面)

Sub 轉存()
Dim Str$
Str = "自動化" '可多選工作頁用*區隔
Worksheets(Split(Str, "*")).Copy '複製指定的工作表
gg = Format(Date - 1, "mmdd")
With ActiveWorkbook
.SaveAs [color=Red]"F:\已上傳\11月\" & Format(Date - 1, "mmdd")\, FileFormat:=xlCSV[/color]
.Close '關閉檔案
End With
End Sub