!!!!! ОБНОВЛЕНИЕ ФАЙЛОВ БЕЗ ОТКРЫТИЯ!!!!! - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/!!!!! ОБНОВЛЕНИЕ ФАЙЛОВ БЕЗ ОТКРЫТИЯ!!!!! - Мир MS Excel

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

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

!!!!! ОБНОВЛЕНИЕ ФАЙЛОВ БЕЗ ОТКРЫТИЯ!!!!!

!!!!! ОБНОВЛЕНИЕ ФАЙЛОВ БЕЗ ОТКРЫТИЯ!!!!!

Дата: Вторник, 18.09.2012, 12:54 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Доброго времени суток!
Помогите пожалуйста!!!!
Имеется группа экселевских файлов (около 400), данные из которых сводятся в отдельном файле.
Данные в каждом файле зависят от даты, которая забивается в сводном файле, и на которую ссылаются эти отдельные файлы.
Как сделать так, чтобы дата (или ссылка) в тих файлах обновлялась автоматически без открытия файла???
Или, может, есть какая-то программка, которая бы запускала обновление этих файлов в определенное время?

Ответить

Дата: Вторник, 18.09.2012, 12:57 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Без открытия, боюсь, не получится. Но можно открывать файлы в фоновом режиме, так что пользователь этого не увидит

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Вторник, 18.09.2012, 13:47 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Serge_007, что значит открывать в фоновом режиме?
Я в excel новичок, можно сказать! Только учусь!

Ответить

Дата: Вторник, 18.09.2012, 14:29 | Сообщение № 4

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

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

Сообщений: 3688

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

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

365

Нашёл в закромах - откуда взял, не записано...

[vba]

Code

==============================================================
Применение макроса ко всем файлам из папки
Папка = "полный путь папки"

         '------------ Excel-файлы в этой папке ------------------
               Имя = Dir(Папка & "*.xls*")
         Do While Имя <> ""
               Workbooks.Open FileName:=Папка & Имя , UpdateLinks:=True
               'здесь Ваш макрос делает свое грязное дело
               ActiveWorkbook.Close SaveChanges:=True
            Имя = Dir
         Loop

==============================================================

[/vba]

С доработкой вероятно так:
[vba]

Code

Sub update()

     With Application    'операции с приложением/отключаем для повышения скорости работы макроса
         .ScreenUpdating = False    'обновление экрана
         .DisplayAlerts = False    'вывод системных сообщений

         Папка = "полный путь папки"
         '------------ Excel-файлы в этой папке ------------------
         Имя = Dir(Папка & "*.xls*")
         Do While Имя <> ""
             With .Workbooks.Open _
                  (Filename:=Папка & Имя, UpdateLinks:=True)
                 'здесь Ваш макрос делает свое грязное дело
                 .Close SaveChanges:=True
             End With
             Имя = Dir
         Loop

         .ScreenUpdating = True    'обновление экрана
         .DisplayAlerts = True    'вывод системных сообщений
     End With
End Sub

[/vba]

Нашёл в закромах - откуда взял, не записано...

[vba]

Code

==============================================================
Применение макроса ко всем файлам из папки
Папка = "полный путь папки"

         '------------ Excel-файлы в этой папке ------------------
               Имя = Dir(Папка & "*.xls*")
         Do While Имя <> ""
               Workbooks.Open FileName:=Папка & Имя , UpdateLinks:=True
               'здесь Ваш макрос делает свое грязное дело
               ActiveWorkbook.Close SaveChanges:=True
            Имя = Dir
         Loop

==============================================================

[/vba]

С доработкой вероятно так:
[vba]

Code

Sub update()

     With Application    'операции с приложением/отключаем для повышения скорости работы макроса
         .ScreenUpdating = False    'обновление экрана
         .DisplayAlerts = False    'вывод системных сообщений

         Папка = "полный путь папки"
         '------------ Excel-файлы в этой папке ------------------
         Имя = Dir(Папка & "*.xls*")
         Do While Имя <> ""
             With .Workbooks.Open _
                  (Filename:=Папка & Имя, UpdateLinks:=True)
                 'здесь Ваш макрос делает свое грязное дело
                 .Close SaveChanges:=True
             End With
             Имя = Dir
         Loop

         .ScreenUpdating = True    'обновление экрана
         .DisplayAlerts = True    'вывод системных сообщений
     End With
End Sub

[/vba]Hugo

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

СообщениеНашёл в закромах - откуда взял, не записано...

[vba]

Code

