標題: [發問] 請問如何用儲存格當檔名(VBA) [打印本頁]

---

作者: 小路西法    時間: 2018-8-7 11:58     標題: 請問如何用儲存格當檔名(VBA)

如題~想請問各位前輩~我想用VBA分別儲存數個檔案~那要如何以各個檔案中其中一個固定的儲存格當檔名~

---

作者: a5007185    時間: 2018-8-7 12:52

1. ActiveWorkbook.SaveAs Filename:=filepath  & "/" & range("A1")

複製代碼

---

作者: 小路西法    時間: 2018-8-7 15:58

回復 2# a5007185
感謝前輩的指導~想再請教~如果我要指定儲存到某個特定的地方(譬如C槽的AAA檔案夾)該如何做!!感謝

---

作者: a5007185    時間: 2018-8-7 16:56

Filepath = "C:/AAA"

---

作者: 小路西法    時間: 2018-8-7 17:08

回復 4# a5007185 [attach]29159[/attach]
不好意思~可是會出現錯誤!!請幫忙修正錯誤

---

作者: a5007185    時間: 2018-8-7 17:30

1. ActiveWorkbook.SaveAs Filename:="C:\User\Eternity\Desktop\新資料夾 (3)\" & Range("F1")

複製代碼

你試試看，
其實我FilePath代表字串變數方便你改檔案位置。

---

作者: 小路西法    時間: 2018-8-7 19:20

回復 6# a5007185
非常感謝~已可順利執行~省下小弟不斷重複動作的時間~{:2_37:}

---

作者: faye59    時間: 2018-8-9 07:21

回復 7# 小路西法


    我是這樣改的，可以參考看看。

1. Dim xlsmApp As New Excel.Application
   
2. Dim Fs , Date1 As String,Fss As Long
   
3. Fs = Dir("\\資料夾路徑\") '讀取路徑目全部檔案名稱
   
4. Do Until Fs = "": If Fs = Date1 & ".xlsx" Then Fss = 1'檔案已存在Fss=1
   
5. Fs = Dir
   
6. Loop
   
7. If Fss <> 1 Then
   
8. xlsmApp.Visible = False
   
9. xlsmApp.Workbooks.Add
   
10. xlsmApp.Workbooks(1).SaveAs ("\\資料夾路徑\" & Date1 & ".xlsx") 'Date1字串檔名，我做為日期變數建檔，你可以改成Range("F1")指定儲存格
    
11. xlsmApp.Quit
    
12. Set xlsmApp = Nothing
    
13. End If

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)