返回列表 上一主題 發帖

[發問] 創立資料夾名稱

[發問] 創立資料夾名稱

我要創立資料夾 名子為昨天日期  "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
複製代碼
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

回復 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 也包含在字串內

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

本帖最後由 stillfish00 於 2012-11-28 11:30 編輯

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

TOP

回復 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
複製代碼
紅色為問題點....
請大大門幫忙修改....
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

以解決 = =原來只是沒區隔好....
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

        靜思自在 : 一個人不怕錯,就怕不改過,改過並不難。
返回列表 上一主題