==============================================================
Применение макроса ко всем файлам из папки
Папка = "полный путь папки"

         '------------ Excel-файлы в этой папке ------------------
               Имя = Dir(Папка & "*.xls*")
         Do While Имя <> ""
               Workbooks.Open FileName:=Папка & Имя , UpdateLinks:=True
               'здесь Ваш макрос делает свое грязное дело
               ActiveWorkbook.Close SaveChanges:=True
            Имя = Dir
         Loop

==============================================================

[/vba]

С доработкой вероятно так:
[vba]

Code

Sub update()

     With Application    'операции с приложением/отключаем для повышения скорости работы макроса
         .ScreenUpdating = False    'обновление экрана
         .DisplayAlerts = False    'вывод системных сообщений

         Папка = "полный путь папки"
         '------------ Excel-файлы в этой папке ------------------
         Имя = Dir(Папка & "*.xls*")
         Do While Имя <> ""
             With .Workbooks.Open _
                  (Filename:=Папка & Имя, UpdateLinks:=True)
                 'здесь Ваш макрос делает свое грязное дело
                 .Close SaveChanges:=True
             End With
             Имя = Dir
         Loop

         .ScreenUpdating = True    'обновление экрана
         .DisplayAlerts = True    'вывод системных сообщений
     End With
End Sub

[/vba]

Автор - Hugo
Дата добавления - 18.09.2012 в 14:29

Дата: Вторник, 18.09.2012, 14:32 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Hugo, спасибо большое! Только не могли бы Вы еще объяснить как создать макрос более подробно. что за чем.
ищу в сети, не могу найти.
не так много времени.
заранее спасибо!

Ответить

Дата: Вторник, 18.09.2012, 14:43 | Сообщение № 6

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

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

Сообщений: 3688

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

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

365

Подробнее тут:
http://www.excelworld.ru/publ/vba/first_step/excel_macro/39-1-0-114

Освоите простой код - можете попробовать этот (но сперва на тестовых файлах, или на копии рабочих в спецпапке).
Путь к папке пропишите вместо
Папка = "полный путь папки"
например
Папка = "C:\TMP\спецпапка\"

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Дата: Вторник, 18.09.2012, 15:40 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Hugo, спасибо!
попробую!

Ответить

Дата: Понедельник, 09.10.2017, 16:54 | Сообщение № 8

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

Здравствуйте,

Можете ли вы пояснить поподробнее код данный выше?
[vba]

Код

Sub update()
With Application 'операции с приложением/отключаем для повышения скорости работы макроса
.ScreenUpdating = False 'обновление экрана
.DisplayAlerts = False 'вывод системных сообщений

[/vba]
Папка (имеется ввиду что надо прописать имя папки ?)= "полный путь папки"
'------------ Excel-файлы в этой папке ------------------
Имя (о каком имени тут идет речь?)= Dir(Папка & "*.xls*") (имя папки & "*.xls*"?)
Do While Имя (каком имени тут идет речь?) <> ""
[vba]

Код

With .Workbooks.Open _
(Filename:=Папка & Имя, UpdateLinks:=True)
'здесь Ваш макрос делает свое грязное дело
.Close SaveChanges:=True
End With
Имя = Dir
Loop
.ScreenUpdating = True 'обновление экрана
.DisplayAlerts = True 'вывод системных сообщений
End With
End Sub

[/vba]

Извините за такие вопросы, но это единственное место где я нашла код на обновление файлов без открытия и так как я совсем новичок в работе с макросами не могу понять как его применить.

Спасибо за помощь!

Ответить

Дата: Понедельник, 09.10.2017, 16:58 | Сообщение № 9

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Доступно только для пользователей

Сообщение отредактировал _Boroda_ - Понедельник, 09.10.2017, 17:00

Ответить

Дата: Понедельник, 09.10.2017, 16:59 | Сообщение № 10

Группа: Админы

Ранг: Местный житель

Сообщений: 16710

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

- Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #)

И что значит

Цитата Margot, 09.10.2017 в 16:54, в сообщении № 8 ()

пояснить поподробнее код

? -

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Понедельник, 09.10.2017, 17:40 | Сообщение № 11

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

Цитата

И что значит
Цитата Margot, 09.10.2017 в 16:54, в сообщении № 8 ( писал(а)):
пояснить поподробнее код
? -

Имеется ввиду что нужно писать на месте слов "Папка" и "Имя":

Я написала этот код таким образом,что подставила вместо слова "папка" имя папки,где находятся файлы, которые нужно обновить (macrosMAJ) и вместо "Имя" - имя файла в котором изменяются данные (origine):

[vba]

Код

Sub update()
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        macrosMAJ = "C:\Users\...\macrosMAJ"

        origine = Dir(macrosMAJ & "*.xls*")
        Do While macrosMAJ <> ""
            With .Workbooks.Open _
                (Filename:=macrosMAJ & origine, UpdateLinks:=True)
                .Close SaveChanges:=True
            End With
            origine = Dir
        Loop
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
End Sub

