Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA Excel в Access / 25 сообщений из 33, страница 1 из 2
  1  все
21.05.2019, 11:27
    #39815695
greker
greker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
Добрый день.
Установлен Office 2016. Есть база access, которая открывает ссылку ie, логинится на ресурсе, запускает макрос в excel, который выгружает с ресурса некоторые данные. Возможен ли перенос макроса excel в access, чтобы всё сразу писалось в таблицу в базе, не используя excel?
Как в vba access прописать закрытие окон ie после отработки?
Сюда могу выложить только фото кода, так как база на работе, политика безопасности, интернета нема.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 11:34
    #39815701
MrShin
MrShin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
Ну вообще VBA код будет работать на Акцессе, нужно будет только поменять части, которые непосредственно работают с Экелем. Часть, которая работает с интернетом должна работать без изменений.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 11:48
    #39815709
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
grekerСюда могу выложить только фото кода, так как база на работе, политика безопасности, интернета нема.скопируй в Блокнот текст.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 11:51
    #39815712
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
или экспорт из IDE в текстовые файлы *.cls или *.bas

Или USB тоже блокированы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 12:05
    #39815725
Кривцов Анатолий
Кривцов Анатолий
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
MrShinНу вообще VBA код будет работать на Акцессе, нужно будет только поменять части, которые непосредственно работают с Экелем. Часть, которая работает с интернетом должна работать без изменений. Добавлю, что в макросе excel вы, видимо, вносите значения в ячейки одной строки, потом следующей и т.д.
В Аксе вместо этого хозяйства нужно открыть Recordset на таблице-получателе и добавлять записи туда.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 13:31
    #39815781
greker
greker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
USB тоже заблокированы, пишу с мобильного))
К сожалению, я не очень силён, мягко говоря, в vba, просто досталось в "наследство" и накинули задачу в нагрузку)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 13:32
    #39815783
greker
greker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
Просто копирование уже пробовал на дурака, не работает))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 13:36
    #39815786
greker
greker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
В excel есть таблица с кодами на отдельном листе, оттуда берётся значение, вставляется в окно ie, нажимается кнопка, появляющиеся данные выгружаются в excel на другой лист. И так по всем кодам
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 14:25
    #39815828
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
grekerВозможен ли перенос макроса excel в access, чтобы всё сразу писалось в таблицу в базе, не используя excel?После подключения референсной библиотеки экселёвый макрос переносится в Access практически без изменений, если он написан правильно. Нужно только добавить код открытия книги и получить на неё референс.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 14:41
    #39815841
bubucha
bubucha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
AkinaПосле подключения референсной библиотеки
Ему надо без экселя сразу в акс писать из ie, но исходники он не кажет, а пытается про них рассказать в повествовательной форме...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 15:12
    #39815855
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
bubuchaЕму надо без экселя сразу в акс писать из ie
А вот тут уже действительно без кода никуда.
Хотя как по мне - посмотреть, что там в экселе наворочано, да написать с нуля. Всяко быстрее, чем чужую лапшу отлаживать. Хотя если алгоритм прозрачен. то забрать как есть. VBA - он везде VBA.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 16:23
    #39815904
greker
greker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
Вложил архив с кодами, получилось примерно как левой пяткой нос почесать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 16:27
    #39815909
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
grekerUSB тоже заблокированы, пишу с мобильного))навеяло...
Пишу на броне горящего танка... ©
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 16:35
    #39815912
greker
greker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
Панург,

Практически)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 16:50
    #39815925
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
Да всего-то там и делов, что всякие ThisWorkbook.Worksheets(X).Cells(Y, Z) поменять на переменные, да нарисовать код вставки в таблицы по мере формирования данных для новой записи.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 18:20
    #39815982
greker
greker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
Akina,

Это на каком языке сейчас ругательство прозвучало?)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2019, 18:48
    #39815997
greker
greker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
Akina,

Я просто к тому, что в vba я, мягко говоря, не силён)) по образу и подобию пытался что-то состряпать, но не получается ((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2019, 08:09
    #39816146
greker
greker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
Сможет кто помочь с этой задачкой?))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2019, 08:30
    #39816157
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
А что значит помочь? Взять и переписать код так чтобы он работал так как вам надо? Здесь точно много кто это сможет.... Но захочет ли.... делать это просто так....> а просто помочь - это вам самому надо начать разбираться в том что этот код делает по шагам....
Вот например этот кусок кода что-то берет из excell и вставляет в explorer.
Код: vbnet
1.
2.
oWin1.Document.getElementsByTagName("input").Item(3).innertext = ThisWorkbook.Worksheets(1).Cells(i, 1)
oWin1.Document.getElementsByTagName("input").Item(6).Click


Что он именно берет, для чего вставляет ? Наверное я мог бы сам разобраться в этом вопросе - но вот если честно, мне лень.
Итак отвечаете на этот вопрос- определяем нужно ли это в Аксе и если нужно, подсказываем как сделать.
Потом идем дальше по коду.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2019, 09:55
    #39816206
alecko
alecko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
greker, а вы примечания то читали? раскомментируйте этот блок - будут закрываться все окна
Код: vbnet
1.
2.
3.
4.
5.
6.
'Этот блок кода должен закрыть браузер с неактивной ссылкой link - закрывает активные окна подряд
For Each oWin In oShApp.Windows
    If InStr(oWin.LocationURL, link) = 0 Then
       oWin.Quit
   End If
Next


или вот это: причина создания файлов именно в эксель
Код: vbnet
1.
' этот код сохраняет созданный файл в архиве, т.е. их создается очень много, ну и


вот здесь они создаются в другой директории
Код: vbnet
1.
2.
3.
4.
5.
ActiveWorkbook.Save
    ChDir "папка, куда сохраняется файл с данными"
    ActiveWorkbook.SaveAs Filename:= _
        "путь для сохранения" & Date & "_МБ.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


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

Этот блок берёт значение из excel, вставляет его в поле в ie, нажимает кнопку в ie для выгрузки данных, которые копируются в таблицу в excel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2019, 10:39
    #39816239
greker
greker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
alecko,

Блок закрывает активное окно ie.
Пути папок в самом коде верные, рабочие, просто путь в сетевой перс очень длинный, я его заменил немного.

Сам код рабочий, вопрос в адаптации его под vba access вместо excel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2019, 10:51
    #39816254
greker
greker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
Serg197311,

Насчёт просто так тоже обсуждаемо)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2019, 11:04
    #39816263
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
grekerSerg197311,

Этот блок берёт значение из excel,
Ну да, ну да....КАКОЕ ЗНАЧЕНИЕ???
и откуда его взять, если не использовать excell?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2019, 11:04
    #39816266
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel в Access
grekerSerg197311,

Насчёт просто так тоже обсуждаемо)
Не, это не ко мне....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA Excel в Access / 25 сообщений из 33, страница 1 из 2
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 442ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1610697]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 317ms
total:  442ms
x
x
Закрыть


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