ExcelのセルにSQL文を書いて結果を得る方法ってありますか？たとえば「SELECT ITEM FROM TABLE WHERE KEY=A1」(ここでA1はセルの中身）のようなことをしたいです。有料のアドインを使ってもよいです。 ExcelのセルにSQL文を..

66pt

再回答ですみません。

ユーザ定義関数＋ＡＤＯ＋ExcelODBCドライバ　で実現できます。

=ExecSQL(ＳＱＬ文)

という関数を作ってみます。

以下、サンプルです。

１．ユーザ定義関数の作成

    VBAのエディタを起動し、標準モジュールを追加。

    以下のコードを記述してください。

    Public Function ExecSQL(ByVal sql As String) As String

        Dim cn As ADODB.Connection

        Dim rs As ADODB.Recordset

        Dim xl_file As String

        

        xl_file = ThisWorkbook.FullName '他のブックを指定しても良し

        

        Set cn = New ADODB.Connection

        cn.Provider = "MSDASQL"

        cn.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _

          "DBQ=" & xl_file & "; ReadOnly=False;"

        cn.Open

        Set rs = New ADODB.Recordset

        rs.Open sql, cn, adOpenStatic

        

        ExecSQL = rs("NAME").Value

        

        rs.Close

        cn.Close

    End Function

２．Sheet2 にデータベースを作成

       |   A  |   B   

    -----------------------------

    1  |  ID  | NAME

    2  |   1  | あああ

    3  |   2  | いいい

    4  |   3  | ううう

３．Sheet1 にユーザ定義関数を記述

    Ａ１セルに、「２」を入力

    Ａ２セルに、「=execsql("Select NAME from [Sheet2$] Where ID = " & A1)」を入力

４．Ａ２セルには、「いいい」が表示されます。

参考

[HOWTO] Visual Basic または VBA から ADO を Excel データで使用する

ADO を使用して Excel ブックのデータの読み取りおよび書き込みを行う方法 (ExcelADO)