get save date

[martinhoos]

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

[b_sharanraj]

hi @martinhoos

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

[martinhoos]

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

[b_sharanraj]

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?

[martinhoos]

Hi Sharan,

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

Regards Martin

[Anonymous]

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

[martinhoos]

Hi Craig,

thx for your reply. Pls look at the pic.

Regards Martin

[Anonymous]

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")

[b_sharanraj]

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

[martinhoos]

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

[b_sharanraj · Accepted solution]

Hi @martinhoos

Try this

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

[martinhoos]

Hello Sharan,

thats it! Your code works...

Thank you very much...

Regards Martin