Visual Basic Programozás, segítsetek nekem
  • kupa
    #166
    sziasztok!Szeretném a segítségeteket kérni.Egy cella értékétől függően szeretnék behívni egy másik excel táblát,ami 1.-156.-ig tartalmaz lapokat,de azonban nem folytatólagosan,vannak közte hézagok.Az lenne a kérdésem,hogy a fájl megnyítása elött hogy tudok meggyőzödni,létezik-e az adott munkalap.A forrás jelenleg így néz ki:


    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

    Még egy kérdés,hogy tudom lekérdezni egy fájl meglétét behívás elött,hogy létezik vagy sem?

    Köszönöm a segítséget