About Us

RobG

Tom

Works like a dream - thanks!

Rob

"Tom Ogilvy" wrote:

There was a missing close paren on the fname statement.

I tested this and it worked fine:

Sub AA()
Do
fName = Application.GetSaveAsFilename( _
FileFilter:="Workbook Files (*.xls), *.xls")
Loop Until fName < False
ActiveWorkbook.SaveAs Filename:=fName, _
FileFormat:=xlWorkbookNormal

End Sub

--
Regards,
Tom Ogilvy

"RobG" wrote in message
...
Tom

I can't get this to work - I keep getting error messages about syntax
errors
or Compile error: Expected: expression. Any idea what I am doing wrong?

Rob

"Tom Ogilvy" wrote:

The dialog doesn't do the saving.

This command does:

ActiveWorkbook.SaveAs Filename:=fName

It should default to workbook, but to be absolutely sure

Do
fName = Application.GetSaveAsFilename( _
FileFilter:="Workbook Files (*.xls), *.xls"
Loop Until fName < False
ActiveWorkbook.SaveAs Filename:=fName, _
FileFormat :=xlWorkbookNormal

--
Regards,
Tom Ogilvy

"RobG" wrote in message
...

Andrea

This works great. In the Save As window it only gives me the option of
All
Files in the Save as type box. Is there a way of getting this to save
as
workbook, or am I trying to be too clever?

Regards

Rob

"Andrea Jones" wrote:

Here is some code that will do everything up until providing a Save
As
window
for you to enter the filename:

Sub expsheet()
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
Do
fName = Application.GetSaveAsFilename
Loop Until fName < False
ActiveWorkbook.SaveAs Filename:=fName
End Sub

Andrea Jones

"RobG" wrote:

Hi all

I need a simple macro to export one worksheet, including formulae,
values
and all formating, to a new workbook. Can anyone help me?

Rob

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
simple Macro needed	ipbr21054	New Users to Excel	1	November 18th 10 07:57 PM
how do you export excel files to Quickbooks Simple edition	Newbie Dianna	New Users to Excel	1	October 9th 09 11:46 PM
Macro needed to pull data from one worksheet and enter it in anoth	bigproblem	Excel Discussion (Misc queries)	2	November 18th 08 02:14 PM
Needed: worksheet export help	mainemike	Excel Discussion (Misc queries)	1	February 24th 06 02:59 AM
Export simple appointments from Excel to Outlook	Kila01	Excel Worksheet Functions	0	March 1st 05 02:27 PM

Menu

About Us