|
▼超初心者 さん:
二つの条件をつけるにはどうしたらよいのでしょうか?
> mySQL = "SELECT * FROM " & myCsvNM & " WHERE [" & myField(1, 2) & "] Like '1*' "
> Set myRS = myDB.OpenRecordset(mySQL, dbOpenSnapshot)
> With Sheets("1")
> .Range(.Cells(1, 1), .Cells(1, UBound(myField, 2))).Value = myField
> .Range("A2").CopyFromRecordset myRS
> End With
> Set myRS = Nothing
↑ここの部分を
下記のように変えてみましたが、型が一致しませんと表示されます
今の条件にもう一つ、フィールド4が空白のものを抽出したいのです
mySQL = "SELECT * FROM " & myCsvNM & " WHERE [" & myField(1, 2) & "] Like '1*' " And "SELECT * FROM " & myCsvNM & " WHERE [" & myField(1, 4) & "] ="""
何がどこが間違っているのか教えていただけるとありがたいです
お願いします
|
|