Need to write a macro to delete columns in a CSV file

[araghupa]

Hi,

I have a CSV file with the following columns:

column1, Column2, Column3
A, B, "C,D"

I need to write a macro to :
1. Delete column2
2. Save the CSV file. At the time of saving I need to supress all default messages.

Thanks,
AR

 

[jindon]

Application.DisplayAlerts = False
Thisworkbook.SaveAs "c:\test\test.csv", xlCSV
Application.DisplayAlerts = True

 

[araghupa]

Hi Jindon,

I need to specify the column name to delete a column instead of specifying a range. Will that be possible?

Thanks

 

[jindon]

Hi Jindon,

I need to specify the column name to delete a column instead of specifying a range.

How ?

Have you tried it anyway?

 

[araghupa]

I tried it Jindon.

My column names are:
Number, Description, Filter, Automate

I need to delete columns filter and automate. I cannot specify the same in the range. This column Filter can be any column in the CSV file.

 

[jindon]

I tried it Jindon.

My column names are:
Number, Description, Filter, Automate

I need to delete columns filter and automate. I cannot specify the same in the range. This column Filter can be any column in the CSV file.

try something like this

Dim e
With Sheets(1)
    On Error Resume Next
    For Each e In Array("Number","Description","Filter","Automate")
        .Cells.Find(e,,,xlWhole).EntireColumn.Delete
    Next
End With

 

[araghupa]

Cool!! This works Jindon.

Thanks a million!! I appreciate your patience and help.

 

[araghupa]

One more question Jindon.

Can I run a macro on a CSV file by storing the code of macro in notepad.

 

[jindon]

just change csv to .txt and xlText

Application.DisplayAlerts = False
Thisworkbook.SaveAs "c:\test\test.txt", xlTEXT
Application.DisplayAlerts = True

 

[araghupa]

I think I confused you by not wording my question correctly.

I need to open the CSV (which i will do manually) and then I need to run the macro automatically as soon as the CSV is open. This has to happen everytime the CSV is opened.