Перенос информации из Access в Excel

@Виссарион · Регистрация: 22.08.2016

Здравствуйте.
Данную тему уже поднимал.
У меня перенос информации из Access в шаблон Excel происходит по этому коду, но нужно сделать так что бы в столбец, в который я переношу информацию заполнялся только до 30 строки, потом прерывался и заполнение продолжалось после 63 строки. Помогите такое осуществить

Visual Basic

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sSQL As String
 
sSQL = "SELECT [Наименование] FROM [Спецификация]"
MyConn = ThisWorkbook.Path & Application.PathSeparator & "Новая БД.mdb"
 
Set cnn = New ADODB.Connection
With cnn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Open MyConn
End With
 
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseServer
rst.Open Source:=sSQL, _
ActiveConnection:=cnn, _
CursorType:=adForwardOnly, _
LockType:=adLockBatchOptimistic, _
Options:=adCmdText
 
'Range("A3:C100").Clear              'очистка прежнего диапазона кодов на листе
Range("C3").CopyFromRecordset rst 'копируем результат SQL-запроса на лист
 
rst.Close
cnn.Close
 
iFullName = "\\...\...\...\База данных\Новая БД.mdb"

в прошлой теме предлагалось добавить так, но после выполнения в Excel после шаблонной таблицы добавляются строки из пропущенного диапазона, каждый раз.

Visual Basic

1	Range("C29:C63").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

@snipe · 12.12.2016, 08:59

вместо 23 строки вставьте этот код

Visual Basic

i=3
if rst.eof and rst.bof then msgbox "Данных нет": Exit sub'вместо sub то где используется этот код function-например
rst.movelast: rst.movefirst
do while rst.eof
if i=30 then i=63' 30 строка будет пропущена
Cells(i,3)=rst.fields(0)
i=i+1: rst.movenext
loop

do while not(rst.eof)

Опции темы

Перенос информации из Access в Excel

Решение