iT邦幫忙

1

【已解決】EXCEL VBA 另存新檔問題

目前遇到一個另存新檔問題想請教各位老師
我新增一個資料夾檔名為Range("E1"),Range("E1")裡面的字串不固定,新增完資料夾後會刪除
要另存新檔到此資料夾,請各位老師指導指要如何修改呢? 謝謝!

Sub TEST()

    p = Dir("C:\Users\white\OneDrive\桌面\TEST\" & ActiveSheet.Range("E1") & ", vbDirectory")
    On Error Resume Next
    If p = "" Then MkDir ("C:\Users\white\OneDrive\桌面\TEST\" & ActiveSheet.Range("E1"))
    Range("E1").ClearContents
    ActiveWorkbook.SaveAs

End Sub

1 個回答

1
paicheng0111
iT邦高手 1 級 ‧ 2020-06-28 13:52:14
最佳解答

謝謝老師指導,不過我目前還是沒看懂要如何把檔案存到我新增的資料夾內...

Workbook.SaveAs 方法 (Excel)中,FileName參數的說明:

字串,會指出所要儲存的檔案名稱。 您可以在檔案名稱中加入完整路徑;如果不加入路徑,則 Microsoft Excel 會將該檔案儲存到目前資料夾。

但你程式碼的SaveAs後面是空白。

感謝 paicheng0111 老師指導,我已經找到方法可以解了!!感謝您。

我要發表回答

立即登入回答