Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

55100 / 76732

←次へ　｜　前へ→


	【26412】あいまい検索

さつき - 05/7/4(月) 19:25 -


	引用なし

	パスワード

以前こちらで教えていただいたコードを応用して、別のプログラムを作らなければいけなくなりました。

契約者名　　支店名　　担当者名
ＮＥＣ
富士通
東芝
日立

上のようなエクセルシートがあって、担当者リストから、担当者と支店名を貼り付けていくのですが、担当者リストの方の契約者名には、例えば、ＮＥＣ株式会社とか株式会社富士通などというように正式な名称が入っています。あいまい検索によって、貼り付ける方法をどなたか教えてください。よろしくお願いいたします。

以下のようなコードではエラーは出ませんが、検索が上手く行っていないようで、データを貼り付けてくれませんでした。

Sub TEST1()
Dim SQLCode As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim dbName As String
Dim Kiten As range
Dim Cnt As Long
Dim k As Long
　
　　Set Kiten = range("b1")
　
　　Set cnn = New ADODB.Connection
　　cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
　　　　　　　　　　　　 & "Data Source=C:\Documents and Settings\週報.mdb"
　　cnn.Open
　
　　Set rst = New ADODB.Recordset
　　　
　　For Cnt = Kiten.row To Kiten.End(xlDown).row
　　　　SQLCode = "SELECT 担当リスト.* " _
　　　　　　　　& "FROM 担当リスト " _
　　　　　　　　& "WHERE 契約者名 like '*" & Cells(Cnt, 1) & "*';"

　　　　rst.Open SQLCode, cnn
　　　　　　i = 3
　　　　　　Do Until rst.EOF
　　　　　　　　For j = 0 To 1
　　　　　　　　Cells(Cnt, i) = rst.Fields(j)
　　　　　　　　i = i + 1
　　　　　　　　Next j
　　　　　　　　rst.MoveNext
　　　　　　Loop
　　　　rst.Close

　　Next

　　Set rst = Nothing
　　cnn.Close
　　Set cnn = Nothing
End Sub

0 hits

▼

【26412】あいまい検索 さつき 05/7/4(月) 19:25

≪