Перенос информации из Access в Excel - VBA (48816)
Формулировка задачи:
Здравствуйте! Перенос информации из Access в Excel происходит по этому коду, но у меня появилась одна проблема, нужно сделать так что бы в столбец, в который я переношу информацию заполнялся только до 29 строки, потом прерывался и заполнение продолжалось после 63 строки. Помогите такое осуществить
Листинг программы
- 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"
Решение задачи: «Перенос информации из Access в Excel»
textual
Листинг программы
- Range("C29:C63").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д