Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Виссарион
0 / 0 / 0
Регистрация: 22.08.2016
Сообщений: 26
1

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

12.12.2016, 07:56. Просмотров 834. Ответов 1
Метки нет (Все метки)

Здравствуйте.
Данную тему уже поднимал.
У меня перенос информации из Access в шаблон Excel происходит по этому коду, но нужно сделать так что бы в столбец, в который я переношу информацию заполнялся только до 30 строки, потом прерывался и заполнение продолжалось после 63 строки. Помогите такое осуществить
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2016, 07:56
Ответы с готовыми решениями:

Перенос информации из Access в Excel
Здравствуйте! Перенос информации из Access в Excel происходит по этому коду, но у меня появилась...

Подстановка области из excel в форму Access и перенос в отчет Access
Всем привет. Хочу сделать базу данных по формирования и отправке писем. Короче: 1. Есть 5...

Перенос информации из excel в word
Здравствуйте! Есть большая просьба - помогите))) Возможно ли с помощью Макросов VBA решить задачу...

Перенос информации из ячеек Excel в Word
Добрый день всем. Люди добрые помогите разобратся с таким заданием: Перенос текстовой и числовой...

1
snipe
3198 / 1152 / 289
Регистрация: 07.08.2013
Сообщений: 2,914
12.12.2016, 08:59 2
Лучший ответ Сообщение было отмечено Виссарион как решение

Решение

вместо 23 строки вставьте этот код
Visual Basic
1
2
3
4
5
6
7
8
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)
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2016, 08:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Выбор определенной информации в Word и перенос ее в Excel
Доброго времени суток. В программировании новичек - прошу не судить строго). Подскажите...

Перенос информации из одного Excel файла в другой
Приветствую... Подскажите пожалуйста какой функцией в VB можно перенести данные из одного excel...

Автоматический перенос информации из таблицы Excel на серверный диск
Добрый день. Необходима помощь. Возможно ли, при вводе данных в таблицу Excel на моем ПК,...

Перенос информации из таблицы, находящейся в теле письма Outlook, в Excel
Доброго времени суток, форумчане. Прочитал множество тем, коснулся части книг(каюсь, прочитал их...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.