Как узнать название открытого файла

[Andrey_K]

Собственно сабж, в поиске ничего путного не нашел.

Дело в том что сам макрос находится в другой книге (базе) которая все время открыта. А файлы от клиентов называются по разному.
А мне нужно переносить данные из этих файлов в базу и обратно. В принципе проблем нет если известны названия книг, но вот как раз клиентских я и не знаю.....
Наверняка это возможно, но как?

[KL]

Код: Выделить всё

Sub test1()
    Dim wb As Workbook
    For Each wb In Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            MsgBox _
                "Path: " & wb.Path & Chr(13) _
                & "Name: " & wb.Name & Chr(13) _
                & "Full Name: " & wb.FullName
        End If
    Next wb
End Sub

Код: Выделить всё

Sub test2()
    Dim i As Long
    For i = 1 To Workbooks.Count
        If Workbooks(i).Name <> ThisWorkbook.Name Then
            MsgBox _
                "Path: " & Workbooks(i).Path & Chr(13) _
                & "Name: " & Workbooks(i).Name & Chr(13) _
                & "Full Name: " & Workbooks(i).FullName
        End If
    Next i
End Sub

[KL]

Кстати, вот тут в разделе Copy/Paste/Merge examples можно почерпнуть массу полезной информации для твоего случая: http://www.rondebruin.nl/tips.htm

[Andrey_K]

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

ЗЫ а ссылку дома почитаю обязательно

[Andrey_K]

Всё, разобрался что к чему ))