>>547
COMからVBAのDateValueを扱う方法がわからないので

//代案1　ワークシート関数式を入れる
xls=GETACTIVEOLEOBJ("Excel.Application")
xls.range("A1").formula="=DATEVALUE(<#DBL>2017/1/2<#DBL>)"
xls.range("A1").copy
xls.range("A1:A100").PasteSpecial(-4163) //xlPasteValues

//代案2 UWSCのGETTIMEからExcelの日付シリアル値を算出する
xls=GETACTIVEOLEOBJ("Excel.Application")
xls.range("A1:A100").value=INT(GETTIME(0,"2017/01/02")/86400)+36526 //86400=60*60*24, 36526:2000/1/1のExcel側シリアル値