Question : Pivot Table: Export to a CSV file

Hi Experts,
Back again with a Pivot Table question.

I have created a Pivot table which has a running total field in it. I want to now export this pivot table to a CSV file. I do not want the underlying data to be exported but would want the pivot table to be exported so as to get the running total in the CSV File. Is this possible? I want to do it using a VBA macro. Thanks.

$wapnil

Answer : Pivot Table: Export to a CSV file

Try this

Ritesh

                       
             Sub Macro2()
ActiveSheet.Select
ActiveSheet.Copy
Do
    fName = Application.GetSaveAsFilename(fileFilter:="CSV Files (*.csv), *.csv")
Loop Until fName <> False
ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=xlCSV
End Sub

Open in New Window

Select All

Question : Pivot Table: Export to a CSV file

Answer : Pivot Table: Export to a CSV file

Try thisRitesh 1: 2: 3: 4: 5: 6: 7: 8: Sub Macro2() ActiveSheet.Select ActiveSheet.Copy Do fName = Application.GetSaveAsFilename(fileFilter:="CSV Files (*.csv), *.csv") Loop Until fName <> False ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=xlCSV End Sub Open in New Window Select All

Try this

Ritesh

1: 2: 3: 4: 5: 6: 7: 8:

Sub Macro2() ActiveSheet.Select ActiveSheet.Copy Do fName = Application.GetSaveAsFilename(fileFilter:="CSV Files (.csv), .csv") Loop Until fName <> False ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=xlCSV End Sub

Open in New Window

Select All