Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations waross on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Excel to Catia V5 notes 1

Status
Not open for further replies.

NidjoMod3

Automotive
Jul 4, 2020
1
HR
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.
 
Replies continue below

Recommended for you

Code:
[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
 
Nice, I was actually going to work on a similar project next month.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top