Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Old July 18th 04, 03:04 PM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: Jul 2006
Posts: 414
Default Macro to open SaveAs... and change filename to cell value

I have an excel.xlt file that I would like to fill in and save as an .xls with its filename and path based on particular cell values

For example A1 = Company A2 = QuoteNumber

The full Path/filename I would like to SaveAs...
is R:\Company\QuoteNumber.xls

I would appreciate if any could suggest a macro code to do this


  #2   Report Post  
Old July 18th 04, 03:26 PM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: May 2004
Posts: 618
Default Macro to open SaveAs... and change filename to cell value

Hi Andy

something along the lines of

Dim fname As String
fname = "R:\" & Range("A1").Value & "\" & Range("A2").Value & ".xls"
ActiveWorkbook.SaveAs fname

this assumes that the folder for the company exists

Cheers
JulieD


"Andy" wrote in message
...
I have an excel.xlt file that I would like to fill in and save as an .xls

with its filename and path based on particular cell values

For example A1 = Company A2 = QuoteNumber

The full Path/filename I would like to SaveAs...
is R:\Company\QuoteNumber.xls

I would appreciate if any could suggest a macro code to do this



  #3   Report Post  
Old July 19th 04, 02:47 AM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: Jul 2006
Posts: 414
Default Macro to open SaveAs... and change filename to cell value

Thanks Julie

It did exactly what I wanted in terms of the file saving. Thankyou.
What it didn't do was also change the name of the .xlt I was working on. Yes, the file was saved as the correct name however as I would like to keep working on it without opening the correctname.xls.


"JulieD" wrote:

Hi Andy

something along the lines of

Dim fname As String
fname = "R:\" & Range("A1").Value & "\" & Range("A2").Value & ".xls"
ActiveWorkbook.SaveAs fname

this assumes that the folder for the company exists

Cheers
JulieD


"Andy" wrote in message
...
I have an excel.xlt file that I would like to fill in and save as an .xls

with its filename and path based on particular cell values

For example A1 = Company A2 = QuoteNumber

The full Path/filename I would like to SaveAs...
is R:\Company\QuoteNumber.xls

I would appreciate if any could suggest a macro code to do this




  #4   Report Post  
Old July 19th 04, 02:51 AM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: Jul 2006
Posts: 414
Default Macro to open SaveAs... and change filename to cell value



"JulieD" wrote:

Hi Andy

something along the lines of

Dim fname As String
fname = "R:\" & Range("A1").Value & "\" & Range("A2").Value & ".xls"
ActiveWorkbook.SaveAs fname

this assumes that the folder for the company exists

Cheers
JulieD


"Andy" wrote in message
...
I have an excel.xlt file that I would like to fill in and save as an .xls

with its filename and path based on particular cell values

For example A1 = Company A2 = QuoteNumber

The full Path/filename I would like to SaveAs...
is R:\Company\QuoteNumber.xls

I would appreciate if any could suggest a macro code to do this




  #5   Report Post  
Old July 19th 04, 02:51 AM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: Jul 2006
Posts: 414
Default Macro to open SaveAs... and change filename to cell value

Hi Julie

Thankyou very much. The file save worked well however I wanted to continue working on the new saved as file straight away and had to open the file manually.

When I normally Save As... manually the .xlt I am working on turns into a .xls that I rename and relocate and I continue to work on the .xls.

Is there something I have forgotten?

"JulieD" wrote:

Hi Andy

something along the lines of

Dim fname As String
fname = "R:\" & Range("A1").Value & "\" & Range("A2").Value & ".xls"
ActiveWorkbook.SaveAs fname

this assumes that the folder for the company exists

Cheers
JulieD


"Andy" wrote in message
...
I have an excel.xlt file that I would like to fill in and save as an .xls

with its filename and path based on particular cell values

For example A1 = Company A2 = QuoteNumber

The full Path/filename I would like to SaveAs...
is R:\Company\QuoteNumber.xls

I would appreciate if any could suggest a macro code to do this






  #6   Report Post  
Old July 19th 04, 12:23 PM posted to microsoft.public.excel.programming
external usenet poster
 
First recorded activity by ExcelBanter: May 2004
Posts: 618
Default Macro to open SaveAs... and change filename to cell value

Hi Andy

i don't quite understand this, when i run the code the xlt turns into the
newly saved file (as shown in the title bar at the top) ... this is whether
i open the template itself or whether i open a new workbook based on the
template.

how are you running the code? could you cut & paste everything from the sub
to the end sub -also are you opening the xlt or a new workbook based on the
xlt (file / new - templates from my computer etc)

what version of excel are you running?

Cheers
JulieD

"Andy" wrote in message
...
Hi Julie

Thankyou very much. The file save worked well however I wanted to continue

working on the new saved as file straight away and had to open the file
manually.

When I normally Save As... manually the .xlt I am working on turns into a

..xls that I rename and relocate and I continue to work on the .xls.

Is there something I have forgotten?

"JulieD" wrote:

Hi Andy

something along the lines of

Dim fname As String
fname = "R:\" & Range("A1").Value & "\" & Range("A2").Value & ".xls"
ActiveWorkbook.SaveAs fname

this assumes that the folder for the company exists

Cheers
JulieD


"Andy" wrote in message
...
I have an excel.xlt file that I would like to fill in and save as an

..xls
with its filename and path based on particular cell values

For example A1 = Company A2 = QuoteNumber

The full Path/filename I would like to SaveAs...
is R:\Company\QuoteNumber.xls

I would appreciate if any could suggest a macro code to do this








Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
SaveAs Filename and FileFormat in Vs2007 RobN[_2_] Excel Discussion (Misc queries) 4 July 14th 07 01:21 AM
SaveAs using two cells for filename David Excel Discussion (Misc queries) 5 June 4th 05 11:46 AM
Max charactors for 'ActiveWorkbook.SaveAs Filename'? TOMB Excel Worksheet Functions 1 February 16th 05 07:44 AM
SaveAs Filename Help Ed[_14_] Excel Programming 2 November 20th 03 08:43 PM
Can a MACRO prompt for the filename to open and/or save? Dave Peterson[_3_] Excel Programming 1 September 3rd 03 04:53 PM


All times are GMT +1. The time now is 10:29 PM.

Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Copyright 2004-2017 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Copyright © 2017