Excel to clipboard formatting

[babebe]

Hi,

 

I just wrote/edited some code that copies data from excel to my clipboard. Some of the data in the excel range are dates so values such as 11/21/2018 show up as 41965 when i paste. Is there any way of getting around this? 

#include <Array.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Create application object and open an example workbook
Local $oAppl = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oAppl, "C:\Users\bstachurski\Desktop\IndexSheetsNew.xls")
If @error Then
    MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error opening workbook '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oAppl)
    Exit
EndIf

; *****************************************************************************
; Read the formulas of a cell range on sheet 2 of the specified workbook
; *****************************************************************************
Local $aResult = _Excel_RangeRead($oWorkbook, 11, "A3:c11", 2)
_ArrayToClip($aResult)
FileClose ( "filehandle" )
#include <Date.au3>
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 2", "Error reading from workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 2", "Data successfully read." & @CRLF & "Please click 'OK' to display the formulas of cells A1:C1 of sheet 2.")
_ArrayDisplay($aResult, "Excel UDF: _Excel_RangeRead Example 2 - Cells A1:C1 of sheet 2"Hi

[water]

When you see "11/21/2018" then this is the date formatted by Excel. 41965 is the internal representation you get when you read the value of such a cell.

If you need the displayed string you need to set parameter $iReturn = 3 for function _Excel_RangeRead.

Unfortunately this only works on a single cell.

[babebe]

One of the columns in my table only contains date values, so is there any way to reformat all of them at once or do I have to do it on a cell by cell basis?

[water]

Either translate the date to a string in a new column in Excel and then process this new column.

Or copy the displayed string cell be cell to the clipboard.