How to remove cells leading ' s when cvs (comma separated) file is imported in Excel.

[mikeburg]

I need to find out how to remove leading ' (apostophes) that is in each cell that I imported into excel from a cvs file (comma separated).

They happen every time I import a cvs (comma separated) file.

Thank you for any help you can give me.
mikeburg

[p45cal]

perhaps attach said cvs file and outline steps you take to import

[GarysStudent]

This may give you a start:


Sub CSVspecial()
Dim FilesToOpen As String, TextLine As String
Dim i As Long, j As Long, a As Variant

FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Text Files (*.csv), *.csv", Title:="Text Files to Open")
Close #1
Open FilesToOpen For Input As #1
j = 1
Do While Not EOF(1)
Line Input #1, TextLine
ary = Split(TextLine, ",")
i = 1
For Each a In ary
If Left(a, 1) = "'" Then a = Mid(a, 2)
Cells(j, i) = a
i = i + 1
Next a
j = j + 1
Loop
Close #1
End Sub

[Paul_Hossler]

They happen every time I import a cvs (comma separated) file.

In every cell in every file?

Attach a sample (small) CSV file so we can see