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)
"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)
Vastaukset 1
Vanhimmat
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