新增資料夾問題詢問

rouber590324

DEAR  ALL  大大
1.如圖一為指定資料夾下要新增名稱為 Sheet1.Range("A1")  之EXCEL檔案
2.小弟想於 各區早會DATA\ 下先新增一名稱為  Sheet1.Range("A1")  之資料夾
    後再於 Sheet1.Range("A1")  資料夾下新增名稱為Sheet1.Range("A1")  之EXCEL檔案
2.1 請教如何新增名稱為 Sheet1.Range("A1")  之資料夾.
2.2 煩不吝賜教   THANKS*10000

圖一
Sub 新增EXCEL()
    Range("A1").Select
    Application.DisplayAlerts = False '關
    Workbooks.Add
    ChDir "\\Pcbfs02\C701\產設早會會議記錄輸入系統"
    ActiveWorkbook.SaveAs Filename:= _
        "\\Pcbfs02\C701\產設早會會議記錄輸入系統\各區早會DATA\" & Sheet1.Range("A1") & " .xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWindow.Close
    Range("A1").Select
End Sub

rouber590324

DEAR  ALL   SIRS
已找到答案如下   THANKS

Sub 創建資料夾()
f = Dir("C:\Users\N000017371\Desktop\ROUBER\" & Sheet1.Range("A1") & ", vbDirectory") '判斷是否存在
On Error Resume Next
If f = "" Then MkDir ("C:\Users\N000017371\Desktop\ROUBER\" & Sheet1.Range("A1")) '如果不存在就建立
End Sub