droping leading zeros when writing to a file
 

My problem is that VBA is writing the numbers to a file PATH but it
drops the leading zeros. I already tried to make them strings but if I
do that then it adds parenthesis to the "string" which I dont want. I
dont understand why it is not writing EXACTLY what I am telling it to
output to file. Please help, thanks.

Colin Marker

Code -

intFile = FreeFile
Open PATH For Append As #intFile
colIndex = 1
rwIndex = 1

Do Until Cells(rwIndex, colIndex) = ""
Write #intFile, 0.53, 5.24, 0.15, -0.58, -0.862
rwIndex = rwIndex + 1
Loop
Close #intFile

droping leading zeros when writing to a file
 

Hi Colin,

Use Print rather than Write. This will work as you wish:

Print #intFile, 0.53, 5.24, 0.15, -0.58, -0.862

In addition, I assume you're taking this data from your worksheet. Don't
forget you can always use Format to easily modify the format of the
numbers.

rwIndex = 1
colIndex = 1
Do Until Cells(rwIndex, colIndex) = ""
Do Until Cells(rwIndex, colIndex) = ""
Print #intFile, Format(Cells(rwIndex, colIndex),"00.00#")
colIndex = colIndex + 1
Loop
colIndex = 1
rwIndex = rwIndex + 1
Loop

HTH,
Gareth

wrote:
My problem is that VBA is writing the numbers to a file PATH but it
drops the leading zeros. I already tried to make them strings but if I
do that then it adds parenthesis to the "string" which I dont want. I
dont understand why it is not writing EXACTLY what I am telling it to
output to file. Please help, thanks.

Colin Marker

Code -

intFile = FreeFile
Open PATH For Append As #intFile
colIndex = 1
rwIndex = 1

Do Until Cells(rwIndex, colIndex) = ""
Write #intFile, 0.53, 5.24, 0.15, -0.58, -0.862
rwIndex = rwIndex + 1
Loop
Close #intFile