Number in decimal Format in text file generate from Excel VBA

[mamun_ges]

Hi, I have searched a lot but find no answer. Hope someone helps me in this context.
I am using a vba code to create a text file from an excel sheet. The code works fine. But there is a number format in decimal in excel which converts as a number without a decimal place in the text file. below is the code I used.

 Dim UsedRows As Long
 Dim UsedColumns As Long
 Dim R As Long, C As Long
 Dim Data    As Variant
  
 '// Define a suitable file name
 Open "E:\Folder\" & "TD.txt" For Output As #1
 With ActiveSheet
 UsedRows = .UsedRange.Rows.Count
 UsedColumns = .UsedRange.Columns.Count
 For R = 2 To UsedRows
 For C = 1 To UsedColumns
 Print #1, .Cells(R, C); "|";
                Set Cell = .Cells(R, C)
                    If IsNumeric(Cell) Then
                        Data = Data & Cell.NumberFormat = "#,##0.00"
                    Else
                        Data = Data & vbTab & Cell.Value
                    End If
 Next C
 Print #1, .Cells(R, UsedColumns)
 Next R
 End With

Hope someone helps me to overcome my difficulties and tell me what to change or add to the code.

Thanks in advance

 

[Alex Blakenburg]

Glad you were able to figure out what changes to make to get it to work on your data.
Thanks for letting me know. Happy I could help.

 

[mamun_ges]

Hi, I am using the below code.

Sub ExportTxt()

    Dim UsedRows As Long
    Dim UsedColumns As Long
    Dim R As Long, C As Long
   
    '// Define a suitable file name
    Open "E:\Folder\" & "TD.txt" For Output As #1
    With ActiveSheet
        UsedRows = .UsedRange.Rows.Count
        UsedColumns = .UsedRange.Columns.Count
        For R = 2 To UsedRows
            For C = 1 To UsedColumns
                Select Case C
                    Case 2              ' Numeric Column with 2 decimals
                        Print #1, Format(.Cells(R, C), "#.00"); "|";
                   
                    Case UsedColumns    ' Last Column end of line
                        Print #1, .Cells(R, C)
                   
                    Case Else
                        Print #1, .Cells(R, C); "|";
                   
                End Select
            Next C
        Next R
    End With

    Close #1

End Sub

The code creates the text file in a pipe-delimited format. Now the fact is I need to create the text file where pipe "|" will be after the last text.
I mean Like the below line (As an example)

20157|BISWA MANZIL|FADPUR| 50 |51500.00||22/09/2021|Cost|

What to change in the code to achieve the expected result.
Any suggestion?

Thanks and Best regards.

 

[Fluff]

As this is a significantly different question, you need to start a new thread. Thanks

 

[mamun_ges]

Thanks, Fluff.

A new Thread has been created as per your sugestion.

 

[Fluff]

Thanks