Подскажите, пожалуйста, как адаптировать данный код из Excel в код FoxPro?

Спасибо, но я не дописала вопрос, сори , мне нужно по оператору (ActiveSheet.QueryTables.Add), а такой я не нашла в документе, но все равно спасибо, почитаю, может что и пригодится


With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password='""";User ID=Admin;Data
Source=F:\Baza\;Mode=Share Deny Write;E" _
, _
"xtended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path=""""
Jet OLEDB:Database Password=""";Jet OLEDB:Engine Ty" _
, _
"pe=18;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New D" _
, _
"atabase Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compa" _
, "ct=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False") _
, Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("baza1")
.Name = "BAZA"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = "F:\Baza\baza1.DBF"
.Refresh BackgroundQuery=False
End With