彰化一整天的論壇

 找回密碼
 立即註冊
查看: 164|回復: 3

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

[複製鏈接]
發表於 2020-6-27 19:20:10 | 顯示全部樓層 |閱讀模式
本帖最後由 零下28度 於 2020-6-28 17:26 編輯

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


  1. Sub TEST()

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

  7. End Sub
複製代碼


回復

使用道具 舉報

發表於 2020-6-28 15:28:18 | 顯示全部樓層
您好,
   請問您另存的檔案名稱及副檔名是什麼?您要在清除之前先將Range("E1")的值存到變數。
  1. Sub TEST()

  2.     p = Dir("C:\Users\white\OneDrive\桌面\TEST\" & ActiveSheet.Range("E1") & ", vbDirectory")
  3.     On Error Resume Next
  4.     If p = "" Then MkDir ("C:\Users\white\OneDrive\桌面\TEST\" & ActiveSheet.Range("E1"))
  5.     p = "C:\Users\white\OneDrive\桌面\TEST\" & ActiveSheet.Range("E1")
  6.     Range("E1").ClearContents
  7.     ActiveWorkbook.SaveAs p & "\活頁簿1.xlsm"

  8. End Sub
複製代碼
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2020-6-28 16:19:13 | 顯示全部樓層
imingho 發表於 2020-6-28 15:28
您好,
   請問您另存的檔案名稱及副檔名是什麼?您要在清除之前先將Range("E1")的值存到變數。
...

我不修改檔名,就用原始檔名,副檔名是.xlsx
可是我使用 ActiveWorkbook.SaveAs p 這行就沒有存檔。
可能是我說的不夠清楚,
我原本的作用是使用一顆巨集按鍵,去開啟一個xlsx檔案,自動修改後要到特定路徑新增資料夾及另存新檔
這樣我就不需要手動去新增資料夾以及存檔動作。
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2020-6-28 16:36:59 | 顯示全部樓層
本帖最後由 零下28度 於 2020-6-28 17:25 編輯
imingho 發表於 2020-6-28 15:28
您好,
   請問您另存的檔案名稱及副檔名是什麼?您要在清除之前先將Range("E1")的值存到變數。
...

感謝 #imingho 老師指導,目前我的問題已解決了,謝謝您。
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2020-7-12 11:24 , Processed in 0.115821 second(s), 20 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表