返回列表 上一主題 發帖

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

小路西法

帖子
32 
主題
8 
精華
0 
積分
71 
點名
0  
作業系統
WINDOWS7 
軟體版本
.. 
閱讀權限
20 
註冊時間
2016-6-20 
最後登錄
2020-10-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-8-7 11:58 | 只看該作者

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

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

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-8-7 12:52 | 只看該作者
  1. ActiveWorkbook.SaveAs Filename:=filepath  & "/" & range("A1")
複製代碼

TOP

小路西法

帖子
32 
主題
8 
精華
0 
積分
71 
點名
0  
作業系統
WINDOWS7 
軟體版本
.. 
閱讀權限
20 
註冊時間
2016-6-20 
最後登錄
2020-10-30 
3#
發表於 2018-8-7 15:58 | 只看該作者
回復 2# a5007185
感謝前輩的指導~想再請教~如果我要指定儲存到某個特定的地方(譬如C槽的AAA檔案夾)該如何做!!感謝

TOP

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2018-8-7 16:56 | 只看該作者
Filepath = "C:/AAA"

TOP

小路西法

帖子
32 
主題
8 
精華
0 
積分
71 
點名
0  
作業系統
WINDOWS7 
軟體版本
.. 
閱讀權限
20 
註冊時間
2016-6-20 
最後登錄
2020-10-30 
5#
發表於 2018-8-7 17:08 | 只看該作者
回復 4# a5007185
不好意思~可是會出現錯誤!!請幫忙修正錯誤

TOP

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
6#
發表於 2018-8-7 17:30 | 只看該作者
  1. ActiveWorkbook.SaveAs Filename:="C:\User\Eternity\Desktop\新資料夾 (3)\" & Range("F1")
複製代碼
你試試看，
其實我FilePath代表字串變數方便你改檔案位置。

TOP

小路西法

帖子
32 
主題
8 
精華
0 
積分
71 
點名
0  
作業系統
WINDOWS7 
軟體版本
.. 
閱讀權限
20 
註冊時間
2016-6-20 
最後登錄
2020-10-30 
7#
發表於 2018-8-7 19:20 | 只看該作者
回復 6# a5007185
非常感謝~已可順利執行~省下小弟不斷重複動作的時間~{:2_37:}

TOP

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
8#
發表於 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
複製代碼
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題