Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Evgeny-E
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Скопировать содержимое pdf файла
 
#
19.05.2023 12:11:04
Есть ли какой-то способ с помощью макроса скопировать все содержимое открытого pdf файла без применения SendKeys? В pdf файле только текст.
 
Перейти    
On Error Resume Next не пропускает условие
 
#
13.02.2023 09:50:30
Здравствуйте.
Вот пример кода:
Код
Sub test()
    a = "abc"
    On Error Resume Next
    If a Then
        b = 123
    End If
End Sub
Поскольку в условии возникает ошибка, макрос пропускает строку с If и продолжает выполнять код дальше. А можно ли сделать так, чтобы макрос пропускал всё условие целиком? Т.е. не присваивал бы значение переменной b в случае ошибки.

Знаю, что можно сделать через On Error GoTo:
Код
Sub test()
    a = "abc"
    On Error GoTo prodolgenie
    If a Then
        b = 123
    End If
prodolgenie:
End Sub
Но у меня несколько условий подряд, On Error GoTo придется прописывать для каждого условия, было бы удобнее скопом через On Error Resume Next если это вообще возможно.
Изменено: Evgeny-E - 13.02.2023 09:51:53
 
Перейти    
Выбор из выпадающего списка на html странице через vba
 
#
10.12.2021 12:07:01
Пытаюсь написать макрос, который должен заполнять форму на сайте. В форме есть выпадающий список, и в зависимости от того, какой элемент выпадающего списка будет выбран, меняется и сама форма.

Мне удалось сделать так, чтобы макрос выбирал нужный элемент из выпадающего списка, но при этом форма почему-то не меняется, она остается такой как будто выбран элемент по умолчанию. Не могу понять, проблема у меня в коде или в самой форме на сайте?

Код макроса:
Код
Sub тест()

Dim oIE As Object

Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = 1
s = "http://support.fsa.gov.ru/"
oIE.Navigate (s)
Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop
                 
Set Start = oIE.Document.getElementsbyTagname("a")
Start(13).Click

Set SelectList = oIE.Document.getElementsbyTagname("Select")
SelectList(19).Value = "measurements"

End Sub
 
Перейти    
Не обновляются данные, полученные макросом через api
 
#
12.10.2021 15:30:13
Есть макрос, который получает данные через api. Для примера отсюда https://www.bitmex.com/api/v1/orderBook/L2?symbol=XBTUSD&depth=3
Допустим мне нужно получить самый первый параметр id.

Вот код макроса:
Код
Sub test()

    Dim httpObject As Object
    Set httpObject = CreateObject("MSXML2.XMLHTTP")
    
    URL = "https://www.bitmex.com/api/v1/orderBook/L2?symbol=XBTUSD&depth=3"
    httpObject.Open "GET", URL, False
    httpObject.Send
    res = httpObject.ResponseText
    
    Cells(1, 1) = Mid(res, 26, InStr(res, "side") - 28)

End Sub
Макрос должен выводить параметр id в ячейку А1. И в принципе он так и делает. Но значение id меняется и довольно быстро, это видно если открыть ссылку просто в браузере и обновлять страницу. Но макрос при повторном запуске параметр id не обновляет. Я пробовал в конце добавлять Set httpObject=nothing, это не помогает.
Как заставить макрос работать?  :(  
 
Перейти    
Заменить текст кодировке utf-8 с помощью Replace
 
#
14.09.2020 11:00:27
Есть xml файл с кодировкой UTF-8. Пытаюсь сделать макрос, который будет в  этом файле менять фразу "Заменить это" на "Заменено" с помощью функции  Replace. Ничего не получается, макрос запускается, но исходный файл  остается без изменений.

Если все то же самое проделать с файлом с кодировкой ANSI, то работает.
Если использовать латинские буквы, т.е. попытаться заменить фразу "Zamenit eto" на "Zameneno", то тоже работает.
Подскажите в чем может быть проблема.

Текст макроса:
Код
Sub Замена()  
  file = "Для замены.xml"
  Path = ActiveWorkbook.Path & "\" & file
  
  Open Path For Input As #1
  s = Input(LOF(1), 1)
  NewFile = Replace(s, "Заменить это", "Заменено")
  Close #1
  
  Open Path For Output As #2
  Print #2, NewFile
  Close #2  
End Sub

xml файл не дает прикрепить почему-то, там всего три строки
Код
Это не надо менять
Заменить это
Это тоже не надо менять
 
Перейти    
Макрос для преобразования файла в двоичные данные
 
#
08.09.2020 13:03:22
Всем привет.

Не знаю насколько хорошо у меня получиться объяснить суть вопроса.
Мне нужно преобразовать файл в двоичные данные, т.е. в последовательность символов из букв и цифр.
Есть таблица Excel, в ячейке А1 ссылка на файл, мне нужно чтобы в ячейке В1 отображались двоичные данные, полученные преобразованием файла из ячейки А1. Стандартных функций в экселе, которые что-то подобное делали я не нашел, можно ли это сделать с помощью макроса?
 
Перейти    
Страницы: 1
Наверх