返回列表 上一主題 發帖

[發問] 如何指定開啟的Workbook?

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2025-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-7-9 18:05 | 只看該作者

[發問] 如何指定開啟的Workbook?

程式執行前須開啟特定檔案(Analysis.xlsx)再從表單選擇要計算(開啟)的檔案
所以在城市執行過程會有兩個.xlsx檔案開啟，一個是固定檔名(Analysis.xlsx -A檔案)另一個是不定檔名(B檔案)會隨使用者開啟的當案而有所不同
如何讓指定程式現在是要抓取A檔案或B檔案?
我目前的作法是以開啟的順序判別:
Workbooks(2):A檔案     因為有個人活頁簿personal.xls存有巨集
Workbooks(3):B檔案
--------------------------------------------------------------------
因為我的程式是轉存成增益集以便於在不同電腦裡使用
當所使用的電腦裡個人活頁簿personal.xls沒有存巨集則順序會變成
Workbooks(1):A檔案
Workbooks(2):B檔案
所以我將它改成
Set xfile = Workbooks("Analysis")   'Workbooks(2)
但對於B檔案則不知該如何命名為yfile
請大大幫忙解惑
謝謝
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-7-9 21:03 | 只看該作者
回復 1# acdx
在城市執行過程會有兩個.xlsx檔案開啟，一個是固定檔名(Analysis.xlsx -A檔案)另一個是不定檔名(B檔案)會隨使用者開啟的當案而有所不同


    B檔案是用Workbooks.open開啟的吧，你可以在前面開啟B檔案的那時候就去參照它了。
    Dim yfile as WorkBook
    Set yfile = Workbooks.open("B檔案路徑")

TOP

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2025-4-8 
3#
發表於 2013-7-10 10:20 | 只看該作者
回復 2# stillfish00

謝謝!
我將它改成:
Set yfile = Workbooks.Open(TextBox1.Value) (因為檔案路徑由Userform所載入TextBox1)
可成功執行

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題