VB中如何设置EXCEL指定的单元格属性为数值型呢？？？？？？？？

Question

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
Select Case pvtTable.PivotFields("ORDER_DATE").DataType
    Case Is = xlText
        MsgBox "The field contains text data"
    Case Is = xlNumber
        MsgBox "The field contains numeric data"
    Case Is = xlDate
        MsgBox "The field contains date data"
End Select=====================Excel的数据类型
xlParamTypeBigInt 
xlParamTypeBinary
xlParamTypeBit
xlParamTypeChar
xlParamTypeDate
xlParamTypeDecimal
xlParamTypeDouble
xlParamTypeFloat
xlParamTypeInteger
xlParamTypeLongVarBinary
xlParamTypeWChar
xlParamTypeLongVarChar 
xlParamTypeNumeric
xlParamTypeReal
xlParamTypeSmallInt
xlParamTypeTime
xlParamTypeTimeStamp
xlParamTypeTinyInt
xlParamTypeUnknown
xlParamTypeVarBinary
xlParamTypeVarChar

Answer 1

我觉得你可以用AutoFormat方法
如：
Worksheets("Sheet1").Range("A1:D8").AutoFormat Format:=xlRangeAutoFormatClassic1
这样还好一点

Answer 2

to  Cooly(烦) :
大老，能大概讲讲什么意思吗？
我这里总是显示，不能取得RANGE 的PivotTable属性！为什么啊。请教啊

Answer 3

to uvmusic:
VB里面不认 你的写法。。等大概讲下什么意思。怎么操作吗?

Answer 4

TO sen87850250(小森):如果你需要详细的资料，可以查找VBA中关于Excel的帮助。
我记得前一段时间刚刚有人问过类似的问题。

Answer 5

to :ketao_78
因为从VB界面DATAGIRD取出数据导出EXCEL。EXECL中数值列实际存为了字符型，在EXCEL中无法按数值排序。。很是头疼。客户老是抱怨这个问题。

Answer 6

我将ADO付给EXCEL。。将ADO的值设成数值型就OK了。：）