topic Re: Change source of 3rd party spreadsheet. in Inventor Programming Forum

Change source of 3rd party spreadsheet.

herrwolf1 — Mon, 23 Feb 2009 14:45:10 GMT

Hello,

Re: Change source of 3rd party spreadsheet.

herrwolf1 — Mon, 23 Feb 2009 14:51:00 GMT

Anyways,
Tab apparently goes straight to "Post Message"

To my problem.
The following code worked fine before I installed SP1. Can anyone spread some light onto what a solution might be.

Sub ChangeSource()
Dim oDoc As Document
Dim oFile As File
Dim oFileDesc As FileDescriptor
Dim Temp As String

Set oDoc = ThisApplication.ActiveDocument
Set oFile = oDoc.File

For Each oFileDesc In oFile.ReferencedFileDescriptors
If oFileDesc.FullFileName = MasterForm.lblPath.Caption & "\" & MasterForm.lblSpreadsheet.Caption Then
Temp = MasterForm.lblPath.Caption & "\" & MasterForm.lblSpreadsheet.Caption
oFileDesc.ReplaceReference (Temp) ' The code breaks here
End If
Next
End Sub

Re: Change source of 3rd party spreadsheet.

Anonymous — Tue, 24 Feb 2009 01:10:08 GMT

You are missing the 'Call' keyword in the
following line:

oFileDesc.ReplaceReference (Temp)

should be:

Call oFileDesc.ReplaceReference (Temp)

This is a VB syntax oddity that has been
addressed in VB.NET.

Sanjay-

Re: Change source of 3rd party spreadsheet.

herrwolf1 — Tue, 24 Feb 2009 14:36:57 GMT

Hello Sanjay,

I tried adding the Call keyword. It didn't work. Here is the error I get:

Run-time error '-2147467259 (80004005)':

Method 'ReplaceReference' of object ' _IRxFileDescriptor' failed

Perhaps I have other problems.

Re: Change source of 3rd party spreadsheet.

Anonymous — Tue, 24 Feb 2009 22:14:52 GMT

Hmm, I tried again and it works for me. Are you on
Inventor 2009? Perhaps you have an incorrect filepath to your
spreadsheet?

Also, if you intend to change the source of the
spreadsheet linked via the Parameters dialog, there is another way:

Sub ChangeExcelSource()

    Dim oDoc As
PartDocument
    Set oDoc =
ThisApplication.ActiveDocument

    Dim
oDef As PartComponentDefinition
    Set oDef =
oDoc.ComponentDefinition

    Dim oTable
As ParameterTable
    Set oTable =
oDef.Parameters.ParameterTables(1)


oTable.FileName = "C:\temp\test_copy.xls"

End
Sub

Sanjay-

Re: Change source of 3rd party spreadsheet.

snichols — Wed, 09 Nov 2011 17:23:55 GMT

Can this be done in an Inventor 2009 .dwg also? I have a linked spreadsheet that is the parts list and I would like to change the source via a macro. I am not very good at VBA so please be gentle.

Thanks,