MadMax
Зарегистрирован: 10.12.2018 Сообщения: 5
|
Добавлено: Сб Май 02, 2020 06:33 Заголовок сообщения: Использование QueryTable |
|
|
Привет.
Подскажите, в чем может быть проблема. Почему при выполнении кода запрашивается источник данных?
Код: | let _ConnStr := '@@xUtil{connect}';
alias _QueryStr = select id, num_tab, full_name, docnumber, name_ill, fromd, tod, idays, prc, summa from _short_name[""] order by full_name, fromd;
let vb.ConnStr := _ConnStr[""];
let vb.QueryStr := _QueryStr[""];
vb{
Dim cc: MsgBox QueryStr
With ActiveSheet.QueryTables.Add(ConnStr, ActiveSheet.Cells(4, 1))
.CommandText = QueryStr
.Name = "MSLite"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = 1
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh
End With
'-- задержка при получении данных
cc = ActiveSheet.QueryTables(1).ResultRange.Columns.Count
While cc <= 1
cc = ActiveSheet.QueryTables(1).ResultRange.Columns.Count
Wend
}; |
Раньше писал аналогичный код и все выгружалось в Excel |
|