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

Здравствуйте, top4, Вы писали:

T>Есть необходимиость часто открывать большое количество файлов в Excel, а потом их сохранять в другом месте, помогите "чайнику" этот пустяк реализовать в макросе, файлы надо сохранять с теми же именами с которыми их открыли...

Ну вот примерно вот так... (толко тебе придёться ещё доработать его(модуль) )

Sub gooo()
Dim WorkbooksCnt As Workbook
Dim NameFolder As String 'имя папки
Dim FileNameStr As String 'имя файла
Dim i As Long
i = 0
NameFolder = "c:\"

For Each WorkbooksCnt In Application.Workbooks
i = i + 1
FileNameStr = Application.Workbooks.Item(i).Name
Application.DisplayAlerts = False 'откдючаем окно запроса 'Сохранения'
Application.ActiveWorkbook.SaveAs Filename:=NameFolder & "\" & FileNameStr, FileFormat:=-4143, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False 'Сохраняем отработаный файл
If WorkbooksCnt.Saved = True Then 'Если сохранён
MsgBox "Файл " & FileNameStr & " успешно сохранён."
Else
MsgBox "Файл " & FileNameStr & " не сохранён."
End If
Next WorkbooksCnt
End Sub