Тема: Из exel в word
Показать сообщение отдельно
  (#7 (permalink)) Старый
Negas Negas вне форума
Новичок
 
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 06.08.2008
По умолчанию 07.08.2008, 12:18

Всё нашёл. Всем спасибо за внимание ))
(Не моё!!! Автор Шпец Докапыч)

Sub SHpetsSaveList()
Application.DisplayAlerts = False
Set WorkB = ActiveWorkbook
WorkSH = ActiveSheet.Name
Set NewB = Workbooks.Add

WorkB.Sheets(WorkSH).Copy After:=NewB.Sheets(NewB.Sheets.Count)
For i = 1 To NewB.Sheets.Count - 1
NewB.Sheets(1).Delete
Next

SName = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Рабочий Стол\" & "_" & Format(Now, "yymmdd") & "_" & WorkSH & ".xls"
NewB.SaveAs SName
NewB.Close
MsgBox SName, 64, "Шохранение завершено!"
End Sub
Ответить с цитированием
Ads