macro needed for saving multiple sheets into DBF format
I mean for specific areas, libe B5:z66 from sheet2, appendable after b5:f66
I have simulated, but I know how to save xls with one sheet, it works; but
is useless for me. also I have colected the whole sheets in one, specific
wich I want to convert into DBF. Any solution provided hope that will be
usefull; I use office 2003.

Becuase you want to save only specific areas of the workbook and not the
whole workbook, you need to create a new workbook, then copy the data
specific areas of the workbook to the new workbook, and finally do a SAVEAS
to the new workbook in DBF format.

"Steve" wrote:

macro needed for saving multiple sheets into DBF format
I mean for specific areas, libe B5:z66 from sheet2, appendable after b5:f66
I have simulated, but I know how to save xls with one sheet, it works; but
is useless for me. also I have colected the whole sheets in one, specific
wich I want to convert into DBF. Any solution provided hope that will be
usefull; I use office 2003.

In this point is more usefull a macro to save one specific sheet to another
workbook, with a single sheet, and that to dbf. any sugestion?
"
ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs ("C:\...... " can't use with more than
1sheet

I mean for a single macro run to do all the work

does anyone know how to save JUST ONE SHEET?
the: ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs ("C:\......
doesn't help me

dim wks as worksheet
set wks = worksheets("somesheetnamehere")
wks.copy 'copies to a new workbook--single sheet
'save the newly created single sheet workbook.
with activeworkbook
.saveas filename:="C:\..."
.close savechanges:=false
end with

Steve wrote:

does anyone know how to save JUST ONE SHEET?
the: ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs ("C:\......
doesn't help me

--

Dave Peterson

I was wandering when DAVE pick on this post..
thank you Dave, I got to try you solution, at the first look it was under my
nose...

"Dave Peterson" wrote:

dim wks as worksheet
set wks = worksheets("somesheetnamehere")
wks.copy 'copies to a new workbook--single sheet
'save the newly created single sheet workbook.
with activeworkbook
.saveas filename:="C:\..."
.close savechanges:=false
end with

Steve wrote:

does anyone know how to save JUST ONE SHEET?
the: ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs ("C:\......
doesn't help me

--

Dave Peterson