Excel: bestandsextensie bepalen

[Cranky]

Nog maar eentje. Jullie hebben er verstand van hier.

Ik gebruik deze code om te bepalen of het sjabloon (.xlt) geopend wordt of dat er een nieuw bestand (.xls) is aangemaakt.

OpenOfNew:
If ThisWorkbook.Name = "Jumbo bestellijst nieuw.xlt" Then
ThisWorkbook.Worksheets("Bestelling").Unprotect
ThisWorkbook.Worksheets("Norm").Unprotect
Beheer.Visible = xlSheetVisible
Sheets("Beheer").Select
GoTo Beheren
End If

Maar ik wil graag dat deze code werkt ongeacht de bestandsnaam van het sjabloon. Dus om te bepalen of het om een sjabloon gaat wil ik graag de bestandsextensie achterhalen. Of is er een andere (betere) manier?

 

[snb]

Is overbodig.

Workbooks.add ".xlt" leidt altijd tot een xls-bestand
Workbooks.open ".xlt" is altijd het xlt-bestand

Kijk nog even in een boek waarvooor sjablonen ook alweer gebruikt worden.

 

[Cranky]

Is overbodig.

Workbooks.add ".xlt" leidt altijd tot een xls-bestand
Workbooks.open ".xlt" is altijd het xlt-bestand

Kijk nog even in een boek waarvooor sjablonen ook alweer gebruikt worden.

Wat is Workbooks.add en Workbooks.open? Geen Private Subs toch?

Ik gebruik een sjabloon om ervoor te zorgen dat bij iedere bestelling met een lege bestellijst begonnen wordt. De bestelling wordt dan automatisch opgeslagen als .xls met de datum van vandaag in de bestandsnaam (en als dat bestand al bestaat wordt met een MsgBox gevraagd of dat bestand geopend moet worden).

Maar als ik het sjabloon wil bewerken (dus openen in plaats van een nieuw document maken op basis van het sjabloon) om de bestellijst te wijzigen, dan verschijnt op deze manier het tabblad "Beheer", waarop ik bijvoorbeeld de afdeling waarvoor de bestelling is kan aanpassen en het pad waarin het sjabloon staat (want ThisWorkbook.Path werkt niet als het document uit een sjabloon komt, het is immers nog niet opgeslagen).

 

[Wigi]

Sub d()
    MsgBox ThisWorkbook.FileFormat
End Sub

Dit leidt tot constanten (nummers) afhankelijk van het type van de file.

Wigi

 

[Cranky]

Werkt perfect! Helemaal bedankt.