Update Link

Hi,

Code:

---

jet = InputBox("Please key in the range example Q:Q", "Column to Grab")
mypath = InputBox("File Location", "Jen")
fname = Dir(mypath & "\" & "*.xls")
Do While Len(fname) > 0
Set wb = Workbooks.Open(mypath & "\" & fname)

'i do all my stuff here

wb.Activate
wb.Close

fname = Dir

Loop

---

The above code is to grab all the files in a folder and when it is grabbing all the files, it will prompt up whether i wanted to update the link. I have 100+ files that I need to open and i need to click 100+ times "Don't Update".

I've tried "Select Case" and "Update Link = 0", i just don't get it right. hope someone can help me..thankss

wb.close false
your description is really not clear, but i believe the above is what you want

Dear West,

When i tried to open multiple files, the update link msg box will pop up and ask whether to "Update" or "Don't Update".

Kindly refer to attachment.


So, I need to click "Don't Update" each time the macro i run open the workbook.

I hope the above is clear. :)

Thanks

That sounds like your security settings, I am more familiar with them in Office 2007, but there are settings to automatically allow the links to update.

You can also do it programatically through the open method, I didn't test this, but you can refer to the MSDN open reference listed at the bottom.

The second option for the .open method is for updating...

Code:

---

Set wb = Workbooks.Open(mypath & "\" & fname, True)

---

Select the first link "Open Method as it applies to Workbook Objects"
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

you can try application.displayalerts = false

i've tried it already but it didn't work. :(