Автоматическое получение данных из закрытой книги.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматическое получение данных из закрытой книги. (Формулы/Formulas)

stalber

Дата: Вторник, 26.12.2017, 17:00 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 370

Репутация: 7 ±

Замечаний: 40% ±

Excel 2021

Здравствуйте, помогите доработать код пожалуйста:

Нужно чтобы макрос включался, каждые 30 секунд самостоятельно.

[vba]

Код

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 = True
End Sub

[/vba]

Сообщение отредактировал awaddwaawddw - Вторник, 26.12.2017, 17:14

Ответить

Nic70y

Дата: Вторник, 26.12.2017, 17:25 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8761

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

Вам таймер нужен?
[vba]

Код

Application.Wait Now + TimeSerial(0, 0, 30)

[/vba]

ЮMoney 41001841029809

Ответить

bmv98rus

Дата: Вторник, 26.12.2017, 17:35 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

скорее
Application.OnTime Now + TimeSerial(0, 0, 30), "Get_Value_From_Close_Book"

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

stalber

Дата: Вторник, 26.12.2017, 17:37 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 370

Репутация: 7 ±

Замечаний: 40% ±

Excel 2021

Именно этот код

Код

Application.OnTime Now + TimeSerial(0, 0, 30), "Get_Value_From_Close_Book"

Заработал. Спасибо!

Ответить

Hugo

Дата: Вторник, 26.12.2017, 18:44 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3253

Репутация: 707 ±

Замечаний: 0% ±

2019

На всякий случай гляньте в хелпе пример кода как этот Application.OnTime сбросить - когда-нибудь пригодится.
Для этого задавайте время через публичную переменную.

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

bmv98rus

Дата: Вторник, 26.12.2017, 20:47 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

да, и для вашего случая :-) Workbooks.Open FileName:="C:\Users\1ukom.xlsm" '" , ReadOnly:=True

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

krosav4ig

Дата: Среда, 27.12.2017, 13:48 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

а обновление каждую минуту не подойдет?

К сообщению приложен файл: 4092068.xlsx (15.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 27.12.2017, 13:48

Ответить

bmv98rus

Дата: Среда, 27.12.2017, 14:48 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

krosav4ig, так как в теме(темах) от рождения их, то отвечу, не подходит не период, а MS Query
http://www.excelworld.ru/forum/6-36590-240513-16-1513574684 и http://www.excelworld.ru/forum/6-36590-241062-16-1514245447

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

stalber

Дата: Среда, 21.03.2018, 11:36 | Сообщение № 9

Группа: Проверенные

Ранг: Обитатель

Сообщений: 370

Репутация: 7 ±

Замечаний: 40% ±

Excel 2021

Вопрос всё по этому коду:

[vba]

Код

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

[/vba]

Вопрос данный код выполняет: Записываем данные на активный лист книги, с которой запустили макрос

Что нужно исправить в коде, чтобы данные записывались на неактивный лист, например мне нужно чтобы данные записались в Лист1, но при этом я сижу и работаю с Лист2

Сообщение отредактировал awaddwaawddw - Среда, 21.03.2018, 11:37

Ответить

Страница 1 из 1
1