ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA Excel в Access
8 сообщений из 33, страница 2 из 2
  2  все
VBA Excel в Access
    #39816338
greker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
greker
Гость
Serg197311,

Числовой код из 10 цифр.
Возможно ли сделать так, чтобы это значение бралось из соответствующей таблицы в access?
...
Рейтинг: 0 / 0
22.05.2019, 12:24
| Ответить | Цитировать | Написать  
VBA Excel в Access
    #39816343
greker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
greker
Гость
Serg197311,

И сохранял выгружаемые данные тоже в access, только в другой таблице
...
Рейтинг: 0 / 0
22.05.2019, 12:28
| Ответить | Цитировать | Написать  
VBA Excel в Access
    #39816395
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
greker, всё можно.
...
Рейтинг: 0 / 0
22.05.2019, 13:00
| Ответить | Цитировать | Написать  
VBA Excel в Access
    #39816410
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
grekerSerg197311,

Числовой код из 10 цифр.
Возможно ли сделать так, чтобы это значение бралось из соответствующей таблицы в access?
Как сказал Панург - возможно все.... Ну или почти все.
Думаю - здесь найдется тот кто за соотв вознаграждение решит потратить свое время на решение Вашей проблемы....
Если Вы не знаете как взять значение из ячейки таблицы и как его туда записать, то я так полагаю Вам не стоит пытаться решать эту задачу самому.....
...
Рейтинг: 0 / 0
22.05.2019, 13:10
| Ответить | Цитировать | Написать  
VBA Excel в Access
    #39816486
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
grekerЧисловой код из 10 цифр.
Возможно ли сделать так, чтобы это значение бралось из соответствующей таблицы в access?
..........
И сохранял выгружаемые данные тоже в access, только в другой таблице
Если таблица Tab2 уже есть, то так:
Код: sql
1.
INSERT INTO Tab2 SELECT Код FROM Tab1


Если же таблица Tab2 не существует, то она будет создана так:
Код: sql
1.
SELECT Код INTO Tab2 FROM Tab1
...
Рейтинг: 0 / 0
22.05.2019, 14:06
| Ответить | Цитировать | Написать  
VBA Excel в Access
    #39816562
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
grekerВ excel есть таблица с кодами на отдельном листе, оттуда берётся значение, вставляется в окно ie, нажимается кнопка, появляющиеся данные выгружаются в excel на другой лист. И так по всем кодам Таблица с кодами импортируется в Акс. В процедуре на ней открывается Recordset. Значения из него считываются и вставляются в окно ie и т.д.
А вот насчет "данные выгружаются в excel на другой лист" надо понять, как это происходит. Если данные по очереди берутся из полей ie и вставляются в ячейки Ёкселя, то это я советовал више. Если это экспорт целой таблицы из ie и в Ёксель, то опишите, как это происходит и, желательно, покажите этот кусок кода.
...
Рейтинг: 0 / 0
22.05.2019, 14:59
| Ответить | Цитировать | Написать  
VBA Excel в Access
    #39816726
greker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
greker
Гость
__Michelle,

Спасибо, попробую)
...
Рейтинг: 0 / 0
22.05.2019, 18:48
| Ответить | Цитировать | Написать  
VBA Excel в Access
    #39816817
greker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
greker
Гость
Кривцов Анатолий,

Как именно сделан процесс выгрузки из ie - не могу сказать(((
Если не ошибаюсь, блок выгрузки в vba excel:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
For RW = 2 To 50000
On Error Resume Next
If oWin1.Document.getElementsByTagName("td").Item(RW).innertext = ThisWorkbook.Worksheets(1).Cells(i, 2) Then
ThisWorkbook.Worksheets(2).Cells(j, 1) = oWin1.Document.getElementsByTagName("td").Item(RW).innertext
ThisWorkbook.Worksheets(2).Cells(j, 2) = oWin1.Document.getElementsByTagName("td").Item(RW + 1).innertext
ThisWorkbook.Worksheets(2).Cells(j, 3) = oWin1.Document.getElementsByTagName("td").Item(RW + 2).innertext
ThisWorkbook.Worksheets(2).Cells(j, 4) = oWin1.Document.getElementsByTagName("td").Item(RW + 3).innertext
ThisWorkbook.Worksheets(2).Cells(j, 5) = oWin1.Document.getElementsByTagName("td").Item(RW + 4).innertext
ThisWorkbook.Worksheets(2).Cells(j, 6) = oWin1.Document.getElementsByTagName("td").Item(RW + 5).innertext
ThisWorkbook.Worksheets(2).Cells(j, 7) = oWin1.Document.getElementsByTagName("td").Item(RW + 6).innertext
ThisWorkbook.Worksheets(2).Cells(j, 8) = oWin1.Document.getElementsByTagName("td").Item(RW + 7).innertext
ThisWorkbook.Worksheets(2).Cells(j, 9) = oWin1.Document.getElementsByTagName("td").Item(RW + 8).innertext
ThisWorkbook.Worksheets(2).Cells(j, 10) = oWin1.Document.getElementsByTagName("td").Item(RW + 9).innertext
RW = RW + 9
If ThisWorkbook.Worksheets(2).Cells(j, 1) <> "" Then
    j = j + 1
        If j Mod 20000 = 0 Then
           ActiveWorkbook.Save
        End If
Else
    Exit For
End If
End If
...
Рейтинг: 0 / 0
22.05.2019, 23:00
| Ответить | Цитировать | Написать  
8 сообщений из 33, страница 2 из 2
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA Excel в Access
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1610697]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 11ms
get first new msg:
 9ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 311ms
total:  459ms
созд. / загр.: 459ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]