Hi All
I previously had some excellent help from users with an existing VBA app that I have amended to my needs. I have it working however I've found some instances where it doesn't work and given that it is excel based I thought I'd take a chance and see if anyone can read the code and tell me why it doesn't work even though it pulls data created in another application.
What does the vba do?
The app has a user browse and select a folder which contains files with a .DGN extension, this path is added to a cell in the worksheet. Within these files exists Text Data on a title box that when printed shows the information like drawing name, scale, revisions etc.. This text is a special type called a tag. A Tag's primary purpose is to store a data value and each tag has a name and a value e.g. a tag called 'Scale' might have the value 1:100. These Tags are associated to a host element which in this case is a piece of text.
How do you get this tag information from Microstation to Excel?
When the user presses the import button the VBA scans these files looking for the predefined tag names, if it finds any of these names in the files then the values of these are populated into the corresponding cells in the excel sheet. This process is repeated via enumeration until all files are scanned & data imported.
A brief explanation of Microstation DGN files
A DGN file is composed of models (at least 1 model). All files contain a Design Model - this is the location where graphical data is drawn. In my office we use a second type of Model called a Sheet Model - This where we create a virtual piece of paper and compose the pre-drawn graphical data and place a border sheet around these elements. It is within this border sheet that the tag elements reside.
Ok so you have it working, whats wrong?
The VBA works fine when I have 1 design model (required) and 1 sheet model. If I create a second design model it stops working even though none of these design models contain the tags - they always reside in the sheet model. Here's the code from the start up to the section I believe is causing the problem:
I know very little about VBA but I believe that this next section of code basically tells the app to look for tags in sheet models first else look in design models. If I remove the latter part after the else trying to force it to ignore the design models, the app doesn't import the data.
There is further code but it shouldn't be relevant to the issue as it deals with the tag names.
I've tried asking for help within the VBA section of the Microstation forums but with no luck so I'm hoping that the knowledgeable people here can help shed some light on what's causing my problem. If I can provide any further information please ask as I realise the chances of anyone here being familiar with Microstation is slim.
Many thanks