[/vba]

Но код не работает и подчеркивает ошибку в строке :

[vba]

Код

With .Workbooks.Open _
(Filename:=macrosMAJ & origine, UpdateLinks:=True)

[/vba]

Сообщение отредактировал Margot - Вторник, 10.10.2017, 10:06

Ответить

Дата: Понедельник, 09.10.2017, 17:42 | Сообщение № 12

Группа: Админы

Ранг: Местный житель

Сообщений: 16710

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата _Boroda_, 09.10.2017 в 16:59, в сообщении № 10 ()

- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Понедельник, 09.10.2017, 17:59 | Сообщение № 13

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

Цитата

- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #)

я сделала как вы просили, но весь код заменяется на знак #

Ответить

Дата: Понедельник, 09.10.2017, 19:58 | Сообщение № 14

Группа: Админы

Ранг: Местный житель

Сообщений: 16710

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А Вы где кнопку нажимаете? На клавиатуре?
Нужно на панели. Вот здесь

К сообщению приложен файл: 4380908.jpg (24.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Вторник, 10.10.2017, 10:08 | Сообщение № 15

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

Спасибо за объяснение)) исправила

Ответить

Дата: Вторник, 10.10.2017, 10:20 | Сообщение № 16

Группа: Админы

Ранг: Местный житель

Сообщений: 16710

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А теперь я Вас огорчу - видите в макросе строчку
[vba]

Код

.Workbooks.Open

[/vba]? Так вот, эта строка ОТКРЫВАЕТ файл

Ну и ответы на Ваши вопросы -
1. нужно присвоить переменной "папка" значение полного пути к той папке, где лежит файл. Примерно вот так
[vba]

Код

Папка = "c:\Users\Моя\Прочее\Для_Excel\"

[/vba]
2. [vba]

Код

Имя = Dir(Папка & "*.xls*")

[/vba] "Имя" - это переменная. С тем же успехом можно было назвать "Imya". Кстати, как и "папка". Просто автор макроса посчитал, что так будет понятнее

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Вторник, 10.10.2017, 11:17 | Сообщение № 17

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

Спасибо за ответ!Теперь это понятно.

Переделала, но все равно строчка с "With Workbooks.Open Filename" подчеркивается :

[vba]

Код

Sub update()
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        macrosMAJ = "C:\Users\E500892\...\macrosMAJ"

        origine = Dir(macrosMAJ & "*.xls*")
        Do While origine <> ""
           With Workbooks.Open Filename:=macrosMAJ & origine, UpdateLinks:=True
                .Close SaveChanges:=True
            End With
            origine = Dir
        Loop
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
End Sub

[/vba]

Ответить

Фомулист

Дата: Вторник, 10.10.2017, 11:23 | Сообщение № 18

Фомулист

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

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

Сообщений: 398

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

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

Excel 2003

Цитата Margot, 10.10.2017 в 11:17, в сообщении № 17 ()

[vba]

Код

"C:\Users\E500892\...\macrosMAJ"

[/vba]

Потому, что это не полный путь к файлу. "..." в пути быть не должно. Скопируйте и вставьте именно полный путь к папке.

Терпение и труд всё перетрут!

Сообщение отредактировал Фомулист - Вторник, 10.10.2017, 11:25

Ответить

Дата: Вторник, 10.10.2017, 11:23 | Сообщение № 19

Группа: Админы

Ранг: Местный житель

Сообщений: 16710

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Конечно. Слеш забыли

Цитата Margot, 10.10.2017 в 11:17, в сообщении № 17 ()

macrosMAJ = "C:\Users\E500892\...\macrosMAJ"

Цитата _Boroda_, 10.10.2017 в 10:20, в сообщении № 16 ()

Папка = "c:\Users\Моя\Прочее\Для_Excel\"

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Вторник, 10.10.2017, 11:44 | Сообщение № 20

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

Исправила как вы написали, но опять не работает и та же строчка с "With Workbooks.Open Filename" подчеркнута:

[vba]

Код

Sub update()
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        macrosMAJ = "C:\Users\E500892\Desktop\Fichier de SUIVI\MBAV Barèmes\macrosMAJ\"

        origine = Dir(macrosMAJ & "*.xls*")
        Do While origine <> ""
            With Workbooks.Open Filename:=macrosMAJ & origine, UpdateLinks:=True
                .Close SaveChanges:=True
            End With
            origine = Dir
        Loop
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
End Sub

[/vba]

Ответить

!!!!! ОБНОВЛЕНИЕ ФАЙЛОВ БЕЗ ОТКРЫТИЯ!!!!!

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

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!