Export to csv.

[Nomas]

Hi there,

Using Excel 2007, I am looking to select a specific sheet out of a multiple sheet workbook, delete the 1st 2 header rows, and save only that sheet as a csv. When I try to do it through recording it, it saves that sheet but I cant get back to the macro because its not saved due to it being in text format now it only kept 1 sheet. I appreciate any guidance.

 

[texasalynn]

I have a workbook that I use to collect my macros. Then I can use it on any file. I don't like the Personal workbook, so instead a just have a sheet that I open everyday that has the hundreds of macros. Just a suggested route that would help you in your situation.

 

[ZVI]

Try this:

Sub SaveCsvSheet()
  
  ' CSV source sheet name, change to suit
  Const CsvSheet = "Sheet2"
  
  Dim CsvFile As String
  
  ' Define CSV full name
  With ActiveWorkbook
    CsvFile = Left(.FullName, Len(.FullName) - 5) & "_" & CsvSheet & ".CSV"
  End With
  
  On Error GoTo exit_
  
  ' Copy CSV source sheet into new workbook
  Sheets(CsvSheet).Copy
  ' Suppress dialog
  Application.DisplayAlerts = False
  ' Delete 2 top rows
  Rows("1:2").Delete
  ' Save as CSV and close
  With ActiveWorkbook
    .SaveAs Filename:=CsvFile, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    .Close False
  End With
  
exit_:
  Application.DisplayAlerts = True
  If Err Then MsgBox Err.Description
  
End Sub

 

[Nomas]

Thank you very much, this worked like a charm!

 

[ZVI]

Thank you very much, this worked like a charm!

Good news, thanks for feedback!