Converting txt files to CSV files

[ANONYMOUS123456]

Hi everyone,
I have 1000 txt files. Each txt file contains an article. I want to convert all of them to CSV files and the data of each txt file should stay in A1 cell of corresponding output CSV file.

I have once tried to convert txt files to CSV files but the data is splitted into multiple cells of resulted csv file which is what I don't want.

 

[RedBeard]

A CSV file is a text file already, just formatted with commas.
Not sure what you're trying to accomplish as I can't understand your problem description.

 

[ANONYMOUS123456]

A CSV file is a text file already, just formatted with commas.
Not sure what you're trying to accomplish as I can't understand your problem description.

Actually My end object is to import all the text file to an excel sheet. I have a VBA code which imports CSV files to an excel sheet but the data should reside in A1 cell of all CSV files before importing. But in my case when I convert text files to CSV files then the data is splitted into multiple columns which is the only problem and VBA code is not working on such CSV files. For reference, I VBA code is given below:


Option Explicit


Sub ImportCSVsWithReference()
'Author: Jerry
'Date: 10/16/2010
' Import all CSV files from a folder into a single sheet
' adding a field in column A listing the CSV filenames


Dim wbCSV As Workbook
Dim wsMstr As Worksheet: Set wsMstr = ThisWorkbook.Sheets("MasterCSV")
Dim fPath As String: fPath = "C:\Import\" 'path to CSV files, include the final \
Dim fCSV As String


Application.ScreenUpdating = False


fCSV = Dir(fPath & "*.csv") 'start the CSV file listing


Do While Len(fCSV) > 0
'open a CSV file
Set wbCSV = Workbooks.Open(fPath & fCSV)
'insert col A and add CSV name
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
'copy date into master sheet and close source file
ActiveSheet.UsedRange.Copy wsMstr.Range("A" & Rows.Count).End(xlUp).Offset(1)
wbCSV.Close False
'ready next CSV
fCSV = Dir
Loop

Application.ScreenUpdating = True
End Sub

 

[ANONYMOUS123456]

A CSV file is a text file already, just formatted with commas.
Not sure what you're trying to accomplish as I can't understand your problem description.

Please visit this link

http://www.mrexcel.com/forum/excel-...es-csv-files-related-problem.html#post4621995


I have again posted this question with complete details and snapshots. This time, you will understand completely.