【已解決】EXCEL VBA 另存新檔問題 - iT 邦幫忙::一起幫忙解決難題，拯救 IT 人的一天

1

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

#excel #vba excel vba

whitejason05 2020-06-27 20:57:35 ‧ 11564 瀏覽

分享至

目前遇到一個另存新檔問題想請教各位老師
我新增一個資料夾檔名為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

登入發表討論

直播研討會

{{ item.subject }}

{{ item.channelVendor }} {{ item.webinarstarted }} |

{{ formatDate(item.duration) }}

直播中

1 個回答

1

paicheng0111

iT邦大師 5 級 ‧ 2020-06-28 13:52:14

最佳解答

回應 3
分享
檢舉

whitejason05 iT邦新手 5 級 ‧ 2020-06-28 14:27:55 檢舉

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

paicheng0111 iT邦大師 5 級 ‧ 2020-06-28 20:03:34 檢舉

在Workbook.SaveAs 方法 (Excel)中，FileName參數的說明：

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

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

whitejason05 iT邦新手 5 級 ‧ 2020-06-28 23:01:12 檢舉

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

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22195 篇

完賽人數

600 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