Can Checkout from workroom but not Checkin

[tsil]

Hi

When I run below, I get error 9 for the "Workbooks(xlsFile).CheckIn" command,
I have tried varios things but I cannot get it to work....anyone knows what is wrong ?

BR
/Tommy


Sub UseCanCheckOut()

Dim xlApp As Excel.Application
Dim wb As Workbook
Dim xlsFile As String
xlsFile = "http://workroom......../test.xls"

If Workbooks.CanCheckOut(xlsFile) = True Then
Workbooks.CheckOut xlsFile

Set xlApp = New Excel.Application
xlApp.Visible = True

Set wb = xlApp.Workbooks.Open(xlsFile, , False)
End If

If wb.CanCheckIn = True Then
Workbooks(xlsFile).CheckIn
End If
End Sub

 

[Norie]

Does this work?

Workbooks("test.xls").CanCheckOut

 

[tsil]

Hi

thanks for your reply, the checkout works fine alerady though, also the cancheckin,
is is the checkin that does not work.

BR
/Tommy

 

[Norie]

Change for CheckIn then.

The idea is that you only use the filename for an open workbook, not the path and filename.

 

[tsil]

Hi

alright, now it works
I think it also was that I had forgotten the arguments to the checkin command.
Thanks for your help !

There is a small thing left though, the excel frame remains after checkin has been done.
since the workbook itself is closed....how do you close the frame from vba?
When I close it maually, I select the close option.

 

[Norie]

Tommy

Where exactly are you running this code from?

 

[tsil]

Hi

ah, stupid me, I forgott that I created a new excel to start up the workroom excels in,
I removed that and just opened it up in existing excel then it dissapears.

thanks a lot for your time