PivotField.DataType (Excel)
Devuelve un valor XlPivotFieldDataType que representa el tipo de datos del campo de la tabla dinámica. Posibles valores de retorno son xlDate - Contiene una fecha, xlNumber - Contiene un número, xlText - Contiene texto.
Dim xpfDataType As XlPivotFieldDataType
xpfDataType = ActiveCell.PivotField.DataType