返回列表 上一主題 發帖

[發問] 請問如何用儲存格當檔名(VBA)

[發問] 請問如何用儲存格當檔名(VBA)

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

  1. ActiveWorkbook.SaveAs Filename:=filepath  & "/" & range("A1")
複製代碼

TOP

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

TOP

Filepath = "C:/AAA"

TOP

回復 4# a5007185
1533632723182.jpg
2018-8-7 17:06

不好意思~可是會出現錯誤!!請幫忙修正錯誤

TOP

  1. ActiveWorkbook.SaveAs Filename:="C:\User\Eternity\Desktop\新資料夾 (3)\" & Range("F1")
複製代碼
你試試看,
其實我FilePath代表字串變數方便你改檔案位置。

TOP

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

TOP

回復 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
複製代碼
尋龍分金看纏山,一重纏是一重關,關門如有八重險,不出陰陽八卦形。

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題