delphi中操作Excel用分列方法将数字转换为文本格式

Excel中有一列数据是数字和文本方式混合排列的，在用ADO导入数据时就会出现部分数据不能导入的问题

解决这个问题 首先想到的是常用的数字转换为文本格式的方法 WorkSheet.Columns[1].NumberFormatLocal:='@';

几行代码一敲，测试发现没效果，就马上开始 baidu,google 铺天盖地的搜索。。。

没怎么搜索就找到了excel 中有用分列方法将整列数据文本格式化的方法：数据->分列->列数据格式->文本

录制下的宏代码如下：

Code
Sub Macro2()
    Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True
End Sub

接下来将VBA宏代码翻译成delphi代码：

Work