Здравствуйте, подскажите с макросом
Имеем следующий код:
Все работает. Задача: если такой файл уже существует в указанной директории, выводить сообщение что такой файл уже есть, заменить его или сохранить как с другим именем. Ну и соответственно сохранение файла с новым( введённым пользователем) именем.
Имеем следующий код:
| Код |
|---|
Sub Macro1()
Dim sPath As String, Txt As String, Rng As Range, sFile As String
sPath = "D:\Downloads\" 'Путь соъранения
Txt = "Слово" ' Искомое слово
Set Rng = Sheets("Лист1").Range("A2:F10").Find(what:=Txt, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not Rng Is Nothing Then
sFile = Rng.Offset(1, 0)
ActiveWorkbook.SaveAs Filename:=sPath & sFile & ".xlsx"
End If
End Sub |
Все работает. Задача: если такой файл уже существует в указанной директории, выводить сообщение что такой файл уже есть, заменить его или сохранить как с другим именем. Ну и соответственно сохранение файла с новым( введённым пользователем) именем.
Изменено: - 08.05.2020 13:33:41
