返回列表 上一主題 發帖

[發問] 另存新檔時,若沒此資料夾。用vba建立資料夾,可指定路徑嗎?

[發問] 另存新檔時,若沒此資料夾。用vba建立資料夾,可指定路徑嗎?

以下是我的代碼,但如果2這個資料夾不在時,如何讓他自動建立2這個資料夾然後存檔?
但我使用的檔案為唯讀檔,和我要建立2的資料夾位置不同。
不知有辦法嗎

Sub 另存csv不會改到檔名()
Application.DisplayAlerts = False
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ChDir "\\172.168.5.4\0825\2"   '建立在共用網頁碟碟
    ActiveWorkbook.SaveAs Filename:= _
        "\\172.168.5.4\0825\2\Book2.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
    ActiveWindow.Close
End Sub

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候,卻被這種隨心所欲的自由蒙蔽,虛擲時光而毫無覺知。
返回列表 上一主題