變動檔名之不同檔案讀值問題 - Excel程式區

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-10-1 23:03 | 顯示全部帖子

回復 1# pideo

Range("B1") = "='D:\資料\[" & [a1] & ".xlsm]工作表1'!$A$1"

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-10-2 11:13 | 顯示全部帖子

回復 3# pideo

= "='D:\1\[" & E1 & ".xlsm]工作表1'!$A$1"
錯在E1
E1為儲存格，必須要用中括號[E1]
= "='D:\1\[" & [E1] & ".xlsm]工作表1'!$A$1"

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2015-10-2 22:54 | 顯示全部帖子

回復 5# pideo

可以把檔案或程式PO式上來看看嗎？光是這樣看，我也不知問題在哪？

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2015-10-3 11:41 | 顯示全部帖子

回復 7# pideo

看來我是誤會你的意思了，原來你不是用VBA用來寫入的！
真抱歉，我上面的回答，都是以VBA來表示，手打入儲存格用變數，我還真的不會！
不過後還是貼上VBA的寫法
Public Sub exx()
Range("E4") = "='D:\資料\[" & [E1] & ".xlsm]工作表1'!$A$1"
End Sub