PowerGeopak V8I SS2 - Excel (2016) VBA not seeing tag values

PowerGeopak V8i SS2 - version 08.11.07.615

Excel 2016

Import Process:  Close Dgn that to be edited, Open Excel Spreadsheet, Set File Path, Set TagSet Name, Key-In Tag Names in Row 5, Column B, Click Import button.

Export Process:  Highlight drawing names that needs to be updated Row 6, Column A, Click Export.

I found an excel spreadsheet on these Microstation Programming Forums that is what I am looking to do to update Tags inside MicroStation.  It has has 2 procedures inside the DrawingTags module, ImportTitleBlockTags and ExportTitleBlockTags that I am trying to adapt it to my situation (has reduntant code that will be removed).  With that being said, it gives me an error that states, "Run-time error '-2147417851 (80010105)': Method 'Value" of object '_TagElement' failed.  While stepping thru the code, I get to the section, "Sheet No Tag: Tag name is case sensitive, hoover my mouse over oTag.TagDefinitionName = (myWS.Cells(5,3)), the value is ShtNo.  Then when you go to the next line, myWS.Cells(CurRow, 3) = oTag.Value, it's supposted to be the current value of ShtNo.  But of course, it's not.  I have a TagSet with 3 tags, ShtNo, MLL, and MLR, each set at a default value of "XXX".  Can anyone guide me in the right direction to get this to work?  After many hours and going bald due to the hair pulling to figure out what is causing the problem, I have to admit defeat.  I'm trying to figure this out before biting the bullet and buying FlexiTable from Jon.  I have included the excel spreadsheet and 2 dgn's that I'm testing with.  Thanks in advance.

Drawing Files.zip

VBACodeinExcel.zip

Parents Reply Children
No Data