Export to CSV - format

[here]

Hi All

I am using VBA to export certain columns from excel to a csv file. The below extract is what I have done to choose the columns:

Print #1, Sheets("Output").Cells(i, 6).Text & separator & Sheets("Output").Cells(i, 12).Text & separator

Column 12 contains a value eg 1,234.45 in the actual sheet - am I able to convert/round it to 1234 directly in the script to prevent the user from having to change it in excel?

Thanks in advance

 

[VoG]

Try

Print #1, Sheets("Output").Cells(i, 6).Text & separator & CInt(Sheets("Output").Cells(i, 12).Value) & separator

 

[here]

Excellent works exactly how i wanted it to!
Although I've not yet found this situation - if I was to have a negative number (either shown as -xx or (xx)) is there something similar to turn it to an absolute value?

 

[VoG]

Try this

Print #1, Sheets("Output").Cells(i, 6).Text & separator & Abs(CInt(Sheets("Output").Cells(i, 12).Value)) & separator

 

[here]

Thanks again!!

and hopefully my last two formats

I need to set a field to be 3decimal places (so fill with 0) and then another to be fixed as 10 (pad with 0) and 2 dp.

Is this one possible?!

 

[VoG]

Try like this

Format(Sheets("Output").Cells(i, 12).Value, "0.000")

and

Format(Sheets("Output").Cells(i, 12).Value, "0000000000.00")