Het detecteren van delimiters in een bestand met VBA

Wanneer je in Excel met externe gegevens werkt, kom je vaak CSV-bestanden tegen. CSV staat voor Comma-Separated Values, wat betekent dat de waarden in het bestand gescheiden worden door komma’s. Maar wat als de waarden niet altijd met komma’s zijn gescheiden? Soms worden er namelijk ook puntkomma’s gebruikt. Deze variabiliteit kan problemen veroorzaken wanneer je probeert gegevens te importeren in Excel. Om deze reden heb ik een functie gebouwd genaamd ‘DetectDelimiter’.

Hoe werkt deze functie?

Deze functie leest de eerste regel van een gegeven bestand en telt het aantal komma’s en puntkomma’s. Afhankelijk van welk teken het vaakst voorkomt, geeft de functie ofwel een komma (“,”) of een puntkomma (“;”) terug als het meest waarschijnlijke scheidingsteken.

 

Hoe kan ik de functie gebruiken?

1. Voeg de bovenstaande VBA-code toe aan je Excel VBA-omgeving.
2. Roep de functie aan in je code met ‘DetectDelimiter(filepath)’ waarbij ‘Filepath’ het pad is naar het CSV-bestand dat je wilt controleren.

Function DetectDelimiter(filePath As String) As String
    Dim fileContent As String
    Dim fileNum As Integer
    Dim commaCount As Long, semicolonCount As Long
    Dim mostLikelyDelimiter As String

    ' Open het bestand in read-only modus
    fileNum = FreeFile
    Open filePath For Input As #fileNum
    Line Input #fileNum, fileContent
    Close #fileNum

    ' Tel het aantal komma's en puntkomma's
    commaCount = Len(fileContent) - Len(Replace(fileContent, ",", ""))
    semicolonCount = Len(fileContent) - Len(Replace(fileContent, ";", ""))

    ' Bepaal het meest waarschijnlijke scheidingsteken
    If commaCount > semicolonCount Then
        mostLikelyDelimiter = ","
    Else
        mostLikelyDelimiter = ";"
    End If

    ' Geef het waarschijnlijke scheidingsteken terug
    DetectDelimiter = mostLikelyDelimiter
End Function

In welke situaties kan deze functie nuttig zijn?

1. Automatische Gegevensimport: Als je vaak gegevens moet importeren uit verschillende bronnen en niet zeker weet welke delimiter wordt gebruikt, kan deze functie ervoor zorgen dat het importproces soepel verloopt.
2. Data-integratieprojecten: Wanneer je met gegevens van meerdere leveranciers of afdelingen werkt, kan de consistentie in delimiters ontbreken. Deze functie helpt om die consistentie te waarborgen.
3. Data Cleaning: Bij het voorbereiden van gegevens voor analyse, kan het detecteren en corrigeren van inconsistente delimiters essentieel zijn voor de nauwkeurigheid van de resultaten.