Hoi,

Ik wil een map openen in mijn code, maar als die al open staat, krijg je iedere keer een foutmelding dat deze map reeds geopend is, en de rest van de instructies wordt niet meer uitgevoerd.

iemand een ideetje hoe ik deze foutmeldingen kan elimineren?

spyder

Spyder, wat voor coderegel gebruik je dan? Als ik deze uittest    Workbooks.Open Filename:="[je bestandsnaam].xls"...dan krijg ik geen enkele foutmelding. Het maakt Excel dan duidelijk niet uit of het bestand openstaat of niet. Staat tie open, dan gaat de code gewoon door. Is het bestand nog gesloten, wordt die met deze coderegel geopend...

Groet, Leo

Hi, mensen,

De goedkoopste oplossing is "displayalerts" uitzetten (en weer aanzetten !!!) Daar komen we aan het einde op terug...
Het hangt er natuurlijk van af wat je wil doen. Heeft het enig belang dat wijzigingen opgeslagen worden, dan moet je anders te werk gaan.

De elegantste oplossing is toch een functie zoals Leo van het net haalde.
Zo doe ik het bijvoorbeeld
Private Function WorkbookIsOpen(wbname) As Boolean
    Dim x As Workbook
    On Error Resume Next
    Set x = Workbooks(wbname)
    WorkbookIsOpen = Err = 0
End Functiontesten met
Sub test()
MsgBox WorkbookIsOpen("map1.xls")
End Sub
Nu de reden waarom je de ene keer wel de melding krijgt en de andere keer niet. Zolang je niets wijzigt is er geen vuiltje aan de lucht, een waarschuwing is dan overbodig. Maar wijzig je in tussentijd wel wat ... Paar voorbeeldjes:
Option Explicit

Sub test1()
'no problem !
Dim WbFullName As String

WbFullName = "C:\windows\desktop\test.xls"

Workbooks.Open WbFullName
Workbooks.Open WbFullName

End Sub

Sub test2()
'TROUBLE !!
Dim WbFullName As String

WbFullName = "C:\windows\desktop\test.xls"

Workbooks.Open WbFullName
Range("A1") = 123456
Workbooks.Open WbFullName

End Sub

Sub test3()
'NO problem
Dim WbFullName As String

WbFullName = "C:\windows\desktop\test.xls"

Workbooks.Open WbFullName
Range("A1") = 123456

Application.DisplayAlerts = False
Workbooks.Open WbFullName
Application.DisplayAlerts = True

End Subbeste groeten,
Erik

foutmeldingen kan je mijns insziens het beste voorkomen

Dat is inderdaad duidelijk. Niets zo vervelend als "druk OK om het proces af te sluiten". Dikwijls heeft dan een deel van de (minder gezonde) code wijzigingen aangebracht, zonder de zaak te kunnen afmaken.

We zorgen dus zeker voor 2 dingen.
1. fouten "behandelen"
2. handelingen op de werkbladen "bundelen"

1. "behandelen"
De gemakkelijkste - maar wel meest naïeve - is het permanent inschakelen van "kijk maar de andere kant op en loop door", zoals met de lijn
On Error Resume NextAlles gaat dan "prima", zelfs als alles misloopt  In bepaalde "loops" kan dat goed zijn.
NB: bij "End Sub" of "End Function" houdt de werking van "On Error" op, dus in de bovenstaande voorbeelden is er geen probleem
In het algemeen moeten we er echter voor zorgen fouten "gericht" te onderscheppen. Je checkt iets via een functie: dat is meestal checken of bepaalde objecten of data "bestaan" ("hebben we al een blad met die naam?") of een bepaalde inhoud hebben. Naargelang "waar" of "onwaar" gaat de code de ene of de andere kant uit en vraagt eventueel de gebruiker om iets te beslissen.
2. "bundelen"
Je wil absoluut vermijden dat er iets fataals gebeurt, wanneer je code al een deel van de handelingen heeft verricht. Bij grotere operaties kunnen we de gebruiker vragen of hij het goed vindt dat er "gesaved" wordt. Dan gaan we zoveel mogelijk "in memory" uitrekenen en pas op het einde de hele zaak in 1 keer naar de werkmap schrijven.* Als er onderweg iets fout loopt, zelfs iets wat we echt niet voorzien hadden (een echte bug dus) staat ons project nog netjes op het scherm.

*Deze aanpak laat code ook sneller verlopen.

Hmm, misschien toch maar eens een boek schrijven. 

beste groeten,
Erik

Wanneer breng je hem uit? 

Als ik ooit eens mijn PM, die je nog steeds tegoed hebt, beëindig, zal ik je daarover misschien ook wat schrijven :-)