Michal Żołyniak Implementer
Zbigniew Budziewicz VISUAL STUDIO
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
Michal Żołyniak Implementer
Zbigniew Budziewicz:Dziękuje działa jak należy:)
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
Krystyna
Archman
geodetka na
emeryturze
pomagająca mężowi
Maciej Bartosiak IT CONSULTANT
Dariusz Kolasa Akademia VBA
Następna dyskusja:
пропозиції роботи
