Possible to save all columns except hidden?

[JadonR]

I would like to save a worksheet as a csv file, but I don't want to save the columns that are hidden. Is this even possible?

I'm currently using the following macro to save the worksheet as the csv. Maybe it could be modified?

Sub Export()
'
' Macro2 Macro
'

'
Application.ScreenUpdating = False
    Columns("B:Z").Select
    Selection.Copy
    Sheets.Add.Name = "Export"
    Sheets("Export").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Columns("M:M").Select
    Selection.Delete Shift:=xlToLeft
    Columns("V:V").Select
        Selection.NumberFormat = "m/d/yyyy h:mm"
    Columns("W:W").Select
    Selection.Delete Shift:=xlToLeft
    Range("a5").Select
    Application.DisplayAlerts = False
    ChDir "\\SERVER\CPSQL"
    ActiveWorkbook.SaveAs Filename:= _
        "\\SERVER\CPSQL\SGProducts.csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
    Workbooks.Close
Application.DisplayAlerts = True
End Sub

 

[Joe4]

Whenever I have a situation like this, where I don't want to export all the columns, I just copy all the columns I do want to export to a new sheet, and export that sheet.

 

[JadonR]

That is definitely the obvious choice . I am trying to get something a little more automated though. Apparently what I was asking for is not possible. I guess I'll look for an alternative way...thanks.

 

[Joe4]

That is definitely the obvious choice . I am trying to get something a little more automated though. Apparently what I was asking for is not possible. I guess I'll look for an alternative way...thanks.

Oh, I automate it! I have a macro that does everything, so I export the whole thing with a single click of a button. You should be able to use the Macro Recorder to give you most of the code you would need to do that. Just record yourself performing those steps. It might be easier to copy the whole sheet over, then delete the columns you do not want.