CSV bestanden automatisch aanmaken

[harolda1980]

Hoe kun je een CSV bestand aanmaken in een applicatie?

 

[edmoor]

Je kunt een gewoon tekst bestand aanmaken met als extensie .csv.
De records schrijf je dan per regel weg in het volgende formaat:
"Veld1";"Veld2";"Veld3" enz.

Dus inclusief de " tekens.

 

[harolda1980]

Ik vind net deze code, hier gebeurd dat toch in?

Option Explicit
Sub WriteFile()

  Dim ColNum As Integer
  Dim Line As String
  Dim LineValues() As Variant
  Dim OutputFileNum As Integer
  Dim PathName As String
  Dim RowNum As Integer
  Dim SheetValues() As Variant

  PathName = Application.ActiveWorkbook.Path
  OutputFileNum = FreeFile

  Open PathName & "\Test.csv" For Output Lock Write As #OutputFileNum

  Print #OutputFileNum, "Field1" & "," & "Field2"

  SheetValues = Sheets("Sheet1").Range("A1:H9").Value
  ReDim LineValues(1 To 8)

  For RowNum = 1 To 9
    For ColNum = 1 To 8
      LineValues(ColNum) = SheetValues(RowNum, ColNum)
    Next
    Line = Join(LineValues, ",")
    Print #OutputFileNum, Line
  Next

  Close OutputFileNum

End Sub

 

[edmoor]

Niet helemaal.
Die code maakt geen ; gescheiden velden aan maar , gescheiden en plaatst geen " tekens om de veldwaarden.
Of je dat nodig hebt is maar de vraag, maar die code is een goed voorbeeld.

 

[harolda1980]

Oke maar ik kan dus wel dat teken veranderen van , naar ;.

In het voorbeeld zoals ik het bestand moet opbouwen staat de volgende regel
34343;343;0;;;;email@email.com

 

[edmoor]

Dan kun je in de regel:
Print #OutputFileNum, "Field1" & "," & "Field2"
de "," wijzigen in ";"

 

[snb]

Sla een Excel bestand of Word bestand op als csv bestand. (Oplsaan Als...)