返回列表 上一主題 發帖

(已解決)vba可以不要指定檔案名稱嗎?

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-14 20:28 | 只看該作者

(已解決)vba可以不要指定檔案名稱嗎?

本帖最後由 freeffly 於 2012-2-22 17:08 編輯

Application.Run "'實際與預算比-業務用9906.xls'!累計的公式_貢獻金額"

   實際與預算比-業務用9906.xls這個檔案是執行的檔案(run的就是檔案本身的程序)
   這各檔案的名稱每個月都會變，有什麼寫法可以不要每次都去改這句程式碼嗎?
收藏 分享
字典兩各字 還真難理解

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2010-7-14 20:47 | 只看該作者
Application.Run "'實際與預算比-業務用9906.xls'!累計的公式_貢獻金額"

   實際與預算比-業務用9906.xl ...
freeffly 發表於 2010-7-14 20:28


假如日期數值放在 "A1" 的格
        Application.Run "'實際與預算比-業務用" & Range("A1") & ".xls'!累計的公式_貢獻金額"

如果a1 的是 9902, 運行時上一句的文字會變成:
        Application.Run "'實際與預算比-業務用9902.xls'!累計的公式_貢獻金額"
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
3#
發表於 2010-7-14 22:33 | 只看該作者
還有這種用法喔
不過我原本是想說能不能以ACTIVE的方式執行
像執行中的工作表就是Activesheets
執行中的檔案不知道能不能這種寫法?
字典兩各字 還真難理解

TOP

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
4#
發表於 2010-7-14 22:43 | 只看該作者
本帖最後由 victorl 於 2010-7-14 22:52 編輯

回復 1# freeffly


    既然是執行中的檔案，試試看用 "ActiveWorkbook.Name" 取值
Application.Run (ActiveWorkbook.Name & "!累計的公式_貢獻金額")
另外，並非調用其他檔案的巨集 or 函數，直接呼叫就可以了吧，應該不需要使用到 Application.run 吧

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
5#
發表於 2010-7-14 22:59 | 只看該作者
謝謝victorl 大大
因為我的程度目前只在修改錄製好的巨集
很多大大所謂的基本功還不太會
字典兩各字 還真難理解

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題