Savecopyas
Автор LuNa задал вопрос в разделе Программное обеспечение
Помогите с макросом - удаление листов по условию в сохраняемом файле. и получил лучший ответ
Ответ от Андрей Тихомиров[гуру]
Ответ от Michael Moss[гуру]
Sub Backup_Active_Workbook()-14
Dim x As String
Dim i As Integer
strPath = "С: Temp"
On Error Resume Next
x = GetAttr(strPath) And 0
If Err = 0 Then
strDate = Format(Now, "dd/mm/yy,hh-mm")
Else
MsgBox "Папка " & strPath & " недоступна или не существует", vbCritical: End
End If
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name Like "*14*" Then Sheets(i).Delete
Next i
FileNameXls = strPath & "" & Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4) & " " & strDate & ".xlsm"
ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
Application.DisplayAlerts = True
End Sub
Есть сомнительные моменты в твоём макросе. Я их не проверял. Например "And" и "&", "Next и пусто"...
Sub Backup_Active_Workbook()-14
Dim x As String
Dim i As Integer
strPath = "С: Temp"
On Error Resume Next
x = GetAttr(strPath) And 0
If Err = 0 Then
strDate = Format(Now, "dd/mm/yy,hh-mm")
Else
MsgBox "Папка " & strPath & " недоступна или не существует", vbCritical: End
End If
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name Like "*14*" Then Sheets(i).Delete
Next i
FileNameXls = strPath & "" & Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4) & " " & strDate & ".xlsm"
ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
Application.DisplayAlerts = True
End Sub
Есть сомнительные моменты в твоём макросе. Я их не проверял. Например "And" и "&", "Next и пусто"...
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Помогите с макросом - удаление листов по условию в сохраняемом файле.