Copy data to textfile

[Av8tordude]

I have the code that exports my data into a textfile as a CSV. The code works great except that if any cell has 0 (Zero), it shows as $-. Is there a way to export the 0's as an integer when creating the text file?

Set BkUp = Workbooks.Add
Rng.Copy BkUp.Sheets(1).Range("A1")
With BkUp
    .Sheets(1).Columns("F:F").NumberFormat = "0.0000000000"
    .Sheets(1).Columns("K:K").NumberFormat = "0.0000000000"
   
    For Each c In Wks.Range("S7:S" & LRow)
        If Not c.Comment Is Nothing Then
            With BkUp.Sheets(1).Cells(c.Row - 6, "S")
                .Value = .Value & COMMENT_DELIMITER & c.Comment.Text
            End With
        End If
    Next c
   
    .SaveAs Filename:=txtFile, FileFormat:=xlCSV
    .Close False
End With

 

[DanteAmor]

it shows as $-. Is there a way to export the 0's

I assume you have a format in the cell that shows $ - in the cell when the value is 0.
An option could be to replace that format with "General" format only if there is a 0 in the cell.

Try the following.
Replace the following format in the macro with the format you have in those cells.
"_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"

  Set BkUp = Workbooks.Add
  Rng.Copy BkUp.Sheets(1).Range("A1")
  With BkUp
    .Sheets(1).Columns("F:F").NumberFormat = "0.0000000000"
    .Sheets(1).Columns("K:K").NumberFormat = "0.0000000000"
   
    For Each c In Wks.Range("S7:S" & LRow)
        If Not c.Comment Is Nothing Then
            With BkUp.Sheets(1).Cells(c.Row - 6, "S")
                .Value = .Value & COMMENT_DELIMITER & c.Comment.Text
            End With
        End If
    Next c
    
    Application.FindFormat.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
    Application.ReplaceFormat.NumberFormat = "General"
    .Sheets(1).Cells.Replace What:="0", Replacement:="0", LookAt:=xlWhole, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
    Application.FindFormat.Clear
    Application.ReplaceFormat.Clear

    .SaveAs Filename:=txtFile, FileFormat:=xlCSV, local:=True
    .Close False
  End With