Auto-Save after editing an XL document 1

[JavaTurkey]

I've got some VBA code which edits a specific XL document...

Set xlobj = CreateObject("excel.application&quot
With xlobj
.Workbooks.open Filename:="R:\All-In-One\po_local.xls"
.Range("B8&quot.select
.ActiveCell.FormulaR1C1 = Me!Name
.Quit
End With

it works great, except when it runs, it pops up asking me if I'd like to save changes...any way to just hardcode "YES" ?

 

[BillPower]

Try sendkeys:

Set xlobj = CreateObject("excel.application&quot
With xlobj
.Workbooks.open Filename:="R:\All-In-One\po_local.xls"
.Range("B8&quot.select
.ActiveCell.FormulaR1C1 = Me!Name
.Quit
SendKeys "y"
End With

 

[Junior1544]

i don't like send keys...

personaly, I would try to use some thing like
.save
so, some thing like this... (keeping in mind, this is off the top of my head, so i'm not to sure on it)

Set xlobj = CreateObject("excel.application&quot
With xlobj
.Workbooks.open Filename:="R:\All-In-One\po_local.xls"
.Range("B8&quot.select
.ActiveCell.FormulaR1C1 = Me!Name
.Save
.Quit
End With junior1544@jmjpc.net
Life is change. To deny change is to deny life.

 

[BillPower]

Hi junior1544,

Much neater! I'm giving you the star because that's really helped me. Thanks.

 

[Junior1544]

I'm guessing it worked?? I worked with linking excel and access a bit like this, and I thought that's how I did what you're looking do it...

--James
junior1544@jmjpc.net
Life is change. To deny change is to deny life.