Макрос для извлечения номеров телефонов из сканированного текста
Пользователь
Сообщений: Регистрация: 01.01.1970
19.05.2014 07:31:46
Добый день. Есть такая задача. Имеется сканированный и переведенный в Excel текст с данными из которого на другой лист необходимо извлечь номера телефонов в одиннадцатизначном формате и номер отправления. Если номера телефона в тексте нет, или он городской, то их пропустить.
Корректировка кода, Изменить код макроса
Пользователь
Сообщений: Регистрация: 01.01.1970
07.01.2014 10:58:40
Цитата
Добрый день. Есть такой макрос: Sub ПОСТ_ВРУЧЕННЫЕ() Dim oIE As Object, sHTML As String, tmp, i As Long, j As Long Set oIE = CreateObject("InternetExplorer.Application" ;) oIE.Visible = 0 oIE.Navigate ("" ;) Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop For j = 6 To Cells(Rows.Count, 2).End(xlUp).Row oIE.Document.forms(0).elements("barCode" ;) .Value = Cells(j, 2).Value oIE.Document.forms(0).elements("barCodeSearchBtn" ;) .Click Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop sHTML = oIE.Document.body.innerhtml tmp = Split(sHTML, "<" ;) For i = 0 To UBound(tmp) If InStr(tmp(i), "Приём" > 0 Then Cells(j, 3) = Format(Split(tmp(i + 2), ">" ;) (1), "DD.MM.YYYY" ;) Cells(j, 4) = Split((Split(tmp(i + 6), ">" ;) (1)), " "(0) End If If InStr(tmp(i), "Вручение" > 0 Then Cells(j, 5) = Format(Split(tmp(i + 2), ">"(1), "DD.MM.YYYY" Cells(j, 6) = Split(tmp(i + 4), ">"(1) Cells(j, 7) = Split(tmp(i + 10), ">"(1) Exit For End If Next Next Set oIE = Nothing Application.ScreenUpdating = True End Sub
После изменений на сайте, стал некорректно работать "Прием", то есть он стал брать данные от второго найденного слова "Прием", а нужно чтобы данные брались от первого. Вопрос что нужно для этого изменить в коде.
Изменено: - 09.01.2014 04:53:52
Создать штрих-код, читаемый сканером из имеющихся букв и цифр
Пользователь
Сообщений: Регистрация: 01.01.1970
20.09.2011 07:56:12
Кто может подсказать как в Excel из имеющихся буквенно-цифровых выражений сделать штрих-код, воспринимаемый сканером.
[ Закрыто] МАКРОС ДЛЯ ПРОВЕРКИ ПОЧТОВЫХ ОТПРАВЛЕНИЙ
Пользователь
Сообщений: Регистрация: 01.01.1970
27.06.2011 07:18:57
МОЖНО ЛИ СОЗДАТЬ МАКРОС ДЛЯ ПРОВЕРКИ ПОЧТОВОГО ОТПРАВЛЕНИЯ ПО ШТРИХ-КОДУ. ТО ЕСТЬ ЧТОБЫ ИЗ ОДНОГО СТОЛБЦА БРАЛСЯ ИМЕЮЩИЙСЯ ШТРИХ КОД, А ИЗ (ИВЦ ОАСУ РПО - Отслеживание РПО) ВОЗВРАШАЛИСЬ ДАННЫЕ О ДАТЕ ПРИЕМА, МЕСТЕ ПРИЕМА,ВЕСЕ, ДАТЕ ВРУЧЕНИЯ. И ЧТО БЫ АВТОМАТИЧЕСКИ ПРОВЕРЯЛСЯ ВЕСЬ СТОЛБЕЦ.
