Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Пересохранение файла (копирование с заменой)

Автор lovko, 12.11.2014, 18:15

« назад - далее »

lovko

Здравствуйте! Подскажите, пожалуйста, макрос для следующего действия.
Файл, находящийся в С\Работа\Неделя\День1.xlsm ,
необходимо сохранить в
С\Пользователи\user\OneDrive\Архив\...
Причем в папке OneDrive такой файл уже существует. Нужно, чтобы он автоматически заменялся новым, при этом не выскакивало никаких диалоговых окон.
Большое спасибо!

lovko

Такой же файл существует не в папке OneDrive, а в папке Архив. Извините, описка.

lovko

#2
Удалось разобраться самому

Sub Архивация()
   Application.Workbooks.Open ("c:\Работа\Неделя\День1.xlsm")
     Dim x As String
    strPath = "C:\Users\OneDrive\Архив"
    On Error Resume Next
    x = GetAttr(strPath) And 0
    If Err = 0 Then
        FileNameXls = strPath & "\" & "День1" & ".xlsm"
        ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
        ActiveWorkbook.Save
        ActiveWindow.Close
        Else
        MsgBox "Папка " & strPath & " недоступна или не существует!", vbCritical
    End If
End Sub