[Help] With VBA code wanna save a workbook automatic and open it

[Drumaster]

Hi all,

I write a VBA code to automatically open an Excel file.
but the way i didt doenst work (see my code).

does someone has an idea how I can deal with this.

And another question: Now I save my file as data.xls it is also possible to save it whit the date of that day??

example data21/11/11.xls or something in that way.

thanks in advance

ps. sorry for my english not that good in writing :s

Sheets("AlarmTop10").Select
ActiveWorkbook.SaveCopyAs "C:\TEMP\Data.xls"
Workbooks("Alarmlog.dbf").Close SaveChanges:=False
Workbooks.Open "C:\TEMP\Data.xls"​

 

[Andrew Poulsom]

Have you tried swapping the last 2 lines of your code?

 

[JamesW]

Why do you want to close it and reopen it again straight after?

The reason the above doesn't work is because you have already closed your workbook and therefore stopped the macro.

 

[Drumaster]

i already try that :S

 

[Drumaster]

i also swap the lines but that still didnt work. why i wanna do this is becaus when they open the Alarmlog.dbf file i dont want the change something in that file. that is why i copysave it to date.xls file and there they can do what they want.

 

[Drumaster]

Have you tried swapping the last 2 lines of your code?

Lol its works didnt save the change

 

[Drumaster]

Why do you want to close it and reopen it again straight after?

The reason the above doesn't work is because you have already closed your workbook and therefore stopped the macro.

Thanks for the advice

Do also know how to save with date

 

[JamesW]

Hi,

You can try:

ActiveWorkbook.SaveCopyAs "C:\TEMP\Data " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".xls"

 

[Drumaster]

Hi,

You can try:

ActiveWorkbook.SaveCopyAs "C:\TEMP\Data " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".xls"

WOW its work fantastic i starting to love excel

thanks a lot