ошибка 1004

Вутт

Гость

04.02.2008 12:33:59

помогите исправить выдает ошибку 1004 и всё тут, мозг дымится, чего тут не так написано
With ThisWorkbook.Worksheets("DBF").QueryTables.Add(Connection:= _
"ODBC;DRIVER={Microsoft dBase Driver (*.dbf)};DBQ=C:;" _
, Destination:=ThisWorkbook.Worksheets("DBF").Range("A1"))
.Sql = Array("SELECT `12`.BS" & Chr(13) & "" & Chr(10) & "FROM `C:\files\1`\`19.dbf` `12`" & Chr(13) & "" & Chr(10) & "union all" & Chr(13) & "" & Chr(10) & "SELECT `12_1`.BS" & Chr(13) & "" & Chr(10) & "FROM `C:\files\1`\`19.dbf` `12_1`")
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh 'BackgroundQuery:=False
End With

Вутт

Гость

04.02.2008 13:15:56

вот и так уже пробовал все равно тоже самое
With ThisWorkbook.Worksheets("DBF").QueryTables.Add(Connection:= _
"ODBC;DSN=Файлы dBASE;DriverId=533;MaxBufferSize=2048;PageTimeout=5;" _
, Destination:=ThisWorkbook.Worksheets("DBF").Range("A1"))
.CommandText = Array( _
"SELECT `12`.BS" & Chr(13) & "" & Chr(10) & "FROM `C:\files\1`\`19.dbf` `12`" & Chr(13) & "" & Chr(10) & "union all" & Chr(13) & "" & Chr(10) & "SELECT `12_1`.BS" & Chr(13) & "" & Chr(10) & "FROM `C:\files\1`\`19.dbf` `12_1`" _
)
.Name = "Запрос1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

Вутт Гость	#3 04.02.2008 13:15:56 вот и так уже пробовал все равно тоже самое With ThisWorkbook.Worksheets("DBF").QueryTables.Add(Connection:= _ "ODBC;DSN=Файлы dBASE;DriverId=533;MaxBufferSize=2048;PageTimeout=5;" _ , Destination:=ThisWorkbook.Worksheets("DBF").Range("A1")) .CommandText = Array( _ "SELECT `12`.BS" & Chr(13) & "" & Chr(10) & "FROM `C:\files\1`\`19.dbf` `12`" & Chr(13) & "" & Chr(10) & "union all" & Chr(13) & "" & Chr(10) & "SELECT `12_1`.BS" & Chr(13) & "" & Chr(10) & "FROM `C:\files\1`\`19.dbf` `12_1`" _ ) .Name = "Запрос1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With

Читают тему