2016-05-08 6 views
-1

У меня есть код для сохранения открытого файла excel, но проблема в том, что у меня открыто более двух книг.Возможность автосохранения с использованием VBA

Sub Macro1() 
    Sheets("Sheet1").Select 
    Sheets("Sheet1").Copy 
End Sub 

Sub Autosave() 
    ActiveWorkbook.SaveAs Filename:="C:\Users\PCname\Desktop\" & Sheets("Sheet1").Range("A1").Text, _ 
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
End Sub 

1-й код создает новую книгу из необработанного файла, на котором выполняются все вычисления. Новое имя файла «Book1»

2-й код сохраняет активную книгу, но не сохраняет новую созданную книгу.

Может ли кто-нибудь помочь мне исправить это.

+0

Кто-то только что приступил к редактированию всего кода вашего предыдущего сообщения менее часа назад. На этот раз вы могли бы, по крайней мере, грамотно отформатировать свой собственный код. Не могли бы вы изменить свой вопрос, чтобы спасти кого-то еще? – Ambie

+0

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

+0

Эта страница должна помочь вам: http://stackoverflow.com/editing-help – Ambie

ответ

Смежные вопросы