VBA - Importing CSV File as Text removing LF and CR from String between Quotes before Importing

[Verysheyn]

Hello Everyone,

I'm writing a Macro where I need to Import a CSV file as text where each line is not Delimited, but has a Fixed Width or is altogether. It also has to delete or not consider LF or CR that are between quotes before importing the data.

So basically I'm trying to put every line in one cell altogether not considering LF or CR within quotes.

I really appreciate any help!! Thanks!!

Here is my code so far:

Sub OldTable()


'Bring Old Table of a CSV File all information within One Column
Dim fNameAndPath As Variant
fNameAndPath = Application.GetOpenFilename(FileFilter:="All Files (*.CSV), *.CVS", Title:="Select Old Table")
If fNameAndPath = False Then Exit Sub
If fNameAndPath <> False Then
ActiveWorkbook.Worksheets.Add After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "Old Table"
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & fNameAndPath _
, Destination:=Range("$A$1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2)
.TextFileTrailingMinusNumbers = False
.Refresh BackgroundQuery:=False
End With
End If


End Sub