Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Incomplete SaveAs name
[Xl97] This piece of code is to copy 2 sheets ('Data' and 'Selection')
to a new workbook and name and save the new book to a path and with a name from the 'Selection' sheet of the new workbook. The path is in 'Selection' G2 and the name in B2. It produces the copy workbook, saves it using the correct path but only uses the date as the file name, and does not include the identifier in B2. G2 reads E:\ELS\Inspections\ B2 reads ELSpilot Sheets(Array("Data", "Selection")).Select Sheets(Array("Data", "Selection")).Copy ActiveWorkbook.SaveAs FileName:= _ Sheets("Selection").Range("G2") & Range("B2") & _ Format(Now(), " DD.MM.YY") & ".xls" -- Robert |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Incomplete SaveAs name
Robert,
Try Private Sub Mysub() With Sheets("Selection") ActiveWorkbook.SaveAs Filename:= _ .Range("G2").Value & .Range("B2").Value & _ " " & Format(Date, "DD.MM.YY") & ".xls" End With End Sub "Robert" wrote in message ... [Xl97] This piece of code is to copy 2 sheets ('Data' and 'Selection') to a new workbook and name and save the new book to a path and with a name from the 'Selection' sheet of the new workbook. The path is in 'Selection' G2 and the name in B2. It produces the copy workbook, saves it using the correct path but only uses the date as the file name, and does not include the identifier in B2. G2 reads E:\ELS\Inspections\ B2 reads ELSpilot Sheets(Array("Data", "Selection")).Select Sheets(Array("Data", "Selection")).Copy ActiveWorkbook.SaveAs FileName:= _ Sheets("Selection").Range("G2") & Range("B2") & _ Format(Now(), " DD.MM.YY") & ".xls" -- Robert |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Incomplete SaveAs name
Henry - many thanks it solved the problem
Robert n message , Henry writes Robert, Try Private Sub Mysub() With Sheets("Selection") ActiveWorkbook.SaveAs Filename:= _ .Range("G2").Value & .Range("B2").Value & _ " " & Format(Date, "DD.MM.YY") & ".xls" End With End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Incomplete SaveAs name
Robert,
Range B2 refers to the active sheet, which may not be sheet "Selection". Try fileName = Sheets("Selection").Range("G2") & Sheets("Selection").Range("B2") & _ Format(Now(), " DD.MM.YY") & ".xls" HTH Anders Silvén "Robert" skrev i meddelandet ... [Xl97] This piece of code is to copy 2 sheets ('Data' and 'Selection') to a new workbook and name and save the new book to a path and with a name from the 'Selection' sheet of the new workbook. The path is in 'Selection' G2 and the name in B2. It produces the copy workbook, saves it using the correct path but only uses the date as the file name, and does not include the identifier in B2. G2 reads E:\ELS\Inspections\ B2 reads ELSpilot Sheets(Array("Data", "Selection")).Select Sheets(Array("Data", "Selection")).Copy ActiveWorkbook.SaveAs FileName:= _ Sheets("Selection").Range("G2") & Range("B2") & _ Format(Now(), " DD.MM.YY") & ".xls" -- Robert |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Formula incomplete | Excel Discussion (Misc queries) | |||
incomplete name on y axis | Excel Discussion (Misc queries) | |||
Incomplete scroll bar | Excel Discussion (Misc queries) | |||
Sorting is Incomplete | Excel Discussion (Misc queries) | |||
oldest incomplete job | Excel Worksheet Functions |