Powiedzmy, że otwierasz plik ręcznie,
wtedy nazwę ostatnio otwieranego pliku mógłbyś
przypisać do zmiennej np. tak:
Dim i As Long
Dim nazwa_pliku As String
For i = Workbooks.Count To 1 Step -1
If Workbooks(i).Path <> "" Then
nazwa_pliku = Workbooks(Workbooks.Count).Name
Exit For
End If
Next i
i wtedy użyć:
Windows(nazwa_pliku).Close
można też użyć:
Workbooks(nazwa_pliku).Close
--
Pozdrawiam
Stanislaw |