Visual Basic Programozás, segítsetek nekem
-
#167
on error goto errhan
Do While vonalszam > 156
MsgBox ("A vonalszám maximum 155 lehet")
vonalszam = InputBox("Melyik vonal sebességét alakítsuk át? Kilépés=k")
If vonalszam = "k" Then
Exit Sub
End If
Loop
Workbooks.Open Filename:="C:\Sebesség\Állandó.xls"
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets(vonalszam + ".").Select
exit sub
errhan:
if err.number = 1004 then
'a fájl nem létezik
end if