エクセルVBAのエラー

質問

よろしくお願いします。
VBA初心者のものです。
下記のコードを作成しましたが、
アプリケーション定義?がされていません
というエラーが出ます。
わかりやすく教えていただけないでしょうか。
修正方法を教えてください。

0901名簿.xlsという名前の
ファイルAのsheet1の
情報（ファイルBのセルBD1に日付4桁が記入されている）を
ファイルBのセルA1の情報を元にファイルBのセルB１に抽出したい
Sub 関数の挿入()
Dim i As Long
Dim あ As String
Dim い As String
Dim う As String
あ="=VLOOKUP(A1,["
い=Range("BD1")
う="名簿.xls]Sheet1!$F:$I,1,0)"

For i = 2 To 50
Range("A" & i )= あ & い & う
Next i

End Sub

回答No.3

mitarashi · ベストアンサー

式の入力を含めて、自動記録して、修正されては如何でしょうか。
Sub test()
Range("B1").FormulaR1C1 = "=VLOOKUP(RC[-1],[" & Range("bd1").Value & "名簿.xls]Sheet1!C6:C9,4,FALSE)"
Range("B1").AutoFill Destination:=Range("B1:B50"), Type:=xlFillDefault
End Sub
この様な事を行いたいのでしょうか？
抽出列の4は適当に入れました。
外していたらすみません。

回答No.2

mt2008

ソースを拝見しましたが、まずはセル式でやりたいことを実現してからマクロを作られた方が良いと思います。
今のままでは何をしたいのかさっぱり判りません。

回答No.1

noname#259269

仰っている事が判りにくいので整理しましたが、下記であってますか？

1.ファイルＢのセルBD1に日付4桁が記入されている
2.1.の日付を使ってデータの抽出元(ファイルＡとする)を特定する
　ファイルＡの名前は、(1.の日付) & "名簿.xls"
3.ファイルＢのセルA1の値を元に、ファイルＡのSheet1からデータを抽出する
4.抽出したデータはファイルＢのセルB1に入れる

補足

はい、おっしゃるとおりです。
宜しくお願い致します。