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

251

Ää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. Selvästi näyttää siltä, että SDP:n kannattajat hyväksyy kiusaamisen

      ja seksuaalisen ahdistelun, kun puolueen kannatus pysyy korkealla. Mitä tämä kertoo demari-äänestäjien moraalista?
      Maailman menoa
      172
      4990

    2. Kukka kuoli ja kukka tappo Kokkolassa?

      Ouluntiellä tapettu nainen torstaina kukka tappo?
      Kokkola
      15
      1600

    3. Kenen joukoissa Suomi seisoo maailmalla, jos SDP voittaa seuraavat vaalit?

      SDP on ainoa pohjoismainen sosialidemokraattinen puolue, joka edelleen kuuluu Sosialistiseen internationaaliin. Sitä ka
      Maailman menoa
      62
      1585

    4. Jos mies oikeasti haluaa sinut

      Hän ei ota riskiä että menettäisi sinut. Ei pienintäkään. Mies ei jätä vastaamatta viesteihin eikä pidä sinua epätietois
      Ikävä
      121
      1441

    5. Helena Puolakka laukoo suorat sanat Vappu Pimiän MasterChef -pestistä

      Vappu Pimiä on uusi MasterChef Suomi -tuomari. Kokenut keittiömestari ja ravintoloitsija Helena Puolakka laukoo suorat s
      Tv-sarjat
      9
      1253

    6. Ketä ehdotatte seuraavaksi kuntanne johtohahmoksi

      Ei ole teitä riitaisia kehityksen jarruja helppo yrittää kohti valoa ohjata. Siinä on teille pähkinä purtavaksi.
      Lappajärvi
      93
      1046

    7. Voiko ryyppäämisellä tienata elantonsa?

      Lassi Kuhlman on rappiostriimaaja. Hän kuvaa omaa päihteiden käyttöään pitkissä somestriimeissä. Katsojat voivat lahjoit
      Maailman menoa
      48
      1026

    8. Persuille 1,8 prosenttiyksikköä laskua. Keskusta meni ohi ja Vasl hengittää niskassa

      Erityisesti työväestö on hylkäämässä persut. https://yle.fi/a/74-20208249
      Maailman menoa
      297
      932

    9. Vasemmistoliitto menossa perussuomalaisten ohi!

      Keskustapuolue meni jo...
      Maailman menoa
      178
      889

    10. Hinduille tiedoksi

      USA Pressa sanoi '' kansakuntaa ei voi johtaa ilman Raamattua''. Tämä löytyy sitaateista. Raamatusta tulee kaikki julmu
      Hindulaisuus
      279
      757
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt