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

Страницы: 1
При выполнении макроса с заблокированной ОС возникает проблема с буфером обмена
 
#
27.01.2023 13:49:12
Добрый день!

Вопрос касается выполнения макроса, который копирует таблицу и отправляет её в телеграм при заблокированной операционной системе(ОС). При разблокированной ОС всё работает как надо.

Ранее макрос работал без проблем, однако после НГ, что- то изменилось и при блокировке ОС, при выполнении макроса стала вылезать ошибка (RUN TIME ERROR 1004) c описаниями:
https://radikal.host/i/JeCeUg
до этого тоже была 1004 ошибка но с описанием меверный метод Range.....
Когда разблокирую ОС и нажму Debug в окошке - подсвечивает CopyPicture:

Код
Function Range_to_Picture(rng)
    Dim sName As String, wsTmpSh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With rng
    .CopyPicture                    ' ВОТ ЭТУ СТРОКУ ПОДСВЕЧИВАЕТ
        Set wsTmpSh = ThisWorkbook.Sheets.Add
        sName = ActiveWorkbook.FullName & "_" & ActiveSheet.Name & "_Range"
        With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart
            .ChartArea.Border.LineStyle = 0
            .Parent.Select
            .Paste
            .Export Filename:=sName & ".gif", FilterName:="GIF"
            .Parent.Delete
        End With
    End With
    wsTmpSh.Delete
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    Range_to_Picture = sName & ".gif"

End Function


Нашел похожую проблему:https://translated.turbopages.org/proxy_u....xceldev

Но не совсем понимаю, что надо сделать.

Кто- то еще сталкивался с данной проблемой?
WIN10
Office 2019
Изменено: Юрий М - 30.01.2023 08:27:10
 
Перейти    
VBA:выделение динамического диапазона с формулами
 
#
29.08.2022 10:19:53
Добрый день!

Помогите советом.
У меня есть таблица с данными(формулами).

Размер таблицы каждый раз должен быть разным, исходя из заполненности. Использую CurrentRegion для формирования нужного размера таблицы и уперся в то, что если по результатам выполнения формулы(например из- за ошибки) подставляется "" , то CurrentRegion всё равно считает это данными и добавляет эту строку в диапазон.

Во вложении выделил желтым ячейку с формулой.

Подскажите, как можно обойти эту проблему.
Вот код:
Код
Sub Test1()
 
MsgBox Range("A1").CurrentRegion.Address

End Sub

Заранее спасибо!
Изменено: Андрей - 29.08.2022 10:22:37
 
Перейти    
Импорт данных о погоде
 
#
27.04.2022 16:33:36
Добрый всем день!

Прошу подсказать как возможно подгрузить данные из источников о погоде(с обновлением данных при открытии файла). Смысл в том чтобы были данные о погоде на следующий рабочий день в виде таблицы:

Пробовал получить данные из https://api.openweathermap.org , но там как-то непонятно выгружаются данные в PQ.

Можно сделать выгрузку данных из условно яндекс погоды, но
1. не ясно как сделать привязку к дате(следующий рабочий день);
2. есть вероятность, что данные о погоде на странице яндекса переместятся в другое место и придётся всё переделывать.

Смотрел тут: https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=24191 - но не понял как получить доступ к XML.


Дайте, пожалуйста,  совет как быть.

UPD.

В общем покопался и нашел решение:

Выгружается всё более менее корректно. Скрин прикрепил.

Теперь возникла проблема с функцией =РАБДНИ: Она не учитывает рабочие субботы/воскресенья. И как автоматизировать это пока не понимаю.
Всё, что указано тут: https://www.planetaexcel.ru/techniques/6/13289/ работает. Спасибо Николаю!  Но что делать с рабочими выходными пока не знаю.

Может кто знает уже решение?
 
Перейти    
Страницы: 1
Наверх