Тип массива

[dyakon88]

Подскажите какой тип массива s надо? для многострочных (строк где то тысяча, но один столбец)

Sub Макрос5()
Dim i As Long, Lr As Long, s As String

Dim a()
'
' Макрос5 Макрос
'


With Windows("пример.xls").Activate
Lr = Windows("пример.xls").SheetViews.It em(2).Sheet.Cells(Rows.Count, 1).End(xlUp).Row
a = Windows("пример.xls").SheetViews.It em(2).Sheet.Range("a1:b" & Lr).Value
End With

For i = 1 To UBound(a)
If i > 1 Then s = s & ", " & Chr(13)
'If i > 1 Then s = s & " OR "
's = s & "(`Лист1$`.`лиц_счет`= " & a(i, 1) & ")" & Chr(13)
s = s & a(i, 1)
Next i
Windows("Книга1.xls").Activate
'
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceT ype:=0, Source:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=C:\Documents and Settings\Юзер\Рабочий стол\ексель\excel\пример.xls;Defaul tDir=C:\Documents and Settings\Юз" _
), Array( _
"ер\Рабочий стол\ексель\excel;DriverId=1046;Max BufferSize=2048;PageTimeout=5;") _
), Destination:=Range("$A$1")).QueryTa ble
.CommandText = Array("SELECT `Лист1$`.`лиц_счет`, `Лист1$`.фамилия" & Chr(13) & "" & Chr(10) & "FROM `Лист1$` `Лист1$`" & Chr(13) & "" & Chr(10) & "WHERE `Лист1$`.`лиц_счет` in (" & s & ")")
'.CommandText = Array("SELECT `Лист1$`.`лиц_счет`, `Лист1$`.фамилия" & Chr(13) & "" & Chr(10) & "FROM `Лист1$` `Лист1$`" & Chr(13) & "" & Chr(10) & "WHERE " & s)
'.CommandText = Array("SELECT `Лист1$`.`лиц_счет`, `Лист1$`.фамилия" & Chr(13) & "" & Chr(10) & "FROM `Лист1$` `Лист1$`" & Chr(13) & "" & Chr(10) & "WHERE (`Лист1$`.`лиц_счет`=1) OR (`Лист1$`.`лиц_счет`=6) OR (`Лист1$`.`лиц_счет`=4)")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
'.ListObject.DisplayName = "Таблица_Запрос_из_Excel_Files6 1"
.Refresh BackgroundQuery:=False
End With
End Sub

[dyakon88]

при 20 строк нормально работает код, а при 100 уже не работает код, в чем проблема?
ошибка выдается на строку

.CommandText = Array("SELECT `Лист1$`.лиц_счет, `Лист1$`.фамилия" & Chr(13) & "" & Chr(10) & "FROM `Лист1$` `Лист1$`" & Chr(13) & "" & Chr(10) & "WHERE `Лист1$`.`лиц_счет` in (" & s & ")")

[dyakon88]

проблема решена!