[發問] 請教一下，建立檔案問題~

各位版上大大好，小弟我有幾個問題，假設我的Sheet1中的A1是"E004128"，我該如何使用VBA，

讓我在另存新檔時，能夠讓存檔名稱顯示為E004128_目前時間(EX.E004128_1010116，明天的話就是E004128_1010117 )呢!?

先謝謝各位大大的回答~感恩!

樓主熱帖

fusayloveme

中學生 Rank: 2

帖子: 46
主題: 12
精華: 0
積分: 72
點名: 0
作業系統: win7
軟體版本: 2007-EXCEL
閱讀權限: 20
性別: 男
註冊時間: 2011-12-29
最後登錄: 2020-3-20

2^#

發表於 2012-1-17 08:51 | 顯示全部帖子

回復 2# jackdream

大大，不好意思~小弟比較愚昧，能否給比較完整的巨集設定，小弟自行嘗試了一下，檔案名稱是改成我要的沒錯喔，但好像無法自動存檔~^^"

先謝謝大大的熱心指導! 感恩^_^

TOP

fusayloveme

中學生 Rank: 2

帖子: 46
主題: 12
精華: 0
積分: 72
點名: 0
作業系統: win7
軟體版本: 2007-EXCEL
閱讀權限: 20
性別: 男
註冊時間: 2011-12-29
最後登錄: 2020-3-20

3^#

發表於 2012-1-17 11:21 | 顯示全部帖子

回復 4# GBKEE

GB大大~我嘗試把您的代碼放進去~後面，但系統說必須要有一個End Sub，請問我該如何解決>< 我真的很新手...

Sub Macro1()
ChDir "C:\Users\hyc\Desktop" 是我用錄製巨集的方式~抓出來的
ActiveWorkbook.SaveAs Filename:="C:\Users\hyc\Desktop" & [A1] & "_" & Format(Date, "emmdd")
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.SaveAs Filename:="C:\Users\hyc\Desktop" & [A1] & "_" & Format(Date, "emmdd")
End Sub

複製代碼

TOP

fusayloveme

中學生 Rank: 2

帖子: 46
主題: 12
精華: 0
積分: 72
點名: 0
作業系統: win7
軟體版本: 2007-EXCEL
閱讀權限: 20
性別: 男
註冊時間: 2011-12-29
最後登錄: 2020-3-20

4^#

發表於 2012-1-17 12:00 | 顯示全部帖子

回復 6# register313

喔喔~了解!~我剛剛嘗試了一下，依照您給的代碼放進去那個" thiswookbook"，儲存出來的檔名格式會多出來"Desktop"，請問該如何解決呢?

另外，其實我想問這個問題的最主要原因，是如果我從ACCESS抓資料下來到EXCEL，我要直接讓電腦...抓取資料、存取資料(儲存的格式就是像我講的那樣，A1_現在時間)，

然後自動化，不曉得這樣有沒有辦法做到，並非是單一個EXCEL作業，然後儲存檔案(因為如果是這樣，自己輸入檔名，可能會快一些..)

先謝謝各位的解答~^_^

TOP

fusayloveme