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

258

Ää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. Vesikin maksaa, miksei hengitysilma?

      Jatkuvasti itketään ettei ole rahaa mihinkään, mutta tilastojen mukaan rahaa on enemmän kuin koskaan, joten miksei asial
      Maailman menoa
      8
      1656

    2. Satuolennoista tarinointi ei kuulu peruskoulun tehtäviin

      Opetustunteja on muutenkin käytössä vain rajallinen määrä. Eli nämä satuhommat koulun ulkopuolelle vapaaehtoisiin harras
      Maailman menoa
      128
      1653

    3. Suomalainen perheenisä vaatii Suvivirren esittämisestä hyvityksiä

      Itse lapsena uskonnonopetuksesta vissiin traumoja saanut ihka suomalainen (!) perheenisä vaatii Espoon kaupungilta korva
      Maailman menoa
      251
      1179

    4. Lahkokasteen ja kristillisen kasteen erot

      Raamatun mukaan Kristillisessä yhdessä kasteessa Jumala pesee ja puhdistaa ihmisen sydämen ja poistaa perisynnin kirouks
      Kaste
      422
      1078

    5. Mies profiloin sinut

      Etsit täysin hallittavaa mutta samalla poikkeuksellista ihmistä. Etsit jotain mitä et koskaan tule saamaan.
      Ikävä
      199
      1038

    6. Mitä haluaisit

      Tehdä kaivattusi kanssa?
      Ikävä
      128
      929

    7. Heikki Paasosen Marita-vaimo jätti tunteikkaat jäähyväiset: "Tällä kertaa me..."

      Heikki Paasonen on naimisissa Marita Paasosen (os. Alatalo) kanssa ja heillä on kaksi pientä lasta. Nyt koitti aika jätt
      Suomalaiset julkkikset
      2
      866

    8. Känsäkoura ja hotelli

      Tietoa kuka ostanut?
      Kuhmo
      10
      845

    9. Pirkanlinna yleisötapahtuma

      Oli todella hyvä tilaisuus. Ja EERO. L. Aivan mahtava tyyppi. Veti rennosti ja asiallisesti. Ja yleisöltä hyviä kysymyks
      Ähtäri
      48
      843

    10. Kuka omistaa keltaisen vanhan aravan?

      Pitäs saada rakennuksen omistajaan yhteys, rappukäytävät on siivottomassa kunnossa. Hiekkaa ja roskia rappusissa, lisäks
      Haapavesi
      29
      837
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt