Вопрос касается выполнения макроса, который копирует таблицу и отправляет её в телеграм при заблокированной операционной системе(ОС). При разблокированной ОС всё работает как надо.
Ранее макрос работал без проблем, однако после НГ, что- то изменилось и при блокировке ОС, при выполнении макроса стала вылезать ошибка (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
Помогите советом. У меня есть таблица с данными(формулами).
Размер таблицы каждый раз должен быть разным, исходя из заполненности. Использую CurrentRegion для формирования нужного размера таблицы и уперся в то, что если по результатам выполнения формулы(например из- за ошибки) подставляется "" , то CurrentRegion всё равно считает это данными и добавляет эту строку в диапазон.
Во вложении выделил желтым ячейку с формулой.
Подскажите, как можно обойти эту проблему. Вот код:
Код
Sub Test1()
MsgBox Range("A1").CurrentRegion.Address
End Sub
Прошу подсказать как возможно подгрузить данные из источников о погоде(с обновлением данных при открытии файла). Смысл в том чтобы были данные о погоде на следующий рабочий день в виде таблицы: Пробовал получить данные из https://api.openweathermap.org , но там как-то непонятно выгружаются данные в PQ.
Можно сделать выгрузку данных из условно яндекс погоды, но 1. не ясно как сделать привязку к дате(следующий рабочий день); 2. есть вероятность, что данные о погоде на странице яндекса переместятся в другое место и придётся всё переделывать.
Выгружается всё более менее корректно. Скрин прикрепил.
Теперь возникла проблема с функцией =РАБДНИ: Она не учитывает рабочие субботы/воскресенья. И как автоматизировать это пока не понимаю. Всё, что указано тут: https://www.planetaexcel.ru/techniques/6/13289/ работает. Спасибо Николаю! Но что делать с рабочими выходными пока не знаю.