ExcelからSQLを使ってデータを抽出する (ID:117254)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 過去ログを参照してExcelから特定のデータを抜き出す方法を試してみたのですが、うまくいきません。今やろうとしているのはIDと名前という列があって、ユーザが入力したID(String型)からそれに合ったデータを抜き出そうというものです。しかし実行すると、パラメータが少なすぎます。１を指定してくださいと出ます。VB6,Windows XPを使っています。知っている方いましたらどうかよろしくお願いします。 Private Sub cmdHDRYES_Click() Dim ws As DAO.Workspace Dim db As DAO.Database Dim rs As DAO.Recordset Dim strXLSName As String Dim strSQL As String Dim searchNum As String strXLSName = App.Path & "\Book1.xls" searchNum = 12'仮に12としました Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase(strXLSName, False, False, "EXCEL 8.0;HDR=YES;") 'strSQL = "Select * From [Sheet1$] " strSQL = "SELECT * FROM [Sheet1$] WHERE [ID] = searchNum" Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)