以下是我的代碼，但如果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 |
發表於 2010-8-26 22:32
| 
