Автоматическое получение данных из закрытой книги.
stalber
Дата: Вторник, 26.12.2017, 17:00 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 371
Репутация:
7
±
Замечаний:
40% ±
Здравствуйте, помогите доработать код пожалуйста:
Sub Get_Value_From_Close_Book()Dim sShName As String , sAddress As String , vData'Отключаем обновление экрана False "C:\Users\1ukom.xlsm" '" "A1:O2000" 'или одна ячейка - "A1" 'получаем значение "Лист1" ).Range(sAddress).ValueFalse 'Записываем данные на активный лист книги, 'с которой запустили макрос If IsArray (vData) Then [A1] .Resize(UBound (vData, 1 ), UBound (vData, 2 )).Value = vDataElse [A1] = vDataEnd If 'Включаем обновление экрана True End Sub
Здравствуйте, помогите доработать код пожалуйста:
Sub Get_Value_From_Close_Book()Dim sShName As String , sAddress As String , vData'Отключаем обновление экрана False "C:\Users\1ukom.xlsm" '" "A1:O2000" 'или одна ячейка - "A1" 'получаем значение "Лист1" ).Range(sAddress).ValueFalse 'Записываем данные на активный лист книги, 'с которой запустили макрос If IsArray (vData) Then [A1] .Resize(UBound (vData, 1 ), UBound (vData, 2 )).Value = vDataElse [A1] = vDataEnd If 'Включаем обновление экрана True End Sub
stalber Сообщение отредактировал awaddwaawddw - Вторник, 26.12.2017, 17:14
Ответить
Сообщение Здравствуйте, помогите доработать код пожалуйста:
Sub Get_Value_From_Close_Book() Dim sShName As String ; sAddress As String ; vData 'Отключаем обновление экрана Application.ScreenUpdating = False Workbooks.Open "C:\Users\1ukom.xlsm" '" 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
Автор - stalber 26.12.2017 в 17:00
Nic70y
Дата: Вторник, 26.12.2017, 17:25 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9133
Репутация:
2416
±
Замечаний:
0% ±
Вам таймер нужен?
Application.Wait Now + TimeSerial (0 , 0 , 30 )
Вам таймер нужен?
Application.Wait Now + TimeSerial (0 , 0 , 30 )
Nic70y ЮMoney 41001841029809
Ответить
Сообщение Вам таймер нужен?
Application.Wait Now + ТimeSerial(0; 0; 30)
Автор - Nic70y 26.12.2017 в 17:25
bmv98rus
Дата: Вторник, 26.12.2017, 17:35 |
Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация:
772
±
Замечаний:
0% ±
скорее
скорее bmv98rus Замечательный Временно просто медведь , процентов на 20 .
Ответить
Сообщение скорее Автор - bmv98rus 26.12.2017 в 17:35
stalber
Дата: Вторник, 26.12.2017, 17:37 |
Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 371
Репутация:
7
±
Замечаний:
40% ±
Именно этот код
Application.OnTime Now + ТimeSerial(0; 0; 30); "Get_Value_From_Close_Book"
Именно этот код
Application.OnTime Now + ТimeSerial(0; 0; 30); "Get_Value_From_Close_Book"
stalber
Ответить
Сообщение Именно этот код
Application.OnTime Now + ТimeSerial(0; 0; 30); "Get_Value_From_Close_Book"
Автор - stalber 26.12.2017 в 17:37
Hugo
Дата: Вторник, 26.12.2017, 18:44 |
Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация:
814
±
Замечаний:
0% ±
На всякий случай гляньте в хелпе пример кода как этот Application.OnTime сбросить - когда-нибудь пригодится.
На всякий случай гляньте в хелпе пример кода как этот Application.OnTime сбросить - когда-нибудь пригодится. Hugo webmoney: E265281470651 Z422237915069
Ответить
Сообщение На всякий случай гляньте в хелпе пример кода как этот Application.OnTime сбросить - когда-нибудь пригодится. Автор - Hugo 26.12.2017 в 18:44
bmv98rus
Дата: Вторник, 26.12.2017, 20:47 |
Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация:
772
±
Замечаний:
0% ±
да, и для вашего случая :-) Workbooks.Open FileName:="C:\Users\1ukom.xlsm" '" , ReadOnly:=True
да, и для вашего случая :-) Workbooks.Open FileName:="C:\Users\1ukom.xlsm" '" , ReadOnly:=True bmv98rus Замечательный Временно просто медведь , процентов на 20 .
Ответить
Сообщение да, и для вашего случая :-) Workbooks.Open FileName:="C:\Users\1ukom.xlsm" '" , ReadOnly:=True Автор - bmv98rus 26.12.2017 в 20:47
krosav4ig
Дата: Среда, 27.12.2017, 13:48 |
Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
а обновление каждую минуту не подойдет?
а обновление каждую минуту не подойдет? krosav4ig email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 27.12.2017, 13:48
Ответить
Сообщение а обновление каждую минуту не подойдет? Автор - krosav4ig 27.12.2017 в 13:48
bmv98rus
Дата: Среда, 27.12.2017, 14:48 |
Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация:
772
±
Замечаний:
0% ±
Замечательный Временно просто медведь , процентов на 20 .
Ответить
stalber
Дата: Среда, 21.03.2018, 11:36 |
Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 371
Репутация:
7
±
Замечаний:
40% ±
Вопрос всё по этому коду:
Sub Get_Value_From_Close_Book()Now + TimeSerial (0 , 0 , 30 ), "Get_Value_From_Close_Book" Dim sShName As String , sAddress As String , vData'Отключаем обновление экрана False "C:\Users\1ukom.xlsm" '" , ReadOnly:=True "A1:O2000" 'или одна ячейка - "A1" 'получаем значение "Лист1" ).Range(sAddress).ValueFalse 'Записываем данные на активный лист книги, 'с которой запустили макрос If IsArray (vData) Then [A1] .Resize(UBound (vData, 1 ), UBound (vData, 2 )).Value = vDataElse [A1] = vDataEnd If 'Включаем обновление экрана True End Sub
Вопрос всё по этому коду:
Sub Get_Value_From_Close_Book()Now + TimeSerial (0 , 0 , 30 ), "Get_Value_From_Close_Book" Dim sShName As String , sAddress As String , vData'Отключаем обновление экрана False "C:\Users\1ukom.xlsm" '" , ReadOnly:=True "A1:O2000" 'или одна ячейка - "A1" 'получаем значение "Лист1" ).Range(sAddress).ValueFalse 'Записываем данные на активный лист книги, 'с которой запустили макрос If IsArray (vData) Then [A1] .Resize(UBound (vData, 1 ), UBound (vData, 2 )).Value = vDataElse [A1] = vDataEnd If 'Включаем обновление экрана True End Sub
stalber Сообщение отредактировал awaddwaawddw - Среда, 21.03.2018, 11:37
Ответить
Сообщение Вопрос всё по этому коду:
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 = FalseWorkbooks.Open "C:\Users\1ukom.xlsm" '" , ReadOnly:=ТruesAddress = "A1:O2000 " 'или одна ячейка - "A1 "'получаем значениеvData = Sheets("Лист1 ").Range(sAddress ).ValueActiveWorkbook.Close False'Записываем данные на активный лист книги ;'с которой запустили макросIf IsArray(vData ) Then [A1 ].Resize(UBound(vData ; 1); UBound(vData ; 2)).Value = vDataElse [A1 ] = vDataEnd If 'Включаем обновление экранаApplication.ScreenUpdating = ТrueEnd Sub
Автор - stalber 21.03.2018 в 11:36 
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
