Con questa riga di codice
FoglioExcel.Cells(b, 1) = FormatDateTime(datfats, vbLongTime)
mi risolve il problema in parte
nel senso che appare
giorno settimama , numero giorno , mese e numero anno