Kuinka tarkistaa VBA:n avulla, onko tiedosto jo auki?

vba_ropleema

Käytössäni on kaksi eri excel taulukkoa, joiden välillä siirrän dataa soluista soluihin. Avaan toisen taulukon Workbooks.Open Filename:= _
"C:\polku\tiedostonimi.xls"

Jos tämä taulukko on jo auki, saan ilmoituksen "Haluatko avata taulukon uudelleen? Tallentamattomat tiedot menetetään uudelleen avauksessa"

Kuinka siis pystyn tarkistamaan, onko ko. tiedosto jo avattu kertaalleen? Onko jokin muuttuja, josta tuon tilan näkee (auki/ei avattu)

1

263

Äänestä

    Vastaukset 1

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Function OnkoAuki(Nimi As String) As Boolean
      On Error Resume Next
      Set Työkirja = Workbooks(Nimi)
      If Työkirja Is Nothing Then
      OnkoAuki = False
      Set wBook = Nothing
      On Error GoTo 0
      Else
      OnkoAuki = True
      Set wBook = Nothing
      On Error GoTo 0
      End If
      End Function

      Sub koe()
      If OnkoAuki("Heikki.xls") Then
      MsgBox "Työkirja on jo avoinna"
      Else
      MsgBox "Työkirja ei ole avoinna"
      End If
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tässä ovat Elämäni biisi vieraat lauantai 19.9. - Yksi vieras on kohuttu TTK-juontajaehdokas

      Elämäni biisi vieraslista on harvinaisen mielenkiintoinen lauantaina. Mukana myös kohuttu TTK-juontajaehdokas, josta ei
      Tv-sarjat
      9
      1014

    2. Mies joka on oikeasti kiinnostunut

      Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää
      Ikävä
      125
      966

    3. Onko nyt kaikki asiat käyty läpi?

      Mun mielestä on👍
      Ikävä
      109
      939

    4. Ikävä niitä hetkiä,kun katselin sua suoraan silmiin...

      😊
      Ikävä
      55
      909

    5. Rauha, sopiiko

      Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.
      Ikävä
      85
      812

    6. Kunnanhallitus

      Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.
      Puolanka
      42
      766

    7. Ei siitä pääse yli, eikä ympäri!

      Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle
      Ikävä
      66
      711

    8. Miesten (epä)viehättävyydestä kysymys

      Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev
      Sinkut
      157
      707

    9. Minkä kappaleen

      haluaisit soivan, kun astellaan alttarille?
      Ikävä
      63
      683

    10. Mitä meidän välillämme

      On käynyt näiden vuosien aikana?
      Ikävä
      70
      586

    11. Olit hyödytön.

      Mulle hyödytön..
      Ikävä
      95
      561

    12. Mikä sun salaisuus on,kun näytät niin nuorelta..

      Vaikka oot jo noin vanha!?
      Ikävä
      37
      535

    13. Kumpi tästä nyt

      Teki niin vaikeaa?
      Ikävä
      60
      524

    14. Tykkäätkö minusta

      Mies vai et? -nainen
      Ikävä
      52
      521

    15. Vieläkö tykkäät

      Minusta niin paljon että olisit valmis?
      Ikävä
      35
      497

    16. Teini kuolema

      Jatketaan uudestaan kun poistettu eka aloitus.
      Kajaani
      22
      496

    17. MiltäKaivattusi

      Näyttää? !
      Ikävä
      26
      480

    18. Humppila korvasi johtajia tekoälyllä

      https://yle.fi/a/74-20215155 Humppilassa on lakkautettu teknisen ja hallintojohtajan virat. Säästöä tuli hetkessä 150
      Maailman menoa
      52
      449

    19. Myönnetään, tunnen lämpimiä tunteita kohtaasi

      Vaikutat tosin liian hyvältä ollaksesi totta. Komeita miehiä on maailma pullollaan mutta sinussa on jotain.....
      Ikävä
      31
      443

    20. Mnot, miksi sinulle on tärkeää solvata uskovia?

      Onko sinulla joku katkeruus tai peräti viha heitä kohtaan? Kirjoituksesi nimittäin tihkuvat katkeruutta ja vihaa uskovi
      Luterilaisuus
      246
      408
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt