Макрос для автоматического обновления файлов

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для автоматического обновления файлов (Требуется помощь! Срочно!)

Дмитрий

Дата: Вторник, 02.04.2013, 13:14 | Сообщение № 1

Группа: Гости

Один хороший человек на этом же форуме выложил следующий macros. Позарез нужно его применение, но не получается. Может потому, что я настолько далек от всего этого.
Макрос помогает сделать обновление файла не открывая его вручную (все как я понял делается из исходного файла за раз).

ВОТ КАК БЫЛО СКАЗАНО:

[vba]

Код

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]

Код

Sub update()

With Application
.ScreenUpdating = False
.DisplayAlerts = False

Test2 = "C:\Test2\2.xlsx"

Testing = Dir(Test2 & "2.xls")
Do While Testing <> ""
With .Workbooks.Open _
(Filename:=Test2 & 2, UpdateLinks:=True)

.Close SaveChanges:=True
End With
Имя = Dir
Loop

.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub

[/vba]

Предварительно активировал макросы и сделал их доступными. Потом зашел в Visual Basic нажал Insert - Module. Появилось окошко, куда и вставил выше описанный макрос. Жму Play ниче не происходит(думал, что операция маленькая может быстро сделал). Закрыл все сохраняя (но при сохранении были кучи каких-то надписей). Зашел в нужный файл который должен был обновиться, но он не обновился НИЧЕРТА!

Код

[/vba]

ВОТ КАК БЫЛО СДЕЛАНО:

[vba]

Код

Ответить

СообщениеОдин хороший человек на этом же форуме выложил следующий macros. Позарез нужно его применение, но не получается. Может потому, что я настолько далек от всего этого.
Макрос помогает сделать обновление файла не открывая его вручную (все как я понял делается из исходного файла за раз).

ВОТ КАК БЫЛО СКАЗАНО:

[vba]

Код