Convert Mutliple csv in Multiple sheet in one workbook Make column as text,Replace CHR(10)

  1. srivasn1
    srivasn1
    Hi All,

    I am Converting Mutliple csv in Multiple worksheet in one excel workbook, I have Macro working for the conversion, Files are PIPE(|) deliminator.

    I need help in adding 2 more logic to code
    1- Make all column in Text
    2-Replace CHR(10) line feed character with blank.


    Thanks
    Srivas
  2. srivasn1
    srivasn1
    Sub IMPORT_CSV()
    Dim file_name As String
    Dim row_number As String
    Dim output_sheet As String
    For rep = 4 To 3 + Sheets("Admin").Range("D1").Value
    file_name = Sheets("Admin").Range("G" & rep).Value
    row_number = Sheets("Admin").Range("F" & rep).Value
    output_sheet = Sheets("Admin").Range("E" & rep).Value
    With Sheets(output_sheet).QueryTables.Add(Connection:= _
    "TEXT;" + file_name, Destination:=Sheets(output_sheet).Range(row_number))
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .AdjustColumnWidth = True
  3. srivasn1
    srivasn1
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 437
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileOtherDelimiter = "|"
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
    End With
    Next rep

    End Sub
Results 1 to 3 of 3

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1