Ребята приветствую всех. Имеется такой макрос))) который никак не поддается. Нужно что бы он сохранял лист без макросов. может я что то не то делаю? и что бы только один лист Лист 2 а то этот всю книгу пересохраняет
Sub СохранитьЛист()
Dim sh As Worksheet
Dim wb As Workbook
Set sh = ActiveSheet
Set wb = Workbooks.Add
sh.Copy wb.Sheets(1)
Dim i As Long
Application.DisplayAlerts = False
For i = wb.Sheets.Count To 2 Step -1
wb.Sheets(i).Delete
Next
Application.DisplayAlerts = True
wb.SaveAs "C:\Users\Bimkod_4\Desktop\мой проект\мой проект 5\Отгрузки\" & [A2] & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.Quit
End Sub
aybek04: сообщение о повреждении файла и запрос восстановить ее или нет не из за этого макроса?
скорее всего из-за этого — такое часто бывает при пересохранении Решение: открыть файл и восстановить по запросу (ручками) Макросом:Workbooks.Open Filename:=ПолноеИмяФайла, CorruptLoad:=xlRepairFile Матчасть
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Jack Famous написал: скорее всего из-за этого — такое часто бывает при пересохранении. Решение: открыть файл и восстановить по запросу.Макросом: Workbooks.Open Filename:=PathName & Filename, CorruptLoad:=xlRepairFile
это другой вопрос - не по теме Я вам просто показал, как можно это исправить, но, если с ходу не получилось, то создайте новую тему или найдите похожую "Как макросом восстановить повреждённый файл?"…
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Jack Famous написал: это другой вопрос - не по темеЯ вам просто показал, как можно это исправить, если с ходу не получилось, то создайте новую тему или найдите похожую "Как макросом восстановить повреждённый файл?"…
а сохранить файл не повреждая нельзя? зачем повреждать файл а потом ее исправлять
првильнее формулировать вопрос так, чтобы на него можно было ответить "да" или "нет" При таком методе у меня стабильно до 10% файлов нуждались в восстановлении, а причина так и не была найдена
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