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

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

11^#

發表於 2012-1-18 11:17 | 只看該作者

回復 10# GBKEE

太感謝大大回復!可惜的是小弟笨拙，不太清楚相關程式碼所代表的意思 ><，我努力嘗試看看~先謝謝大大您的解答~^^

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2012-1-17 14:30 | 只看該作者

本帖最後由 GBKEE 於 2012-1-17 20:37 編輯

回復 9# fusayloveme
試試看

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim E As Workbook, xPath As String
xPath = "C:\Users\hyc\Desktop\"
For Each E In Workbooks 'Workbooks: 物件集合(活頁簿) 中依序處裡 E (活頁簿)
If E.Name <> ThisWorkbook.Name Then '程式所在的活頁簿名稱<>處裡 E (活頁簿)的名稱
'不是程式碼所在的活頁簿
With E.Sheets(1) '活頁簿的第1個工作表
E.SaveAs xPath & .[a1] & Format(Date, "emmdd")
E.Close '活頁簿關閉檔案
End With
End If
Next
End Sub

複製代碼

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

9^#

發表於 2012-1-17 14:05 | 只看該作者

回復 8# GBKEE

感謝GBKEE大~已成功解決困擾~^^"

另外，其實我想問這個問題的最主要原因，就像我7樓所說的那樣，不曉得可否利用巨集做到呢?~謝謝

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2012-1-17 13:51 | 只看該作者

回復 7# fusayloveme
儲存出來的檔名格式會多出來"Desktop"，請問該如何解決呢?

是這樣嗎?
Me.SaveAs Filename:="C:\Users\hyc\Desktop\" & [A1] & "_" & Format(Date, "emmdd")

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

7^#

發表於 2012-1-17 12:00 | 只看該作者

回復 6# register313

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

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

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

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

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

6^#

發表於 2012-1-17 11:36 | 只看該作者

回復 5# fusayloveme

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.SaveAs Filename:="C:\Users\hyc\Desktop" & [A1] & "_" & Format(Date, "emmdd")
End Sub

複製代碼

GBKEE版主之程式碼是要放在ThisWorkbook內

關閉檔案時會自動儲存

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

5^#

發表於 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

複製代碼