Beste mensen,
Ik heb een klein probleempje dat ik niet direct weet op te lossen
Om een bestand te openen gebruik ik onderstaande code
Op zich werkt dit goed en wordt het geopende bestand aan de werkmappen toegeoegd
Echter als er op Annuleren of Sluitkruisje wordt geklikt zonder dat men een bestand selecteert dan loopt de zaak vast
Als ik er bij plaats
dan krijg ik een foutmelding Fout 13 tijdens uitvoering
Typen komen niet overeen en dan loopt hij ook vast
Wie kan mij verder helpen?
Bijvoorbaat dank
Rob
Ik heb een klein probleempje dat ik niet direct weet op te lossen
Om een bestand te openen gebruik ik onderstaande code
Code:
Sub OpenBestand
Bestand = Application.GetOpenFilename("Bestanden (*.*), *.*", 2, "Selecteer het lessenbestand van afdeling " & AfdelingNaam, , True)
For Y = 1 To UBound(Bestand)
Sheets.Add Type:=Bestand(Y), After:=Sheets(Sheets.Count)
Next
End Sub
Op zich werkt dit goed en wordt het geopende bestand aan de werkmappen toegeoegd
Echter als er op Annuleren of Sluitkruisje wordt geklikt zonder dat men een bestand selecteert dan loopt de zaak vast
Als ik er bij plaats
Code:
Sub OpenBestand
Bestand = Application.GetOpenFilename("Bestanden (*.*), *.*", 2, "Selecteer het lessenbestand van afdeling " & AfdelingNaam, , True)
If Bestand = False then Exit Sub
For Y = 1 To UBound(Bestand)
Sheets.Add Type:=Bestand(Y), After:=Sheets(Sheets.Count)
Next
End Sub
Typen komen niet overeen en dan loopt hij ook vast
Wie kan mij verder helpen?
Bijvoorbaat dank
Rob