Temat: Otwieranie pliku wskazanego w Inputbox

Witam,

Mam w danym folderze pliki xls zapisane pod nazwami dat w formacie rrr-mmm-ddd.

Wie ktoś może jak użyć opcji InputBox aby makro po wpisaniu określonej daty otwierało ten wskazany plik?? Poniżej ścieżka do pliku

[/code]Workbooks.Open Filename:="C:\Users\michal\Documents\.....[/code]

Temat: Otwieranie pliku wskazanego w Inputbox

Zbigniew Budziewicz:

Sub otwieranie()



Dim plik





plik = Application.InputBox("Podaj datę")



If TypeName(plik) = "Boolean" Then Exit Sub



On Error Resume Next

Workbooks.Open Filename:="C:\Users\michal\Documents\" & plik & ".xls"

     

If Err.Number <> 0 Then

    MsgBox "Niepoprawna nazwa pliku"

End If

     

On Error GoTo 0





End Sub

Dziękuje działa jak należy:)