請問如何用儲存格當檔名(VBA) - Excelㄧ般區

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

　暱稱: 温奇
　頭銜: 議論者

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2018-8-9 07:21 | 顯示全部帖子

回復 7# 小路西法

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

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

複製代碼

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。