Semikolon-separeret fil i Excel

Jeg har et problem når jeg laver en semikolonsepareret fil. Jeg kan godt lave selve filen adskilt med semikolon, men når jeg åbner den i Excel, så skriver den bare alle kolonnerne i én Excel-kolonne.

Excel kan ikke finde ud af at skille ved semikolonnet i min fil?!

Er der nogen der har en anelse om hvorfor?

-----------

Set op = CreateObject("Scripting.FileSystemObject")
Set fil = op.CreateTextFile (uppath_import & "/eksport.csv", true, false)

fil.writeline "firstname;lastname;companyname;address;address2;zipcode;city"

Do while NOT objRS.EOF
    fil.writeline objRS("colFirstName") & ";" & objRS("colLastName") & ";" & objRS("colVirksomhed_kunde") & ";" & objRS("colAddress") & ";" & objRS("colAddress2") & ";" & objRS("colPost") & ";" & objRS("colBynavn")       
    objRS.MoveNext
Loop

fil.close


-----------