Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Web-запрос и получение результата
 
Здравствуйте, уважаемые форумчане

Помогите пожалуйста с вопросом, нужно создать запрос к сайту https://www.e-taxes.gov.az/ebyn/edvPayerChecker.jsp в поле поиска брать значения из столбца "А" , осуществить поиск и полученный результат вставить в соответствующую ячейку в столбце "B". Пытался сам что-то составить, пока получилось только вбить первое значение и имитировать клик. Спасибо.

Код
Sub getdatastuff()
Dim ie As Object

    Set ie = CreateObject("InternetExplorer.Application")
    ie.navigate "https://www.e-taxes.gov.az/ebyn/edvPayerChecker.jsp"
    ie.Visible = True
    While ie.Busy
        DoEvents
    Wend

    ie.Document.all("name").Value = Cells(1, 1).Value
    ie.Document.all("submit").Click

End Sub
Изменение строчки кода VBA с помощью VBA
 
Здравствуйте уважаемый форумчане,

У меня есть несколько идентичных макросов (макросы в определенном стоблце ищут совпадения со списком), в которых часто меняется строка c кодом "Const codesToFind". Возможно ли дать возможность через UserForm выбирая  в каком макросе сделать изменения отредактировать эту строку?
Код
Sub offshorecountryben(control As IRibbonControl)
    Dim rng As Range, c As Range, sToFind() As String
    Dim i As Long, n As Long, k As Long, f As Boolean
    Dim rFst As Long, rLst As Long
    Const codesToFind = "LU AD MU BS BH CW KY CY JE MT PA UY GG MC BZ VU BM BN BB AG AI AW IM CK WS DM GI CR SC LI CV BW KN MO SX MS NR MH PW LC VC GD VG LV NU LT MV AN VI LR LI HK AN"
    Application.ScreenUpdating = False
    With ActiveWorkbook
        n = .Sheets.count
        With .Sheets("Report 1")
            With .UsedRange
                With .Find("Beneficiary Bank")
                    k = .Column
                    rFst = .Row + 1
                End With
                rLst = .Row + .Rows.count - 1
            End With
            Set rng = .Range(.Cells(rFst, k), .Cells(rLst, k))
            .Copy After:=ActiveWorkbook.Sheets(n)
        End With
        With .Sheets(n + 1)
            .Range(rng.Address).EntireRow.Delete
            For Each c In rng
                f = False
                For i = 0 To UBound(sToFind)
                    If c Like "????" & sToFind(i) & "*" Then
                        f = True
                        Exit For
                    End If
                Next i
                If f Then
                    c.EntireRow.Copy .Rows(rFst)
                    rFst = rFst + 1
                End If
            Next c
        End With
    End With
    Application.ScreenUpdating = True
End Sub

Спасибо.
Копирование данных с листа на лист и дальнейшая печать страниц
 
Добрый день!

Уважаемые форумчане помогите в следующем вопросе:

Нужно, чтоб при нажатии кнопки "Print" выводилось input cообщение с вопросом о номере ряда клиента который нужен для распечатки, после указания номера ряда со страницы "Card Order" копируется информация соответствующего ряда (нужные столбцы указаны зеленым цветом) и копируется на лист "Info" и после этого дается на печать страницы "Print 1" и "Print 2".

Cпасибо заранее за любую помощь!
С уважением.
Копирование данных с одного листа на другой
 
Уважаемые форумчане!

Помогите макросом, задача которого при нажатии на кнопку SAVE заключается в копирование данных с листа "Info" столбец "B" и вставить данные на лист "AMLTable" начиная со строки А2. При повторном нажатии на кнопку, данные на листе "AMLTable" не перезаписывались, а дополнялись.

Заранее благодарю.
Макрос для веб-запроса: поиск по всему столбцу
 
Здравствуйте,

Нашел код в интернете, помогите пожалуйста его немного изменить, чтоб он производил поиск по всему столбцу А и вставлял результат в соотвествующую ячейку B
Код
Sub URL_Get_VOEN_status()
strSearch = Range("$A$1")
With ActiveSheet.QueryTables.Add(Connection:="URL;http://e-taxes.gov.az/isvatpayer/" & strSearch, _
Destination:=Range("$B$1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub

Спасибо большое
Автоматизация составления отчета
 
Здравствуйте,

Помогите упростить работу и затрачивать на все операции меньшее количество времени.
Есть 3 файла:
Файл «А» – Который каждый день выгружается из операционной системы, состоит из списка операций по счетам.
Файл «Б» – База данных в котором находятся информация о владельцах счетов и сами счета непосредственно.
Файл «В» – Пустой файл в котором будет составляться отчет

Нужно: Чтоб макрос производил поиск по счетам из файла «А» в файле «Б», после совпадения, копировал всю строчку из файла «Б» в файл «В». Потом опять возвращался в файл «А» и копировал суммы и тип операций и некоторые данные в соответствующие ячейки в файле «В» и так по всем операциям. В конце же выдавалось окно которое говорило об успешности копирования или же списком ненайденных счетов в базе.

К сожалению файлы приложить не могу, но могу послать в ЛС если понадобится.
На счет цен, я не знаю, так как это мой первый заказ, но если задача Вас заинтересует, Вы обращайтесь, я думаю мы сможем договориться.
Просьба писать в личку.
Страницы: 1
Наверх