　暱稱: 新鮮貨幽杉

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-11-17 12:54 | 只看該作者

[發問] 如何把活頁簿名稱指定在哪個欄位 (已爬文多日）

我有多個VBA檔
裡面都有些要指定活頁簿名子的
例如
Workbooks.Open Filename:="G:\每月日報表\2012.11\101-11日報表.xlsm"
Workbooks("1113日報表自動算(綜合).xlsm").Activate
每個月都會變  這樣我有辦法把  G:\每月日報表\2012.11\101-11日報表.xlsm 輸入至 sheets("設定區").range("A2")
然後以後我就改A2的欄位裡面的字元嗎
我宣告成 workbooks 也都試過都不行.....到處爬文都沒有人有這個問題....
沒辦法只好向各位大大指導了.....

我的代碼如下

sub 日報表偵測()

'偵測以下活頁簿是否開啟
bookname = "101-11日報表.xlsm"
For Each wbs In Workbooks
If UCase(wbs.Name) = UCase(bookname) Then
      MsgBox bookname & " 已開啟，將自動儲存關閉"
      Workbooks("101-11日報表.xlsm").Activate '切換活頁簿
      ActiveWorkbook.Save '儲存目前使用的活頁簿
      ActiveWorkbook.Close  '關閉活頁簿
      Exit For
End If
Next wbs
end sub

樓主熱帖

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兔年全勤獎章

2^#

發表於 2012-11-18 14:48 | 只看該作者

回復 1# die78325
是這樣嗎?

Sub Ex()
With Workbooks.Open(Filename:="G:\每月日報表\2012.11\101-11日報表.xlsm")
Workbooks("1113日報表自動算(綜合).xlsm").Sheets("設定區").Range("A2") = .Name
End With
End Sub

複製代碼

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

3^#

發表於 2012-11-19 10:09 | 只看該作者

大大抱歉可能是我講的不是很清楚....
我希望的是可不可以把我的檔案名子
101-11日報表.xlsm 或  G:\每月日報表\2012.11\101-11日報表.xlsm
放入儲存格然後利用儲存格例如 ramge("A2") 來替代檔案名
不然我每個月都要進去修改檔名....... 現在是不多但之後可能很多這種狀況@@" 想先克服這個部分
我參考一堆文根範例文  都只有將儲存格內的值替代別種東西就是沒有人替代檔案名或路徑的.....

我試著宣告 dim dd as workbooks
dd=sheets("網頁區").range("A2")
然後把G:\每月日報表\2012.11\101-11日報表.xlsm 貼入A2

這樣也不可行.....  所以我不懂該怎麼來去設定儲存格裡面的是檔名
因為怕以後帳給別人做他會不知道怎麼進去改路徑或檔案名希望能在儲存格裡面做修改
感謝大大熱心回應我~~

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

4^#

發表於 2012-11-19 10:10 | 只看該作者

回復 2# GBKEE

抱歉剛沒點回應......補發一帖如有過失請大大見諒!

大大抱歉可能是我講的不是很清楚....
我希望的是可不可以把我的檔案名子
101-11日報表.xlsm 或  G:\每月日報表\2012.11\101-11日報表.xlsm
放入儲存格然後利用儲存格例如 ramge("A2") 來替代檔案名
不然我每個月都要進去修改檔名....... 現在是不多但之後可能很多這種狀況@@" 想先克服這個部分
我參考一堆文根範例文  都只有將儲存格內的值替代別種東西就是沒有人替代檔案名或路徑的.....

我試著宣告 dim dd as workbooks
dd=sheets("網頁區").range("A2")
然後把G:\每月日報表\2012.11\101-11日報表.xlsm 貼入A2

這樣也不可行.....  所以我不懂該怎麼來去設定儲存格裡面的是檔名
因為怕以後帳給別人做他會不知道怎麼進去改路徑或檔案名希望能在儲存格裡面做修改
感謝大大熱心回應我~~!!!

TOP

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兔年全勤獎章

5^#

發表於 2012-11-19 15:22 | 只看該作者

回復 4# die78325
要多看看 VBA 的說明

我試著宣告 dim dd as workbooks
Workbooks 屬性定傳回 Workbooks 集合，此集合代表所有開啟的活頁簿。唯讀。
Workbook 物件代表 Microsoft Excel 活頁簿。
Workbook 物件是 Workbooks 集合的成員。Workbooks 集合包含目前 Microsoft Excel 中所有開啟的 Workbook 物件。