I am not going to be able to be any further help (hindrance) to you.
There are too many things I don't know about SharePoint.
For instance, is the Excel app on your computer even aware of workbooks on the server?
If not your current efforts with the string name are not going to help you.
A quick web search, "workbooks in sharepoint", turned up several possible useful links - if you speak the programming
language involved. (I don't)
--
Jim Cone
Portland, Oregon USA



"ryguy7272"
wrote in message
...
On Jul 21, 6:05 pm, "Jim Cone" wrote:
I don't have access to SharePoint and have never used it.
With that sterling recommendation in mind...

The SaveWB object has been declared but it has not been Set.
You need:
Set SaveWB = imgElement.Title
-Or-
More likely:
Set SaveWB = Workbooks(imgElement.Title)
--
Jim Cone
Portland, Oregon USAhttp://www.mediafire.com/PrimitiveSoftware


Thanks Jim!! I was playing with code similar to that, but a bit
different. Mine didn't work; yours didn't work either, but I think
it's close. Here's the scenario,
imgElement.Title is a big ole' string with lots of stuff in it. What
I need is something like this: 'EXTPOS-0010071G71G25184.xls'; the
left 27 characters comprise the file name.

I'm now thinking that it is something like this:

MsgBox "Saving Changes and Checking your file into SharePoint now!!"
Set SaveWB = Workbooks(Left(UCase(imgElement.Title), 27))
SaveWB.Save
Application.EnableEvents = False
SaveWB.CheckIn True, "Update", True
Application.EnableEvents = True


However, that's NOT working...

I'm getting a Run-time Error 9
Subscript out of range

Errors on this line:
Set SaveWB = Workbooks(Left(UCase(imgElement.Title), 27))


So, I changed the code a bit; tried this:

NewWB = Left(UCase(imgElement.Title), 27)
Set SaveWB = Workbooks(NewWB)
SaveWB.Save
Application.EnableEvents = False
SaveWB.CheckIn True, "Update", True
Application.EnableEvents = True

Still getting the same error!!!