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

205

Äänestä

    Vastaukset

    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. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      117
      2174

    2. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      96
      1308

    3. Peräti 95 % persujen kannattajista rasisteja

      Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää
      Maailman menoa
      312
      1013

    4. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      81
      936

    5. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      83
      906

    6. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      85
      886

    7. On minulla suunitelma

      Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s
      Ikävä
      44
      680

    8. Palstan ylivoimaisesti suosituin keskustelunaihe

      Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks
      Luterilaisuus
      248
      667

    9. Ei koskaan saatu tuntea

      Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee
      Ikävä
      33
      660

    10. Mikä elokuva kuvaa ikävöityä henkilöä ja sinua?

      Otsikossa aloitus.
      Ikävä
      50
      654
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt