获取Excel的单元格数据类型（靠谱）

VBA中，单元格属性有NumberFormat可以获取单元格格式，比如：

• G/通式格式→常规
• @→文本
• yyyy/m/d→日期

问题：

1. G/通式格式，无法知道值是整数还是浮点数，
2. yyyy/m/d如果换一种日期格式就对不上了。

所以cell.Value(12)就派上用场了，是XML格式的单元格更详细的信息。

<xml xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882"
 xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882"
 xmlns:rs="urn:schemas-microsoft-com:rowset" xmlns:z="#RowsetSchema">
 <x:PivotCache>
  <x:CacheIndex>1</x:CacheIndex>
  <s:Schema id="RowsetSchema">
   <s:ElementType name="row" content="eltOnly">
    <s:attribute type="Col1"/>
    <s:extends type="rs:rowbase"/>
   </s:ElementType>
   <s:AttributeType name="Col1" rs:name="字段1">
    <s:datatype dt:type="dateTime"/>
   </s:AttributeType>
  </s:Schema>
  <rs:data>
   <z:row Col1="2019-04-07T00:00:00"/>
  </rs:data>
 </x:PivotCache>
</xml>

dateTime就是相应的数据类型所在位置，获取方法（AutoHotkey）

;返回为字符串，int|float|255|dateTime|boolean
;255表示字符串，boolean表示空单元格，其他还没遇到，待完善
valueType(cell)
{
    xml := cell.Value(12)
    oXML := ComObjCreate("MSXML2.DOMDocument.6.0")
    oXML.loadXML(xml)
    ;oNS := ComObjCreate("***")
    ;oNS.AddNamespace("x", "urn:schemas-microsoft-com:office:excel")
    ;oXML.SelectSingleNode("xml/x:PivotCache", oNS)
　　;不懂XML，也没搞定SelectSingleNode的命名空间，以下的方法比较Low，希望有人指点。(纯处理字符串，oDatetype其实也没什么必要)
    oDatatype := oXML.childNodes[0].childNodes[0].childNodes[1].childNodes[1].childNodes[0]
    strType := oDatatype.xml ;除了xml不知道还有什么属性更好用
    Return RegExReplace(SubStr(strType,1,StrLen(strType)-3), '.*"')
}

 

转载于:https://www.cnblogs.com/hyaray/p/10705780.html