Помогите пожалуйста!!!!
Пишу скрипт (приведен ниже), но почему-то он работает не на всех машинах....Офис стоит везде одинаковый 2000 и винда 2000, но в чем причина его избирательности???

Sub NewBase()
WP = Trim(Worksheets("Установки").Cells(2, 2).Value)
WN = Trim(Worksheets("Установки").Cells(1, 2).Value)
Set NewSheet = Sheets.Add
NewSheet.Select
NewSheet.Name = "База"
Sheets("База").Move After:=Sheets("Установки")
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER=Microsoft dBase Driver (*.dbf);FIL=dBase 4.0;DefaultDir=" + WP + ";DriverId=533;MaxBufferSize=2048;PageTimeout=5;" _
, Destination:=Range("A1"))
.Sql = Array("SELECT `" + WN + "`.* " + _
"FROM `" + WP + "`\`" + WN + "`")
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
End With
End Sub

Этот макрос должен открыть dbf файл, взять из него все данные, потом в книге Excel создать новый лист и положить туда данные из dbf файла. На большей части машин все отрабатывает, но есть такие машины на которых макрос создает новый лист в книге и вываливается по ошибке run time error 1004 на стороке:.Refresh BackgroundQuery:=False

все равно ни чего не получается :(
спасибо всем :)
я сделала все без квери, устала я с ним бороться :)