Код ТН ВЭД с сайта
Oh_Nick
Дата: Воскресенье, 13.08.2023, 21:33 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Excel 2019
Всем доброго времени суток! Можете помочь с написанием макроса или направить на его создание в следующем: Я ввожу в ячейку А1 код тн вэд (например 7326909409) и в ячейку B1 появляется пошлина (10%), в ячейку С1 вставляется гиперссылка на этот код тн вэд (КОД ТН ВЭД ) Данные берутся с сайта alta.ru.
Всем доброго времени суток! Можете помочь с написанием макроса или направить на его создание в следующем: Я ввожу в ячейку А1 код тн вэд (например 7326909409) и в ячейку B1 появляется пошлина (10%), в ячейку С1 вставляется гиперссылка на этот код тн вэд (КОД ТН ВЭД ) Данные берутся с сайта alta.ru. Oh_Nick
Сообщение отредактировал Oh_Nick - Воскресенье, 13.08.2023, 21:43
Ответить
Сообщение Всем доброго времени суток! Можете помочь с написанием макроса или направить на его создание в следующем: Я ввожу в ячейку А1 код тн вэд (например 7326909409) и в ячейку B1 появляется пошлина (10%), в ячейку С1 вставляется гиперссылка на этот код тн вэд (КОД ТН ВЭД ) Данные берутся с сайта alta.ru. Автор - Oh_Nick Дата добавления - 13.08.2023 в 21:33
bigor
Дата: Понедельник, 14.08.2023, 11:35 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1228
Репутация:
236
±
Замечаний:
0% ±
нет
помочь с написанием макроса
обязательно макросом? это и формулами можно сделать
помочь с написанием макроса
обязательно макросом? это и формулами можно сделатьbigor
Ответить
Сообщение помочь с написанием макроса
обязательно макросом? это и формулами можно сделатьАвтор - bigor Дата добавления - 14.08.2023 в 11:35
Oh_Nick
Дата: Понедельник, 14.08.2023, 11:37 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Excel 2019
bigor , а как формулами? было бы здорово
bigor , а как формулами? было бы здоровоOh_Nick
Ответить
Сообщение bigor , а как формулами? было бы здоровоАвтор - Oh_Nick Дата добавления - 14.08.2023 в 11:37
bigor
Дата: Понедельник, 14.08.2023, 11:39 |
Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1228
Репутация:
236
±
Замечаний:
0% ±
нет
Oh_Nick , пробуйте ps пошлина со страницы вытаскивается? тогда все сложнее. Можно через попробовать вытащить
Oh_Nick , пробуйте ps пошлина со страницы вытаскивается? тогда все сложнее. Можно через попробовать вытащитьbigor
Сообщение отредактировал bigor - Понедельник, 14.08.2023, 11:44
Ответить
Сообщение Oh_Nick , пробуйте ps пошлина со страницы вытаскивается? тогда все сложнее. Можно через попробовать вытащитьАвтор - bigor Дата добавления - 14.08.2023 в 11:39
Oh_Nick
Дата: Понедельник, 14.08.2023, 11:44 |
Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Excel 2019
bigor , гиперссылка супер,а размер пошлины то не меняется...она должна меняться в зависимости от кода тн вэд..
bigor , гиперссылка супер,а размер пошлины то не меняется...она должна меняться в зависимости от кода тн вэд..Oh_Nick
Сообщение отредактировал Oh_Nick - Понедельник, 14.08.2023, 11:45
Ответить
Сообщение bigor , гиперссылка супер,а размер пошлины то не меняется...она должна меняться в зависимости от кода тн вэд..Автор - Oh_Nick Дата добавления - 14.08.2023 в 11:44
Oh_Nick
Дата: Понедельник, 14.08.2023, 13:13 |
Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Excel 2019
bigor , сможете подсказать как через вытащить?
bigor , сможете подсказать как через вытащить?Oh_Nick
Ответить
Сообщение bigor , сможете подсказать как через вытащить?Автор - Oh_Nick Дата добавления - 14.08.2023 в 13:13
Oh_Nick
Дата: Понедельник, 14.08.2023, 14:41 |
Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Excel 2019
попробовал вот такую функцию, но не полуается. в чем ошибка? [vba]Код
Function GetDutyRate(url As String) As String Dim xmlHttp As Object Dim html As Object Set xmlHttp = CreateObject("MSXML2.XMLHTTP") xmlHttp.Open "GET", url, False xmlHttp.send Set html = CreateObject("htmlfile") html.body.innerHTML = xmlHttp.responseText GetDutyRate = html.getElementsByClassName("duties-panel__row")(0).innerText End Function
[/vba]
попробовал вот такую функцию, но не полуается. в чем ошибка? [vba]Код
Function GetDutyRate(url As String) As String Dim xmlHttp As Object Dim html As Object Set xmlHttp = CreateObject("MSXML2.XMLHTTP") xmlHttp.Open "GET", url, False xmlHttp.send Set html = CreateObject("htmlfile") html.body.innerHTML = xmlHttp.responseText GetDutyRate = html.getElementsByClassName("duties-panel__row")(0).innerText End Function
[/vba] Oh_Nick
Ответить
Сообщение попробовал вот такую функцию, но не полуается. в чем ошибка? [vba]Код
Function GetDutyRate(url As String) As String Dim xmlHttp As Object Dim html As Object Set xmlHttp = CreateObject("MSXML2.XMLHTTP") xmlHttp.Open "GET", url, False xmlHttp.send Set html = CreateObject("htmlfile") html.body.innerHTML = xmlHttp.responseText GetDutyRate = html.getElementsByClassName("duties-panel__row")(0).innerText End Function
[/vba] Автор - Oh_Nick Дата добавления - 14.08.2023 в 14:41
Oh_Nick
Дата: Понедельник, 14.08.2023, 15:52 |
Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Excel 2019
Получилось написать вот такой парсер, но он работает только для кода 7326909409. Как сделать для остальных? [vba]Код
Function GetHTTPResponse(ByVal sURL As String) As String On Error Resume Next Set oXMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") With oXMLHTTP .Open "GET", sURL, False .send GetHTTPResponse = .responseText End With Set oXMLHTTP = Nothing End Function Function TNVED(Code As String, Poshlina As String) Text = GetHTTPResponse("https://www.alta.ru/tnved/code/7326909409/") StartText = "description" Start = InStr(1, Text, StartText) + Len(StartText) + 11 TNVED = Mid(Text, Start, 100) End Function
[/vba]
Получилось написать вот такой парсер, но он работает только для кода 7326909409. Как сделать для остальных? [vba]Код
Function GetHTTPResponse(ByVal sURL As String) As String On Error Resume Next Set oXMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") With oXMLHTTP .Open "GET", sURL, False .send GetHTTPResponse = .responseText End With Set oXMLHTTP = Nothing End Function Function TNVED(Code As String, Poshlina As String) Text = GetHTTPResponse("https://www.alta.ru/tnved/code/7326909409/") StartText = "description" Start = InStr(1, Text, StartText) + Len(StartText) + 11 TNVED = Mid(Text, Start, 100) End Function
[/vba] Oh_Nick
Ответить
Сообщение Получилось написать вот такой парсер, но он работает только для кода 7326909409. Как сделать для остальных? [vba]Код
Function GetHTTPResponse(ByVal sURL As String) As String On Error Resume Next Set oXMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") With oXMLHTTP .Open "GET", sURL, False .send GetHTTPResponse = .responseText End With Set oXMLHTTP = Nothing End Function Function TNVED(Code As String, Poshlina As String) Text = GetHTTPResponse("https://www.alta.ru/tnved/code/7326909409/") StartText = "description" Start = InStr(1, Text, StartText) + Len(StartText) + 11 TNVED = Mid(Text, Start, 100) End Function
[/vba] Автор - Oh_Nick Дата добавления - 14.08.2023 в 15:52
mgt
Дата: Вторник, 15.08.2023, 10:27 |
Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация:
25
±
Замечаний:
0% ±
Excel 2010
Замените [vba]Код
Text = GetHTTPResponse("https://www.alta.ru/tnved/code/7326909409/")
[/vba] на [vba]Код
Text = GetHTTPResponse("https://www.alta.ru/tnved/code/" & Range("a1").text & "/")
[/vba] и вставляйте коды в ячейку а1, как указали в первом посте.
Замените [vba]Код
Text = GetHTTPResponse("https://www.alta.ru/tnved/code/7326909409/")
[/vba] на [vba]Код
Text = GetHTTPResponse("https://www.alta.ru/tnved/code/" & Range("a1").text & "/")
[/vba] и вставляйте коды в ячейку а1, как указали в первом посте. mgt
Ответить
Сообщение Замените [vba]Код
Text = GetHTTPResponse("https://www.alta.ru/tnved/code/7326909409/")
[/vba] на [vba]Код
Text = GetHTTPResponse("https://www.alta.ru/tnved/code/" & Range("a1").text & "/")
[/vba] и вставляйте коды в ячейку а1, как указали в первом посте. Автор - mgt Дата добавления - 15.08.2023 в 10:27
Oh_Nick
Дата: Вторник, 15.08.2023, 10:32 |
Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Excel 2019
mgt , спасибо за совет!
Ответить
Сообщение mgt , спасибо за совет!Автор - Oh_Nick Дата добавления - 15.08.2023 в 10:32
Oh_Nick
Дата: Вторник, 15.08.2023, 12:35 |
Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Excel 2019
Если кому надо, то данный макрос вытягивает ставку пошлины по коду тн вэд с сайта alta.ru. Вбиваем Код ТН ВЭД в А1, в B1 пишется ставка.
Если кому надо, то данный макрос вытягивает ставку пошлины по коду тн вэд с сайта alta.ru. Вбиваем Код ТН ВЭД в А1, в B1 пишется ставка. Oh_Nick
Ответить
Сообщение Если кому надо, то данный макрос вытягивает ставку пошлины по коду тн вэд с сайта alta.ru. Вбиваем Код ТН ВЭД в А1, в B1 пишется ставка. Автор - Oh_Nick Дата добавления - 15.08.2023 в 12:35
bigorq
Дата: Четверг, 17.08.2023, 22:28 |
Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация:
47
±
Замечаний:
0% ±
Нет
как через =ВЕБСЛУЖБА() вытащить?
Лучше поздно... В а1 код, b1 промежуточная, которая тянет данные с сайта, в c1 ее обработка для нахождения ставки можно все в b1 сделать, но нужно будет 2 раза тянуться к сайту
как через =ВЕБСЛУЖБА() вытащить?
Лучше поздно... В а1 код, b1 промежуточная, которая тянет данные с сайта, в c1 ее обработка для нахождения ставки можно все в b1 сделать, но нужно будет 2 раза тянуться к сайтуbigorq
Ответить
Сообщение как через =ВЕБСЛУЖБА() вытащить?
Лучше поздно... В а1 код, b1 промежуточная, которая тянет данные с сайта, в c1 ее обработка для нахождения ставки можно все в b1 сделать, но нужно будет 2 раза тянуться к сайтуАвтор - bigorq Дата добавления - 17.08.2023 в 22:28
Oh_Nick
Дата: Воскресенье, 20.08.2023, 16:39 |
Сообщение № 13
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Excel 2019
bigorq , спасибо
Ответить
Сообщение bigorq , спасибоАвтор - Oh_Nick Дата добавления - 20.08.2023 в 16:39
Oh_Nick
Дата: Вторник, 10.10.2023, 09:10 |
Сообщение № 14
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Excel 2019
Всем добрый день! может кто подсказать, почему перестала вытягиваться пошлина по коду? может быть есть какие то обходные пути вытаскивать с alta.ru ставку пошлины под коду тн вэд?
Всем добрый день! может кто подсказать, почему перестала вытягиваться пошлина по коду? может быть есть какие то обходные пути вытаскивать с alta.ru ставку пошлины под коду тн вэд? Oh_Nick
Ответить
Сообщение Всем добрый день! может кто подсказать, почему перестала вытягиваться пошлина по коду? может быть есть какие то обходные пути вытаскивать с alta.ru ставку пошлины под коду тн вэд? Автор - Oh_Nick Дата добавления - 10.10.2023 в 09:10
bigor
Дата: Вторник, 10.10.2023, 21:22 |
Сообщение № 15
Группа: Проверенные
Ранг: Старожил
Сообщений: 1228
Репутация:
236
±
Замечаний:
0% ±
нет
Oh_Nick , формула работает
Oh_Nick , формула работаетbigor
Ответить
Сообщение Oh_Nick , формула работаетАвтор - bigor Дата добавления - 10.10.2023 в 21:22
Oh_Nick
Дата: Вторник, 10.10.2023, 22:53 |
Сообщение № 16
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Excel 2019
bigor , да, проверил сам. мб какие то неполадки с сайтом были.
bigor , да, проверил сам. мб какие то неполадки с сайтом были.Oh_Nick
Ответить
Сообщение bigor , да, проверил сам. мб какие то неполадки с сайтом были.Автор - Oh_Nick Дата добавления - 10.10.2023 в 22:53
acctrushkin
Дата: Понедельник, 02.09.2024, 00:29 |
Сообщение № 17
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация:
0
±
Замечаний:
0% ±
bigor , Приветствую! Прошу, так сказать, приподнять завесу! )) Раскройте хоть чуть информацию, как работает эта таблица? По какому принципу при вводе ТНВЭД подтягивается пошлина? Можно ли вытянуть все соответствия ТНВЭД - пошлина? Прошу помогите!
bigor , Приветствую! Прошу, так сказать, приподнять завесу! )) Раскройте хоть чуть информацию, как работает эта таблица? По какому принципу при вводе ТНВЭД подтягивается пошлина? Можно ли вытянуть все соответствия ТНВЭД - пошлина? Прошу помогите!acctrushkin
Сообщение отредактировал acctrushkin - Понедельник, 02.09.2024, 01:26
Ответить
Сообщение bigor , Приветствую! Прошу, так сказать, приподнять завесу! )) Раскройте хоть чуть информацию, как работает эта таблица? По какому принципу при вводе ТНВЭД подтягивается пошлина? Можно ли вытянуть все соответствия ТНВЭД - пошлина? Прошу помогите!Автор - acctrushkin Дата добавления - 02.09.2024 в 00:29
bigor
Дата: Понедельник, 02.09.2024, 09:12 |
Сообщение № 18
Группа: Проверенные
Ранг: Старожил
Сообщений: 1228
Репутация:
236
±
Замечаний:
0% ±
нет
acctrushkin , никакого секрета здесь нет © c помощью ВЕБСЛУЖБА() вытаскиваем страницу нужного ТНВЭД, а в С1 формула ищет на странице слово пошлины и берет 2 символа (значения процента пошлины) через 9 символов от начала слова пошлины (пошлины=7 символов+двоеточие+пробел) Коды ТНВЭД можно в столбец ниже прописать и протянуть формулы вниз, но каждая строка будет тянуть по странице с сайта, быстро это работать не будет
acctrushkin , никакого секрета здесь нет © c помощью ВЕБСЛУЖБА() вытаскиваем страницу нужного ТНВЭД, а в С1 формула ищет на странице слово пошлины и берет 2 символа (значения процента пошлины) через 9 символов от начала слова пошлины (пошлины=7 символов+двоеточие+пробел) Коды ТНВЭД можно в столбец ниже прописать и протянуть формулы вниз, но каждая строка будет тянуть по странице с сайта, быстро это работать не будетbigor
Ответить
Сообщение acctrushkin , никакого секрета здесь нет © c помощью ВЕБСЛУЖБА() вытаскиваем страницу нужного ТНВЭД, а в С1 формула ищет на странице слово пошлины и берет 2 символа (значения процента пошлины) через 9 символов от начала слова пошлины (пошлины=7 символов+двоеточие+пробел) Коды ТНВЭД можно в столбец ниже прописать и протянуть формулы вниз, но каждая строка будет тянуть по странице с сайта, быстро это работать не будетАвтор - bigor Дата добавления - 02.09.2024 в 09:12
Hugo
Дата: Понедельник, 02.09.2024, 09:25 |
Сообщение № 19
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
У меня ВЕБСЛУЖБА() что-то ничего не вытягивает, но UDF в файле Сообщение № 11 работает корректно, там правда аргумент лишний, но главное что работает.
У меня ВЕБСЛУЖБА() что-то ничего не вытягивает, но UDF в файле Сообщение № 11 работает корректно, там правда аргумент лишний, но главное что работает. Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Сообщение отредактировал Hugo - Понедельник, 02.09.2024, 09:26
Ответить
Сообщение У меня ВЕБСЛУЖБА() что-то ничего не вытягивает, но UDF в файле Сообщение № 11 работает корректно, там правда аргумент лишний, но главное что работает. Автор - Hugo Дата добавления - 02.09.2024 в 09:25