topic Re: get save date in Inventor Programming Forum

get save date

martinhoos — Mon, 14 Aug 2017 09:48:21 GMT

Hello,

i like to show via "MessageBox.Show" the date of cell H3 (Excel).

If i go with this code:

myCell = GoExcel.CellValue(myXLS, "Sheet1", "H3")
MessageBox.Show("the date:" & " " & myCell,"iLogic")

i get the result: 42957 instead of 14.08.2017. This wont work!

Is it possible, Instead of the above code, to show the savedate of the Excel file with the right date 14.08.2017?

Thanks for your help.

Regards Martin

Re: get save date

b_sharanraj — Mon, 14 Aug 2017 11:23:36 GMT

hi @martinhoos

Change the Format of H3 Cell from Date to General in Excel and try once 🙂

Re: get save date

martinhoos — Mon, 14 Aug 2017 11:49:28 GMT

Hi Sharan,

thank you for your reply... thats too easy - the Excel file is generated by an automatic process. Change this cell by hand runs out of the routine/code.

All changes or input should come out of the code.

Regards Martin

Re: get save date

b_sharanraj — Mon, 14 Aug 2017 12:02:21 GMT

Is Excel generated by Inventor or some other Excel via Macros or External Apps?

Is H3 Cell is formula like "=Today() " or Value like 14.08.2017?

Re: get save date

martinhoos — Mon, 14 Aug 2017 12:08:10 GMT

Hi Sharan,

thx for reply. The file is generated via external app. The format is like: 14.08.2017

Regards Martin

Re: get save date

Anonymous — Mon, 14 Aug 2017 13:21:36 GMT

What is the format of the cell in excel? Is the entry in cell H3 exactly written as 14.08.2017 ???

I did a quick test and it returns exactly as it is in excel

Re: get save date

martinhoos — Mon, 14 Aug 2017 13:31:24 GMT

Hi Craig,

thx for your reply. Pls look at the pic.

Regards Martin

Re: get save date

Anonymous — Mon, 14 Aug 2017 13:50:06 GMT

I don't have the same options as you do in my excel cel format (see attachment). But this is the code I tried and I attached a picture of the resulting msg box

myCell = GoExcel.CellValue(myXLS, "Sheet1", "A1")

MessageBox.Show(myCell, "Title")

What version of excel are you using? Perhaps try this line instead:

Dim myCell As Date = GoExcel.CellValue(myXLS, "Sheet1", "A1")

Re: get save date

b_sharanraj — Mon, 14 Aug 2017 16:05:18 GMT

Hi Martin

You need to try once what Mr.Henderson suggested still if it's not working we have to Change the Format Data of the cell while it's generating from your External App

Re: get save date

martinhoos — Tue, 15 Aug 2017 05:18:46 GMT

Hi Craig,

the result of the first solution: 42961

If i try

Dim myCell As Date = GoExcel.CellValue(myXLS, "Sheet1", "A1")

i get an error:

I use Excel 2010

Thx for your help!

Regards Martin

Re: get save date

b_sharanraj — Tue, 15 Aug 2017 05:31:21 GMT

Hi @martinhoos

Try this

myCell = DateTime.FromOADate(GoExcel.CellValue(myXLS, "Sheet1", "A1"))

Re: get save date

martinhoos — Tue, 15 Aug 2017 06:31:53 GMT

Hello Sharan,

thats it! Your code works...

Thank you very much...

Regards Martin