Запрос с одного листа на второй в рамках одной книги Excel / Microsoft Access

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос с одного листа на второй в рамках одной книги Excel

6 сообщений из 6, страница 1 из 1

Запрос с одного листа на второй в рамках одной книги Excel

#39599453

anton6

Участник

Сообщения: 83

Рейтинг: 0 / 0

Всем привет!

Не знаю, куда написать со своей темой...
Вообщем...

На лист1 есть произвольная таблица
На лист2 - начиная с A1 - то куда выводиться результат запроса

Обыскался на сайтах и форумах запросами в google

Как это делать программно на VBA, используя Sql

Подскажите, пожалуйста, примером, типа

Sub
Код...
Мой запрос
Код...
End Sub

Может, кто-то знает...

...

Рейтинг:

0 / 0

09.02.2018, 02:46

| Ответить | Цитировать | Написать

Запрос с одного листа на второй в рамках одной книги Excel

#39599559

Анатолий ( Киев )

Гость

Где находится процедура? В этом же файле?
Запрос должен включать строку подключения к листу Excel. Результат вставляется методом CopyFromRecordset. Возможна засада - сработает ли запрос к открытому файлу.

...

Рейтинг:

0 / 0

09.02.2018, 11:33

| Ответить | Цитировать | Написать

Запрос с одного листа на второй в рамках одной книги Excel

#39599847

anton6

Участник

Сообщения: 83

Рейтинг: 0 / 0

Да, верно, в том же самом файле

...

Рейтинг:

0 / 0

09.02.2018, 18:15

| Ответить | Цитировать | Написать

Запрос с одного листа на второй в рамках одной книги Excel

#39599870

Шыфл

Участник

Откуда: Прага

Сообщения: 733

Рейтинг: 0 / 0

anton6,

А это не ізврат - разговарівать сам с собой на SQL?

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Private Sub Workbook_Open()
    Dim c As New ADODB.Connection
    
    c.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\temp\book1.xlsm;Extended Properties=""Excel 12.0;HDR=YES"";"
    c.Open
    
    Dim r As New ADODB.Recordset
    
    Set r = c.Execute("select * from [Sheet1$]")
    Worksheets("sheet2").Range("A2").CopyFromRecordset r
End Sub

...

Рейтинг:

0 / 0

09.02.2018, 19:54

| Ответить | Цитировать | Написать

Запрос с одного листа на второй в рамках одной книги Excel

#39599876

anton6

Участник

Сообщения: 83

Рейтинг: 0 / 0

Да, спасибо

Вот, тоже

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Sub SQLCopy()

Dim MyConnection As ADODB.Connection
Dim MyRecord As ADODB.Recordset

Set MyConnection = New ADODB.Connection
Set MyRecord = New ADODB.Recordset

With MyConnection
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";" & _
        "Extended Properties=Excel 8.0;"
    .Open
End With

MyRecord.Open "SELECT * FROM [&#203;&#232;&#241;&#242;1$]  ", MyConnection

Sheets("&#203;&#232;&#241;&#242;3").Cells(2, 1).CopyFromRecordset MyRecord

MyRecord.Close
MyConnection.Close

End Sub

...

Рейтинг:

0 / 0

09.02.2018, 20:38

| Ответить | Цитировать | Написать

Запрос с одного листа на второй в рамках одной книги Excel

#39600448

Анатолий ( Киев )

Гость

anton6Вот, тоже

Код: vbnet

1.
2.

MyRecord.Open "SELECT * FROM [Лист1$]  ", MyConnection
Sheets("Лист3").Cells(2, 1).CopyFromRecordset MyRecord

Надеюсь, в реальности у вас запрос с условиями отбора по нескольким полям.
В примере просто копируются все данные с одного листа на другой. Применение SQL здесь не только не логично, но и может нагадить, если неправильно определит типы данных.

...

Рейтинг:

0 / 0

12.02.2018, 10:49

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

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

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&fpage=57&tid=1611703]:	0ms
get settings:	10ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	38ms
get topic data:	9ms
get forum data:	2ms
get page messages:	41ms
get tp. blocked users:	1ms
others:	17ms

total:	142ms