Добрый день! Подскажите как переписать макрос так что бы имя файла было как у открытого + текст
With CreateObject("scripting.filesystemobject") With .CreateTextFile(ThisWorkbook.Path & "\ThisWorkbook.Name.txt", True) .Write s: .Close End With
Добрый день! Подскажите как переписать макрос так что бы имя файла было как у открытого + текст
With CreateObject("scripting.filesystemobject") With .CreateTextFile(ThisWorkbook.Path & "\ThisWorkbook.Name.txt", True) .Write s: .Close End WithAnton2201