batch convert worksheets in one workbook into csv files?
 

Is there a way to batch convert many worksheets, contained in one workbook,
into individual csv files?

Thanks

batch convert worksheets in one workbook into csv files?
 

Hi Robgrant

Try this

You can save every sheet then as a CSV file with a loop
Dave Peterson posted this macro to save each sheet as a CSV

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\WINDOWS\TEMP\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
Next wks

End Sub

(adjust the path)



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message ...
Is there a way to batch convert many worksheets, contained in one workbook, into individual csv files?

Thanks

batch convert worksheets in one workbook into csv files?
 

I adjusted the path to D:\CSVDATA
I get stuck on line starting: wks.copy

Can you give me a little more information? I'm rather new at this.

Thanks
"Ron de Bruin" wrote in message
...
Hi Robgrant

Try this

You can save every sheet then as a CSV file with a loop
Dave Peterson posted this macro to save each sheet as a CSV

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\WINDOWS\TEMP\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
Next wks

End Sub

(adjust the path)



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message
...
Is there a way to batch convert many worksheets, contained in one
workbook, into individual csv files?

Thanks

batch convert worksheets in one workbook into csv files?
 

Do you have hidden worksheets in your workbook ?

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message ...
I adjusted the path to D:\CSVDATA
I get stuck on line starting: wks.copy

Can you give me a little more information? I'm rather new at this.

Thanks
"Ron de Bruin" wrote in message ...
Hi Robgrant

Try this

You can save every sheet then as a CSV file with a loop
Dave Peterson posted this macro to save each sheet as a CSV

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\WINDOWS\TEMP\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
Next wks

End Sub

(adjust the path)



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message ...
Is there a way to batch convert many worksheets, contained in one workbook, into individual csv files?

Thanks

batch convert worksheets in one workbook into csv files?
 

Okay, how do I tell?

"Ron de Bruin" wrote in message
...
Do you have hidden worksheets in your workbook ?

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message
...
I adjusted the path to D:\CSVDATA
I get stuck on line starting: wks.copy

Can you give me a little more information? I'm rather new at this.

Thanks
"Ron de Bruin" wrote in message
...
Hi Robgrant

Try this

You can save every sheet then as a CSV file with a loop
Dave Peterson posted this macro to save each sheet as a CSV

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\WINDOWS\TEMP\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
Next wks

End Sub

(adjust the path)



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message
...
Is there a way to batch convert many worksheets, contained in one
workbook, into individual csv files?

Thanks

batch convert worksheets in one workbook into csv files?
 

I clicked unhide for the workbook, but still get stuck at the same point in
the macro.
"Ron de Bruin" wrote in message
...
Do you have hidden worksheets in your workbook ?

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message
...
I adjusted the path to D:\CSVDATA
I get stuck on line starting: wks.copy

Can you give me a little more information? I'm rather new at this.

Thanks
"Ron de Bruin" wrote in message
...
Hi Robgrant

Try this

You can save every sheet then as a CSV file with a loop
Dave Peterson posted this macro to save each sheet as a CSV

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\WINDOWS\TEMP\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
Next wks

End Sub

(adjust the path)



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message
...
Is there a way to batch convert many worksheets, contained in one
workbook, into individual csv files?

Thanks

batch convert worksheets in one workbook into csv files?
 

Hi Rob

Okay, how do I tell?
FormatSheet...Unhide

Try this instead

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
If wks.Visible = -1 Then
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\Data\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
End If
Next wks
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message ...
I clicked unhide for the workbook, but still get stuck at the same point in the macro.
"Ron de Bruin" wrote in message ...
Do you have hidden worksheets in your workbook ?

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message ...
I adjusted the path to D:\CSVDATA
I get stuck on line starting: wks.copy

Can you give me a little more information? I'm rather new at this.

Thanks
"Ron de Bruin" wrote in message ...
Hi Robgrant

Try this

You can save every sheet then as a CSV file with a loop
Dave Peterson posted this macro to save each sheet as a CSV

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\WINDOWS\TEMP\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
Next wks

End Sub

(adjust the path)



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message ...
Is there a way to batch convert many worksheets, contained in one workbook, into individual csv files?

Thanks

batch convert worksheets in one workbook into csv files?
 

Very pretty, worked like a charm.
Thanks Ron.

"Ron de Bruin" wrote in message
...
Hi Rob

Okay, how do I tell?
FormatSheet...Unhide

Try this instead

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
If wks.Visible = -1 Then
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\Data\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
End If
Next wks
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message
...
I clicked unhide for the workbook, but still get stuck at the same point
in the macro.
"Ron de Bruin" wrote in message
...
Do you have hidden worksheets in your workbook ?

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message
...
I adjusted the path to D:\CSVDATA
I get stuck on line starting: wks.copy

Can you give me a little more information? I'm rather new at this.

Thanks
"Ron de Bruin" wrote in message
...
Hi Robgrant

Try this

You can save every sheet then as a CSV file with a loop
Dave Peterson posted this macro to save each sheet as a CSV

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\WINDOWS\TEMP\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
Next wks

End Sub

(adjust the path)



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message
...
Is there a way to batch convert many worksheets, contained in one
workbook, into individual csv files?

Thanks

batch convert worksheets in one workbook into csv files?
 

You are welcome


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message ...
Very pretty, worked like a charm.
Thanks Ron.

"Ron de Bruin" wrote in message ...
Hi Rob

Okay, how do I tell?
FormatSheet...Unhide

Try this instead

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
If wks.Visible = -1 Then
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\Data\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
End If
Next wks
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message ...
I clicked unhide for the workbook, but still get stuck at the same point in the macro.
"Ron de Bruin" wrote in message ...
Do you have hidden worksheets in your workbook ?

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message ...
I adjusted the path to D:\CSVDATA
I get stuck on line starting: wks.copy

Can you give me a little more information? I'm rather new at this.

Thanks
"Ron de Bruin" wrote in message ...
Hi Robgrant

Try this

You can save every sheet then as a CSV file with a loop
Dave Peterson posted this macro to save each sheet as a CSV

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\WINDOWS\TEMP\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
Next wks

End Sub

(adjust the path)



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Robgrant" wrote in message ...
Is there a way to batch convert many worksheets, contained in one workbook, into individual csv files?

Thanks