[發問] 求教參照代入公式?

mhl9mhl9

A1        F:\th\               
A2        2013               
A3        A               
A4        9-Sep               
A5        09.xls               
A6        abcd               
A7        $AB$36               
                       
='F:\th\2013\A\09-Sep\[09.xls]abcd'!$AB$36                       
請問如何把A1:A7的參照寫到公式里去?
我是這樣寫的
="='" &A1&A2&"\"&A3&"\"&TEXT(A4,"dd-mmm")&"\["&A5&"]"&A6&"'!"&A7
得到的string是:
='F:\th\2013\A\09-Sep\[09.xls]abcd'!$AB$36
但這個公式就是不work,求各位幫手,謝謝!

stillfish00

回復 1# mhl9mhl9
=INDIRECT("'" &A1&A2&"\"&A3&"\"&TEXT(A4,"dd-mmm")&"\["&A5&"]"&A6&"'!"&A7)

mhl9mhl9

回復 2# stillfish00

let me try,thanks

mhl9mhl9

回復 2# stillfish00


    返回string是正確的但出了"Ref!",不能取得 F:\th\A\09-Sep\09.xls里Range("ab36")的值?

Hsieh

回復 4# mhl9mhl9

你將來源檔案開啟應該就能顯示
INDIRECT函數必須在外部參照檔案同時開啟才能正確取得

mhl9mhl9

回復 5# Hsieh


    即使我打開外部文件還是出"#Ref!"
indirect我是不能用,因為我不可能會打開外部文件,但是我輸入的字串完全和recorder顯示一模一樣,但就是not work
可能我沒把問題講清楚,是這樣的,我要用公式抓取 F:\th\2013\A\09-Sep\09.xls-----sheet1.range("ab36")的值
其中 F:\th\,2013,A,09-Sep,09.xls,sheet1,ab36 這7個data分別在 A1:A7,寫了多次都失敗,請各位幫忙指點,多謝了

mhl9mhl9

回復 5# Hsieh

用vb輸入公式是OK的,
  Selection.Formula = "='" & [$g$2] & Format([$j$2], "yyyy") & "\" & [$a3] & "\" & Format([$j$2], "dd-mmm") & "\[" & Format([$j$2], "dd") & ".xls]" & [G3] & "'!" & [$j3]
'以上輸入可以抓取值,但儲存格里留下的是"值",不是公式,我不能複製公式!
是不是可以改一改上面的輸入,可以輸入公式,而不是輸入值,就OK了,我改了100次,都失敗

mhl9mhl9

回復 2# stillfish00

indirect公式,當09.xls文件打開時,可以取得值
'=INDIRECT("'" &$A$1&$A$2&"\"&$A$3&"\"&TEXT($A$4,"dd-mmm")&"\["&$A$5&"]"&$A$6&"'!"&$A$7)

indirect公式,當09.xls文件關閉時,#REF!

拿走indirect,用以下公式輸入
'="='" &$A$1&$A$2&"\"&$A$3&"\"&TEXT($A$4,"dd-mmm")&"\["&$A$5&"]"&$A$6&"'!"&$A$7
儲存格顯示的是,但不能取得值
'='F:\th\2013\A\09-Sep\[09.xls]Sheet1'!AB36

用手工輸入以上公式,可以正常取得值
'='F:\th\2013\A\09-Sep\[09.xls]Sheet1'!AB36

用公式取得的字串和手工輸入的字串是一模一樣,但就是用公式輸入的not work,手工輸入就ok,希望你能幫忙指點迷徑,謝謝

GBKEE

回復 7# mhl9mhl9

1. Sub Ex()
   
2.     Dim S As String
   
3.     S = "='" & [g2] & Format([j2], "yyyy") & "\" & [a3] & "\" & Format([j2], "dd-mmm") & "\[" & Format([j2], "dd") & ".xls]" & [G3] & "'!" & [j3]
   
4.     Selection.Formula = S
   
5. End Sub

複製代碼

mhl9mhl9

回復 9# GBKEE


    參看 7#,問題還是沒解決.
我想可能我的要求是無法達到的,我想問一問是不是作為worksheetfunction,公式的字串中2個單引號之間不能有"變數"
selection="=a1 & b1" ,selection可以取得帶變數的公式
selection="='a1 & b1'",selection取得的是string----a1&b1
我把你的vb輸入改成如下:
S = "='" & "g2" & "Text(j2, ""yyyy"")" & "\" & "a3" & "\" & "Text(j2, ""dd-mmm"")" & "\[" & "Text(j2, ""dd"")" & ".xls]" & "G3" & "'!" & "j3"
selection=s
selection得到一個錯誤的公式
我把錯誤的公式向下複製,看到只有"j3"會變,j4,j5,j6....
全中"g2","j2","a3","g3"都顯示字串,不能變
所以我想我的要求可能是違反什麽邏輯,是錯的
我記得如果路徑字串中沒有空格,那麼單引號就可以不用,我會試一試,不用但引號,能不能把變數顯示在公式中.
謝謝你的幫助.昨天忙了一天未能如愿,不得意而求其次,只能vb輸入全部公式,參數改變,就只能要user,按鍵求其值改變.