Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Create macro in excel.
- Thread starter mrdavid57
- Start date
The following code will save the active file (using all the default settings) into the current directory with whatever name is cell A1. No error trapping has been included for posible invalid filenames.
A.C.
Code:
Sub SaveFile()
ActiveWorkbook.SaveAs Filename:=[A1]
End SubThis works
Sub nbtest()
'
' nbtest Macro
Dim fname As Range, Fpath As String
Fpath = "c:\my Documents\"
Set fname = Worksheets("Sheet1"
.Range("A1"
'Save just with cell A1 Remove the ' on the required line
'ActiveWorkbook.SaveAs Filename:=fname
'Saves with Fpath and Cell A1
ActiveWorkbook.SaveAs Filename:=Fpath & fname
End Sub Neil Berryman
IT Trainer
neil_berryman@btopenworld.com
Sub nbtest()
'
' nbtest Macro
Dim fname As Range, Fpath As String
Fpath = "c:\my Documents\"
Set fname = Worksheets("Sheet1"
.Range("A1"'Save just with cell A1 Remove the ' on the required line
'ActiveWorkbook.SaveAs Filename:=fname
'Saves with Fpath and Cell A1
ActiveWorkbook.SaveAs Filename:=Fpath & fname
End Sub Neil Berryman
IT Trainer
neil_berryman@btopenworld.com
- Status