Converting Excel File to CSV

[大灰狼1976]

Hi Slicemahn!

Sub Create_CSV()
Dim fname As String
Dim LText As String
Dim CSText As Variant
Dim myRange As Range, I, j
fname = ThisWorkbook.path & "\ExportData" & ".csv"
Open fname For Output As #1
With ActiveSheet
    Set myRange = .Range("Report")
    For I = 1 To myRange.Rows.Count
        For j = 1 To myRange.Columns.Count
            If InStr(myRange.Cells(I, j), ",") > 0 Then
                CSText = "‘" & myRange.Cells(I, j) & "‘"
                LText = LText & CSText
                CSText = ""
            Else
                LText = IIf(j = 1, "", LText & ",") & myRange.Cells(I, j)
            End If
        Next j
        Print #1, LText
    Next I
End With
Close #1
MsgBox "All complete!", vbInformation, "Data to CSV Format"
End Sub