stalber
Дата: Воскресенье, 11.02.2018, 17:06 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 371
Репутация:
7
±
Замечаний:
40% ±
Excel 2021
Добрый день! PS: НЕ понимаю почему код не получается адекватно опубликовать! Первый раз такое. Но не в коде дело, дело в самом предупреждении. Из закрытой книги в открытую пустую книгу иммпортируются данные, установлена периодичность каждые 30 секунд. Вот сам код автообновления:
Sub Get_Value_From_Close_Book()
Application.OnTime Now + TimeSerial (0 , 0 , 30 ), "Get_Value_From_Close_Book"
Dim sShName As String , sAddress As String , vData
'Отключаем обновление экрана
Application.ScreenUpdating = False
Workbooks.Open "C:\Users\1ukom.xlsm" '" , ReadOnly:=True
sAddress = "A1:O2000" 'или одна ячейка - "A1"
'получаем значение
vData = Sheets("Лист1" ).Range(sAddress).Value
ActiveWorkbook.Close False
'Записываем данные на активный лист книги,
'с которой запустили макрос
If IsArray (vData) Then
[A1] .Resize(UBound (vData, 1 ), UBound (vData, 2 )).Value = vData
Else
[A1] = vData
End If
'Включаем обновление экрана
Application.ScreenUpdating = True
End Sub
Буквально каждые 30 минут выскакивает предупреждение (на фото ниже). Как избавиться от него? Раздражает каждые пол часа это предупреждение.
Добрый день! PS: НЕ понимаю почему код не получается адекватно опубликовать! Первый раз такое. Но не в коде дело, дело в самом предупреждении. Из закрытой книги в открытую пустую книгу иммпортируются данные, установлена периодичность каждые 30 секунд. Вот сам код автообновления:
Sub Get_Value_From_Close_Book()
Application.OnTime Now + TimeSerial (0 , 0 , 30 ), "Get_Value_From_Close_Book"
Dim sShName As String , sAddress As String , vData
'Отключаем обновление экрана
Application.ScreenUpdating = False
Workbooks.Open "C:\Users\1ukom.xlsm" '" , ReadOnly:=True
sAddress = "A1:O2000" 'или одна ячейка - "A1"
'получаем значение
vData = Sheets("Лист1" ).Range(sAddress).Value
ActiveWorkbook.Close False
'Записываем данные на активный лист книги,
'с которой запустили макрос
If IsArray (vData) Then
[A1] .Resize(UBound (vData, 1 ), UBound (vData, 2 )).Value = vData
Else
[A1] = vData
End If
'Включаем обновление экрана
Application.ScreenUpdating = True
End Sub
Буквально каждые 30 минут выскакивает предупреждение (на фото ниже). Как избавиться от него? Раздражает каждые пол часа это предупреждение. stalber
Сообщение отредактировал awaddwaawddw - Воскресенье, 11.02.2018, 17:13
Ответить
Сообщение Добрый день! PS: НЕ понимаю почему код не получается адекватно опубликовать! Первый раз такое. Но не в коде дело, дело в самом предупреждении. Из закрытой книги в открытую пустую книгу иммпортируются данные, установлена периодичность каждые 30 секунд. Вот сам код автообновления: [vba]
Sub Get_Value_From_Close_Book() Application.OnTime Now + ТimeSerial(0; 0; 30); "Get_Value_From_Close_Book" Dim sShName As String ; sAddress As String ; vData 'Отключаем обновление экрана Application.ScreenUpdating = False Workbooks.Open "C:\Users\1ukom.xlsm" '" , ReadOnly:=Тrue sAddress = "A1:O2000 " 'или одна ячейка - "A1 " 'получаем значение vData = Sheets("Лист1 ").Range(sAddress ).Value ActiveWorkbook.Close False 'Записываем данные на активный лист книги ; 'с которой запустили макрос If IsArray(vData ) Then [A1 ].Resize(UBound(vData ; 1); UBound(vData ; 2)).Value = vData Else [A1 ] = vData End If 'Включаем обновление экрана Application.ScreenUpdating = ТrueEnd Sub
[/vba] Буквально каждые 30 минут выскакивает предупреждение (на фото ниже). Как избавиться от него? Раздражает каждые пол часа это предупреждение. Автор - stalber Дата добавления - 11.02.2018 в 17:06
bmv98rus
Дата: Воскресенье, 11.02.2018, 17:30 |
Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация:
772
±
Замечаний:
0% ±
Excel 2013/2016
Application.DisplayAlerts = False
Application.DisplayAlerts = False bmv98rus
Замечательный Временно просто медведь , процентов на 20 .
Ответить
Сообщение Application.DisplayAlerts = False Автор - bmv98rus Дата добавления - 11.02.2018 в 17:30
Pelena
Дата: Воскресенье, 11.02.2018, 18:09 |
Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19518
Репутация:
4632
±
Замечаний:
±
Excel 365 & Mac Excel
В Excel 2013 Параметры - Центр управления безопасностью - Параметры центра управления безопасностью - Параметры конфиденциальности - снять флажок: Удалять персональные данные из свойств файла при сохранении
В Excel 2013 Параметры - Центр управления безопасностью - Параметры центра управления безопасностью - Параметры конфиденциальности - снять флажок: Удалять персональные данные из свойств файла при сохранении Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение В Excel 2013 Параметры - Центр управления безопасностью - Параметры центра управления безопасностью - Параметры конфиденциальности - снять флажок: Удалять персональные данные из свойств файла при сохранении Автор - Pelena Дата добавления - 11.02.2018 в 18:09