Beste Specialisten,
Ik heb een Excel waarin ik een bepaalde selectie opsla als csv, nu gebeurd het volgende:
wanneer er een getal staat 1,00 dan word deze opgeslagen in de csv als 1 echter wanneer ik 1,25 opsla, dan word deze in de csv opgeslagen als 1,25 en aangezien de komma ook het lijstscheidingsteken is, ziet ie dus een kolom waarin staat 1 en een kolom waarin staat 25?
Ik krijg het niet opgelost?
Ik heb een Excel waarin ik een bepaalde selectie opsla als csv, nu gebeurd het volgende:
wanneer er een getal staat 1,00 dan word deze opgeslagen in de csv als 1 echter wanneer ik 1,25 opsla, dan word deze in de csv opgeslagen als 1,25 en aangezien de komma ook het lijstscheidingsteken is, ziet ie dus een kolom waarin staat 1 en een kolom waarin staat 25?
Ik krijg het niet opgelost?
Code:
Sub DirkVrolijk()
Dim MyName
MyName01 = Range("v1").Value
MyName02 = Range("u1").Value
c00 = "C:\temp\" & MyName01 & "\basis_" & MyName02 & ".csv"
ar = Range("A2:N" & Cells(Rows.Count, 9).End(xlUp).Row)
For j = 1 To UBound(ar)
For jj = 1 To UBound(ar, 2)
c01 = c01 & ar(j, jj) & IIf(jj = UBound(ar, 2), "", ",")
Next jj
c01 = c01 & vbCrLf
Next j
CreateObject("scripting.filesystemobject").CreateTextFile(c00).write c01
End Sub