[[20020831164048]]　『vbaでのvlookupについて教えてください』（hisao）　ページの最後に飛ぶ

『vbaでのvlookupについて教えてください』（hisao）

販売管理表で　本年度を　データーから読み取って　a 年度とします。

これを参照して経営分析表を作成します。

Workbooks.Open(Filename:="\販売管理\uri" & a & ".xls").RunAutoMacros Which:= _

xlAutoOpen

uri = ActiveWorkbook.Name

Range("J3:J" & n).Select

Selection.FormulaR1C1 = _

 "=IF(ISERROR(VLOOKUP(RC[-5],[uri]工番売上!工番売上,2,0)),0,VLOOKUP_

(RC[-5],[uri]工番売上!工番売上,2,0))"

とすると　uriファイルを読み取ってくれません。

[uri]のところをもとのファイル名[uri02.xls] とすれば良いのですが

多年度に通用するvbaを作成したいので　年度別のファイルを変数で参照したいのですが

どなたか助けてください。

 "=IF(ISERROR(VLOOKUP(RC[-5],[uri]工番売上!工番売上,2,0)),...

 では"の中なのでuriがuriのままExcelに渡されます。

 "=IF(ISERROR(VLOOKUP(RC[-5],[" & uri & "]工番売上!工番売上,2,0)),...

 のようにする必要があります。

 （kazu）

 有難う御座いました。助かりました。(hisao)

コメント返信：