Как получить имена книг из буфера?

[mustiff]

Всем добрый день!
При работе макрос должен выбирать из буфера имена несохраненных книг и затем для каждой из них выполнять функцию сохранения.
Прошу подсказать ,кто знает,как это можно сделать,заранее спасибо!

[doober]

Здравствуйте.
Можно так

    Dim Wb As Workbook
    For Each w In Application.Windows
        Set Wb = Workbooks(w.Caption)
        If Wb.Path = "" Then
            MsgBox "Вай,не сохраненная я"
        End If
    Next

[mustiff]

Огромное спасибо!!!Думал,что как-то на клипборде завязано,а все оказалось проще)

[IgorGO]

...
        If Not Wb.Saved Then
            MsgBox "Вай, не сохраненная я"
        End If
...

[mustiff]

благодарю!

[mustiff]

Появилась проблема!есть программа выгружающая файлы в эксель формате (без сохранения на диск соответственно) и вот на такие файлы этот макрос не реагирует , как это исправить?

[Hugo121]

Она все файлы выгружает в один эксель, или в разные?
Если в один - выгрузить свой эксель, отработать программой, открыть файл с макросом в открытом экселе.
Если в разные - печалька... Т.е. гемор, даже думать не стану, нет наработок.

[mustiff]

Если создаю новую книгу из окна эксель в котором написан макрос, то он ее видит. Если же открываю новое окно эксель(либо создаю новую книгу не из книги с макросом) ,то макрос его игнорирует.такие дела...

[Hugo121]

Ну и я о том же. Не надо так делать

[doober]

Сообщение от mustiff

как это исправить?

Выход есть,но для вас непосильный.
Искать процессы Excel в процессах,получать экземпляр апликейшен,перебирать в нем книги,искать свою ненаглядную.
Все это при помощи виндов апи