another querytable.add question

[Gary Keramidas]

nobody was able to answer my last one, maybe i'll have better luck with this
one:

when importing data from a dbf file, how can i limit the records imported to the
value in one of the fields?

 

[Guest]

hi,
if your are using microsoft query (MSQ), the can set up a parameter query
that prompts you for the criteria.
how?
click somewhere inside the returned data.
data>import external data>parameters.
check "prompt for value using the following string"
in the box below, enter your promp ie "enter somthing" or whatever>click ok.
refresh the MSQ. a little parameter box will pop up prompting for search
criteria.
you can also do this by editing the MSQ direct but this is a tad more
complicated.
if your are not using MSQ, what method are you using?

regards
FSt1

 

[Gary Keramidas]

here's part of the code

With _
ws.QueryTables.Add(Connection:=Array("OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User
ID=Admin;Data " _
, _
"Source=" & fPath & ";;Jet OLEDB:Registry Path="""";Jet OLEDBatabase
Password=""""; Jet OLEDB:Engine " _
, _
"Type=18;Jet OLEDBatabase Locking Mode=0;Jet OLEDB:SFP=False"),
Destination:=ws.Range("A1"))

.CommandType = xlCmdTable
.CommandText = Array("invoice")
.Name = "invoice"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With