Opslaan van gegevens in excel CSV

[rudi2]

Excel en csv
--------------------------
Bestaat er iets handig om cellen met alfanumerieke waarden op te slaan omringt met een quote in een csv file(of TXT file).En een aanduiding per kolom in excel om aan te geven dat de data alfanumeriek of numeriek is in excel ?
is dit mogelijk met een macro ?


Vb Csv-file
3,"Jan","Jansen", 5,"1"
5,"Piet","Pieters",8,"1"
4,"An ","Claesens",9,"2"

Mvg

 

[Palmpje]

Ik gebruik de volgende macro om een bestand weg te schrijven. FYI, het is een download van koersen van de AEX site.

Sub WriteBlock(r)
   
    Dim FundName
    
    For n = 5 To r.Rows.Count
        FundName = r.Cells(n, 1).Value
        Volume = r.Cells(n, 7).Value
        KrsOpen = r.Cells(n, 10).Value
        KrsHigh = r.Cells(n, 8).Value
        KrsLow = r.Cells(n, 9).Value
        KrsClose = r.Cells(n, 2).Value
        Write #1, FundName, Volume, KrsOpen, KrsHigh, KrsLow, KrsClose
    Next n
End Sub

Als je numerieke info als tekst (dus tussen quotes) wilt wegschrijven moet je denk ik zorgen dat het in een tekstveld staat in het spreadsheet.