Witam,
poniżej kawałek kodu, który otwiera okienko do wyboru plik ale jeśli plik nie zostanie wybrany ma wyświetlić komunikat aby wybrać plik.
ma dziać się to w kółko dopóki plik nie zostanie wybrany.
niestety wywala mi błąd w pętli przy file = ... , że "Zmienna obiektowa nie jest ustawiona"
Dim file : Set file = shell.BrowseForFolder(0, "Wybierz plik:", &H4000, "Ścieżka do pliku" )
if file is nothing then
Do
MsgBox("Nie wybrano szablonu. Wybierz szablon ponownie")
file = shell.BrowseForFolder(0, "Wybierz plik:", &H4000, "Ścieżka do pliku" )
Loop While file is nothing
end if