topic Re: How to create a excel file using ilogic? Thanks in Inventor Programming Forum

How to create a excel file using ilogic? Thanks

Anonymous — Wed, 27 Jun 2012 16:56:46 GMT

Re: How to create a excel file using ilogic? Thanks

Curtis_Waguespack — Wed, 27 Jun 2012 17:37:32 GMT

Hi MtigaM,

Here is an iLogic example.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

'define the file to create/open
myXLS_File = "C:\Temp\Best_Excel_File_Ever.xls"

‘get the Inventor user name from the Inventor Options
myName= ThisApplication.GeneralOptions.UserName

'define Excel Application object
excelApp = CreateObject("Excel.Application")
'set Excel to run visibly, change to false if you want to run it invisibly
excelApp.Visible = True
'suppress prompts (such as the compatibility checker)
excelApp.DisplayAlerts = false

'check for existing file 
If Dir(myXLS_File) <> "" Then
'workbook exists, open it
excelWorkbook = excelApp.Workbooks.Open(myXLS_File)
ExcelSheet = ExcelWorkbook.Worksheets(1)
Else
'workbook does NOT exist, so create a new one
excelWorkbook = excelApp.Workbooks.Add
End if

'Insert data into Excel.
With excelApp
    .Range("A1").Select
    .ActiveCell.FormulaR1C1 = "Hello, " & myName
End With   

'set all of the columns to autofit
excelApp.Columns.AutoFit   
'save the file
excelWorkbook.SaveAs (myXLS_File)

''close the workbook and the Excel Application
''uncomment if you want to close the xls file at the end
'excelWorkbook.Close
'excelApp.Quit
'excelApp = Nothing

Re: How to create a excel file using ilogic? Thanks

Anonymous — Wed, 27 Jun 2012 17:45:03 GMT

Thanks alot, this is what i am looking for!

Re: How to create a excel file using ilogic? Thanks

Anonymous — Wed, 27 Jun 2012 17:55:16 GMT

Is it possible to open a template excel file somewhere and then save it as a new excel in another place?

Re: How to create a excel file using ilogic? Thanks

Curtis_Waguespack — Wed, 27 Jun 2012 18:54:55 GMT

Hi MtigaM,

To specify the template to use you can use this example.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

'define the file to create/open
myXLS_File = "C:\Temp\Best_Excel_File_Ever.xls"

‘get the Inventor user name from the Inventor Options
myName= ThisApplication.GeneralOptions.UserName

'define Excel Application object
excelApp = CreateObject("Excel.Application")
'set Excel to run visibly, change to false if you want to run it invisibly
excelApp.Visible = True
'suppress prompts (such as the compatibility checker)
excelApp.DisplayAlerts = false

'check for existing file 
If Dir(myXLS_File) <> "" Then
'workbook exists, open it
excelWorkbook = excelApp.Workbooks.Open(myXLS_File)
ExcelSheet = ExcelWorkbook.Worksheets(1)
Else
'create a new spreadsheet from template
excelWorkbook = excelApp.Workbooks.Add (Template: = "C:\Temp\Best_Excel_Template_Ever.xlt")
End if

'Insert data into Excel.
With excelApp
	.Range("A1").Select
	.ActiveCell.FormulaR1C1 = "Hello, " & myName
End With   

'set all of the columns to autofit
excelApp.Columns.AutoFit   
'save the file
excelWorkbook.SaveAs (myXLS_File)

''close the workbook and the Excel Application
''uncomment if you want to close the xls file at the end
'excelWorkbook.Close
'excelApp.Quit
'excelApp = Nothing

Re: How to create a excel file using ilogic? Thanks

Anonymous — Wed, 27 Jun 2012 19:11:55 GMT

Thank you very much!

Re: How to create a excel file using ilogic? Thanks

Anonymous — Wed, 03 Jul 2013 06:41:58 GMT

can we specify the directory of the saved file?

Re: How to create a excel file using ilogic? Thanks

Anonymous — Sun, 10 Jun 2018 18:25:51 GMT

Thank you very much. This is brilliant. Could we create different sheets as well

Re: How to create a excel file using ilogic? Thanks

scottvan — Tue, 12 Jun 2018 17:42:31 GMT

I have been using the following code to check if I have the proper amount of worksheets, and add worksheets if necessary:

'Define Excel application and run in the background
xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
xlApp.DisplayAlerts = False
xlWorkbook = xlApp.Workbooks.Add
xlWorksheets = xlWorkbook.Sheets

'Check number of sheets, add if necessary
Do While xlApp.Workbooks(1).Sheets.Count < 3
	xlApp.Workbooks(1).Sheets.Add
Loop

'Name Excel Sheets
xlApp.Workbooks(1).Sheets(1).Name = "First Sheet Name"
xlApp.Workbooks(1).Sheets(2).Name = "Second Sheet Name"
xlApp.Workbooks(1).Sheets(3).Name = "Third Sheet Name"

Hope this helps!

Re: How to create a excel file using ilogic? Thanks

Anonymous — Sat, 19 Sep 2020 17:06:38 GMT

If the last line of code below is commented, after running the rule it open another read-only excel file. Is it possible to update the excel without closing and opening it again?

''close the workbook and the Excel Application
''uncomment if you want to close the xls file at the end
'excelWorkbook.Close
'excelApp.Quit
'excelApp = Nothing

Betreff: How to create a excel file using ilogic? Thanks

leoow96 — Wed, 12 Oct 2022 18:22:24 GMT

Hello 🙂

How can I save the Excel file with the Windows form?

For example, how do I write in sheet 2?

Re: How to create a excel file using ilogic? Thanks

tableauzeichner1 — Wed, 20 Mar 2024 07:36:56 GMT

Hey, for example like this, you can specify the directory and get a variable name for your file. 😉