PivotField.DataType (Excel)

Retorna um valor XlPivotFieldDataType que representa o tipo de dados no campo de tabela dinâmica. Os valores de retorno possíveis são xlDate - Contém uma data, xlNumber - Contém um número, xlText - Contém texto.

Dim xpfDataType As XlPivotFieldDataType
xpfDataType = ActiveCell.PivotField.DataType