"レコードセット"内の特定のレコード（行と列）を返すVBAコード

Question

2つのExcelワークブックがあり、以下のマクロを使用してソースWBを開かずに、データ（A1：C5）を別のもの（WB1）私はそれがターゲットブックに貼り付ける前に、レコードセット内のデータをフィルタ処理する必要があります。 フィルタは、列 "C"のレコード= "いいえ"を削除するものです どうすればいいですか？それはちょうどあなたのselect文に不要なレコードを除外するために、より一般的なのです

Sub TransferData___() 
    Dim sourceFile As Variant 
    sourceFile = "C:\WB1.xlsx" 
    GetData sourceFile, "Sheet1", "A1:C5", Sheets("Sheet1").Range("A1") 
End Sub 

Public Sub GetData(sourceFile As Variant, SourceSheet As String, _ 
        SourceRange As String, TargetRange As Range) 
Dim rsCon As Object 
Dim rsData As Object 
Dim szConnect As String 
Dim szSQL As String 
Dim lCount As Long 

' Create the connection string. 
    If Val(Application.Version) < 12 Then 
     szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
        "Data Source=" & sourceFile & ";" & _ 
        "Extended Properties=""Excel 8.0;HDR=No"";" 
    Else 
     szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ 
        "Data Source=" & sourceFile & ";" & _ 
        "Extended Properties=""Excel 12.0;HDR=No"";" 
    End If 
szSQL = "SELECT * FROM [" & SourceSheet$ & "$" & SourceRange$ & "];" 

Set rsCon = CreateObject("ADODB.Connection") 
Set rsData = CreateObject("ADODB.Recordset") 

rsCon.Open szConnect     'here the file is opened in the background 
rsData.Open szSQL, rsCon, 0, 1, 1  'read data 

TargetRange.Cells(1, 1).CopyFromRecordset rsData 

' Clean up our Recordset object. 
rsData.Close 
Set rsData = Nothing 
rsCon.Close 
Set rsCon = Nothing 
Exit Sub 

End Sub 

Answer 1

を：以下 は、私が使用していたコードであるなど

szSQL = "SELECT * FROM [" & SourceSheet$ & "$" & SourceRange$ & "] where F3<>'No'" 

F1、F2、F3、もしデフォルトのフィールド名です照会されるデータにはヘッダー行がありません。