VBAの参照式の””の打ち方について

質問

教えてください。
ある情報ベンダーからエクセルにデータをリンク貼り付けさせる式を書きたいんですが、
Sub v()
Cells(1, 1).Formula = "=Blmget(""ID"",""JNc1"",""TRDPRC_1"")"
End Sub　　　　で得られる
=Blmget("ID","JNc1","TRDPRC_1")　　こういう式が書きたいです。
ただ、"TRDPRC_1"の部分を変数にしたいので、

Sub x()
Dim An As String
An = "TRDPRC_1"
Cells(1, 1).Formula = "=Blmget(""ID"",""JNc1""," & An & " )"
End Sub

こうすると
=Blmget("ID","JNc1",TRDPRC_1 )　　　となり””が足りません。

Sub w()
Dim An As String
An = Cells(1, 3).Value
Cells(1, 1).Formula = "=Blmget(""ID"",""JNc1""," & An & " )"
End Sub
も考えたのですが、VBAの中で書きたいので、教えてください。

回答No.2

Wendy02 · ベストアンサー

こんばんは。

難しくしないでも、このようにすればよいと思います。

An = """TRDPRC_1"""
Cells(1, 1).Formula = "=Blmget(""ID"",""JNc1""," & An & ")"

または、

An = Cells(1, 3).Value
Cells(1, 1).Formula = "=Blmget(""ID"",""JNc1"",""" & An & """ )"

お礼

ありがとうございます。
どちらもＯＫでした。
””がいっぱいで、わかんなくなっちゃいました。
ありがとうございます。

回答No.1

ASIMOV

An = Chr(34) & "TRDPRC_1" & Chr(34)

で、どうでしょう

お礼

いけました！！
ありがとうございます！！