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)
Kuinka tarkistaa VBA:n avulla, onko tiedosto jo auki?
vba_ropleema
1
259
Vastaukset
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ä.
Luetuimmat keskustelut
Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma
Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?3221822Olen melko vakuuttunut
etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok831287Odotan sitä hetkeä
kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh751284- 1341157
- 80957
- 85881
- 48843
Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!
https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro118804- 48790
Sitä saattaa vähän hölmöillä
rakkauspäissään, jos tunteita on enemmän kuin osaa käsitellä. Alkuhölmöilyt on söpöä ja sallittavaa.60736