Problem opening Sheet Set

Anonymous — Wed, 17 Dec 2008 14:28:20 GMT

We are trying to open a sheet set and then loop through all of the drawings in the set to pull the drawing properties out to create a custom table. Below is the code, it works fine until I get to the line marked (=>).

==================================================================
Public SheetDb As IAcSmDatabase
Public SheetSetMgr As IAcSmSheetSetMgr
Public Sheetset As IAcSmSheetSet
Public SheetT02 As IAcSmSheet

Private Sub CBOK_Click()
Dim FileName As String

FileName = cboFileName.Text

Set SheetDb = Nothing
Set Sheetset = Nothing

'Open chosen database sheetset file
=> Set SheetDb = SheetSetMgr.OpenDatabase("\\Gpdfwfile1\mechanical engineering\Sheet sets\PROJECTS\" & FileName, True)

'Lock the database before doing any operation on it
Call SheetDb.LockDb

'Get the sheet set from the database
Set Sheetset = SheetDb.GetSheetSet

===================================================================

Can anyone provide any insights?

Thanks,
Pat

Re: Problem opening Sheet Set

AdammReilly — Wed, 17 Dec 2008 20:12:09 GMT

Does the FileName variable have a value? I see an assignment, but does it have a filename with extension value.
Also, maybe it doesn't like the path (just a thought, don't see why it would be a problem)

Re: Problem opening Sheet Set

Anonymous — Wed, 17 Dec 2008 20:36:02 GMT

Filename is populated properly with the .dst extension.

topic Re: Problem opening Sheet Set in VBA Forum

Problem opening Sheet Set

Re: Problem opening Sheet Set

Re: Problem opening Sheet Set