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. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      67
      1131

    2. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      43
      1082

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

      Mun mielestä on👍
      Ikävä
      109
      889

    4. 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
      876

    5. 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
      6
      783

    6. Vieläkin saat

      Sydämen tykyttämään. Vaikka emme näe
      Ikävä
      38
      753

    7. Kunnanhallitus

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

    8. Rauha, sopiiko

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

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

      😊
      Ikävä
      43
      669

    10. En tahallaan sua välttele...

      Olis niin kiva nähdä jossain muualla kuin kaupassa!
      Ikävä
      51
      666

    11. 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
      651

    12. Nyt kaatuu Kuisla

      Reima Kuisla hakee saneeraukseen – Joitakin velkoja on jo ulosotossa https://www.ilkkapohjalainen.fi/reima-kuisla-hakee
      Seinäjoki
      29
      604

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

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

    14. Mikä estää ottamasta yhteyttä?

      🤨
      Ikävä
      53
      564

    15. Minkä kappaleen

      haluaisit soivan, kun astellaan alttarille?
      Ikävä
      51
      553

    16. Olit hyödytön.

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

    17. Kumpi tästä nyt

      Teki niin vaikeaa?
      Ikävä
      60
      494

    18. Pystyisitkö liikkumaan

      Tai tapailemaan kaivattuasi julkisesti?
      Ikävä
      47
      473

    19. Sastamalassa epäillään tappoa, kaksi otettu kiinni

      Kuulemma Aarnontiellä tapahtunut Tietääkö joku enemmän?
      Sastamala
      17
      462

    20. Vieläkö tykkäät

      Minusta niin paljon että olisit valmis?
      Ikävä
      35
      447
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt