返回列表 上一主題 發帖

新增資料夾問題詢問

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-3-5 11:31 | 只看該作者

新增資料夾問題詢問

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

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2018-3-6 09:20 | 只看該作者
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
羅

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題