帖子: 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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

高中生 Rank: 3 Rank: 3

帖子: 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

中學生 Rank: 2

帖子: 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

高中生 Rank: 3 Rank: 3

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

熱烈參與勳章好學求知勳章

5^#

發表於 2010-7-14 22:59 | 只看該作者

謝謝victorl 大大
因為我的程度目前只在修改錄製好的巨集
很多大大所謂的基本功還不太會

字典兩各字還真難理解

TOP