Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
excel 2007 Save As?
I have the following code;
Sheets(Array("Moscad", "Opto")).Select Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets(Array("Moscad", "Opto")).Copy Set NewWb = ActiveWorkbook WBname = " " & Format(Now() - 1, "ddmmyyyy") & ".xls" NewWb.SaveAs "C:/" & WBname it worked in excel 2003, but i have converted up to excel 2007, i am trying to save a copy of the active workbook as a excel 2003 file. any ideas on how to adjust the code? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
excel 2007 Save As?
Hi Mark,
Not the best looking code in the world... but have you even tried it in 2007?? I'm failing to see what the problem is. Code from 2003 will almost predominatly run in 2007 as well. -- Regards, Zack Barresse, aka firefytr MsgBox "fire" & "fytr" & Chr(64) & "vba" & "express" & Chr(46) & "com" "Mark J" wrote in message ... I have the following code; Sheets(Array("Moscad", "Opto")).Select Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets(Array("Moscad", "Opto")).Copy Set NewWb = ActiveWorkbook WBname = " " & Format(Now() - 1, "ddmmyyyy") & ".xls" NewWb.SaveAs "C:/" & WBname it worked in excel 2003, but i have converted up to excel 2007, i am trying to save a copy of the active workbook as a excel 2003 file. any ideas on how to adjust the code? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
excel 2007 Save As?
Hi Mark
See http://www.rondebruin.nl/saveas.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Mark J" wrote in message ... I have the following code; Sheets(Array("Moscad", "Opto")).Select Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets(Array("Moscad", "Opto")).Copy Set NewWb = ActiveWorkbook WBname = " " & Format(Now() - 1, "ddmmyyyy") & ".xls" NewWb.SaveAs "C:/" & WBname it worked in excel 2003, but i have converted up to excel 2007, i am trying to save a copy of the active workbook as a excel 2003 file. any ideas on how to adjust the code? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
excel 2007 Save As?
Thanks Ron, thats the info i needed.
"Ron de Bruin" wrote: Hi Mark See http://www.rondebruin.nl/saveas.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Mark J" wrote in message ... I have the following code; Sheets(Array("Moscad", "Opto")).Select Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets(Array("Moscad", "Opto")).Copy Set NewWb = ActiveWorkbook WBname = " " & Format(Now() - 1, "ddmmyyyy") & ".xls" NewWb.SaveAs "C:/" & WBname it worked in excel 2003, but i have converted up to excel 2007, i am trying to save a copy of the active workbook as a excel 2003 file. any ideas on how to adjust the code? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2007 Save a New File or Save As | Excel Discussion (Misc queries) | |||
Excel 2007 Save As ?? | Excel Discussion (Misc queries) |