[發問] 創立資料夾名稱

die78325

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

1. Sub 創建資料夾()
   
2. Dim dd As DATE '宣告為字串
   
3. dd = Date - 1
   
4. Range("A1") = dd & "製作"
   
5. f = Dir("F:\已上傳\11月\ & dd", vbDirectory) '判斷是否存在
   
6. If f = "" Then MkDir ("F:\已上傳\11月\ & dd") '如果不存在就建立
   
7. End Sub

複製代碼

die78325

以解決 = =原來只是沒區隔好....

die78325

回復 2# mark15jill


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

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

複製代碼

但是又遇到困難....

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

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

複製代碼

紅色為問題點....
請大大門幫忙修改....

stillfish00

回復 1# die78325
樓上已說明放錯位置
另外 資料夾不能含斜線"/" , 可變換Date的字串格式
format(dd,"mmdd")

mark15jill

回復 1# die78325


    Sub 創建資料夾()

Dim dd As DATE '宣告為字串

dd = Date - 1

Range("A1") = dd & "製作"

f = Dir("F:\已上傳\11月\" & dd, vbDirectory) '判斷是否存在

If f = "" Then MkDir ("F:\已上傳\11月\" & dd) '如果不存在就建立

End Sub

"------------------------------------------------------------------"
& dd " 是把 & ddd 也包含在字串內