whitejason05 wrote:
要另存新檔到此資料,請各位老師指導指要如何修改呢?
幫你修改如下:
Sub TEST()
save_name = ActiveSheet.Name '檔案名稱,預設使用現有不更改
save_path = "C:\Users\white\OneDrive\桌面\TEST\" & ActiveSheet.Range("E1") '要將檔案新增到的資料夾位置
p = Dir(save_path, vbDirectory) '檢查資料夾狀況
On Error Resume Next
If p = "" Then MkDir (ActiveSheet.Range("E1")) '若資料夾不存在就新增
Range("E1").ClearContents '刪除資料夾資訊
ActiveWorkbook.SaveAs Filename:=save_path & "\" & save_name, FileFormat:=xlExcel8 '存檔,xlExcel8是「xls」格式,可自行變更所需
MsgBox "存檔完成。"
End Sub
提醒一下,你原本的 p = Dir("C:\Users\white\OneDrive\桌面\TEST\" & ActiveSheet.Range("E1") & ", vbDirectory") ,語法有錯。(連接組合的結果就有問題)
然後,這個 On Error Resume Next 要盡量慎用,因為發生錯誤時沒有提醒(直接進行下一行),所以有錯你也不知是哪行錯誤,建議在設計修改階段,可以註解掉這行。(這樣測試時才會有錯誤提醒)~~或者不註解,但要另做錯誤的處理回饋(以便提醒使用者,哪裡出錯了)。
以上,提供你參考。