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

我有多個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

樓主熱帖

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

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

2^#

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

3^#

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

die78325