How to avoid scientific notation when converting to string

[bar_ba_dos]

Hi All,

I have a worksheet that contains data such as shown below:

I need to write this to a csv file.

The .SaveAs method isn't working for me as this would create 2 trailing commas for row 2.

My approach therefore is:
- For each row I determine the last column containing data;
- Then I create a string of all cells in that row;
- That string is written to a file.

The relevant part of the code looks like:

fileLine = sCat(Range(ws.Cells(rLoop, 1), ws.Cells(rLoop, maxCols + 1)), ",")
Print #fileNumber, fileLine

where sCat is the following function:

Function sCat(vP As Variant, delim As String) As String

    ' Concatenate all cells in a range, delimited by delim.
    Dim v
    Dim delim2 As String
    
    For Each v In vP
        sCat = sCat & delim2 & v
        delim2 = delim
    Next v
End Function

The data in my output csv file looks like:

Question - how do I avoid the number 0.0834859097545727 to end up with scientific notation in my csv file? Ideally I don't want to change the formatting of my cells on the worksheet.

 

[Alex Blakenburg]

See if this works:

fileLine = sCat(Application.Trim(Range(ws.Cells(rLoop, 1), ws.Cells(rLoop, maxCols + 1))), ",")

 

[bar_ba_dos]

See if this works:

fileLine = sCat(Application.Trim(Range(ws.Cells(rLoop, 1), ws.Cells(rLoop, maxCols + 1))), ",")

Thanks it nearly worked. There is one instance where the figure still shows in scientific notation. The remaining figures are showing exactly as required.

Why would that be?