VBAで別のファイルから情報を取得

質問

A列に6ケタコードが入力されています。
このコードを元に、別のファイルから情報を取得したいのですが
AAAだったらBook1から、
ABCだったらBook2からというように
コードの上3ケタによって読みに行くファイルを指定したいのですが、
どのような構文になりますか？
ご存知の方、ご教授お願い致します。

---例---
AAA001　Book1の、同じコードのA～Z列までを取得
ABC005　Book2の、同じコードのA～Z列までを取得

回答No.1

merlionXX · ベストアンサー

では、構文のサンプルです。

Sub TEST01()

For n = 1 To Cells(Rows.Count, "A").End(xlUp).Row
x = Left(Cells(n, "A").Value, 3)

Select Case x
Case "AAA"
y = "Book1"
Case "ABC"
y = "Book2"
Case Else
MsgBox "見に行くBOOKがわかりませ～ん！", vbCritical, "Σ（￣ロ￣lll) "
Exit Sub
End Select

MsgBox y & "を読みに行きます。" & vbCr & _
"読みに行くコードはMyamYsさんが書いてね。", , "(´^∇^)σ　"

'読みに行くコード

Next

End Sub