Excel to Catia V5 notes 1

[NidjoMod3]

Hello everybody,

I am trying to configure Excel ---> Catia V5 textual notes (and symbols) import in result of drawing notes. Has anybody else configured such system to work fine?

My previous Catia V5 to Excel export has stopped working when the excel became Office 365. Here is an example of code that worked on Excel (2016):

START:
Set ExcelSheet = CreateObject("Excel.Sheet")
On Error Resume Next
ExcelSheet.Application.Quit
Set ExcelSheet = Nothing

Set ExcelSheet = CreateObject("Excel.Sheet")
Set ExcelSheet = GetObject("D:\Program Files\Dassault Systemes\WS\TEMPL.XLS")

Set XLFile = CreateObject("Scripting.FileSystemObject")
End If
END.

Does anybody have a solution to problem or has solved it recently?

Thank you in advance.

I will keep you updated with my progress.

 

[weagan22]

[indent]Dim Excel As Object[/indent]
    Set Excel = CreateObject("Excel.Application")
    Excel.Visible = True
    
    'Adds a new workbook, comment out if you would just like to open an existing book
    Excel.Workbooks.Add
    
    
    'Opens an existing workbook
    Dim filePath As String
    filePath = "D:\Program Files\Dassault Systemes\WS\"
    
    Dim fileName As String
    fileName = "TEMPL.XLS"
    
    Excel.Workbooks.Open fileName:=filePath & fileName

    
    'Gets the active sheet
    Dim ActWS As Object
    Set ActWS = Excel.ActiveSheet

 

[LucasC]

Nice, I was actually going to work on a similar project next month.