From: bbotz on
In 2003 Excel VBA, this code saved the name correctly:

Application.Calculation = xlCalculationAutomatic
ChDir "K:"

wNFileName = "k:Safety\" & Left(wFileName, Len(wFileName) - 4) & " " &
Format(Now(), "mmddyy") & ".xls"
ActiveWorkbook.SaveAs FileName:=wNFileName
ActiveWorkbook.Close
ChDir ".."
ActiveWorkbook.SaveAs FileName:="k:" & wFileName

So a file name of "Quota File MW 201003.xls" would save with exactly that
filename.

Just upgraded to 2007 and same code now saves

"Quota%20File%20MW%20201003.xls" which I assume is URL encoding. How can I
turn that off, or have Excel 2007 revert back to 2003 behavior??

Thanks!!

From: Wouter HM on
Hi Bbotz,

I would replace all spaces " " with an underscore "_".
So you would get "Quota_File_MW_201003.xls", using

ActiveWorkbook.SaveAs FileName:=Replace(wNFileName, " ", "_")

Besides I see something strange in this part: "k:Safety\"
TMHO it should be "k:\Safety\"

HTH,

Wouter
From: bbotz on
Can anyone please help with this???

"bbotz" wrote:

> In 2003 Excel VBA, this code saved the name correctly:
>
> Application.Calculation = xlCalculationAutomatic
> ChDir "K:"
>
> wNFileName = "k:Safety\" & Left(wFileName, Len(wFileName) - 4) & " " &
> Format(Now(), "mmddyy") & ".xls"
> ActiveWorkbook.SaveAs FileName:=wNFileName
> ActiveWorkbook.Close
> ChDir ".."
> ActiveWorkbook.SaveAs FileName:="k:" & wFileName
>
> So a file name of "Quota File MW 201003.xls" would save with exactly that
> filename.
>
> Just upgraded to 2007 and same code now saves
>
> "Quota%20File%20MW%20201003.xls" which I assume is URL encoding. How can I
> turn that off, or have Excel 2007 revert back to 2003 behavior??
>
> Thanks!!
>