Excel 列数据类型（不包括标题行）

Question

使用spreadsheetgear，有没有办法获得一列的“可能”数据类型，不包括标题行（如果存在）并且合理地容忍稀疏人口，而不必自己做样本......是否已经有一种方法要这样做吗？

因此，例如，如果我有一个像

| Customers | Sales Item | Sale Date  | Contact | Quantity |
| IBM       | Keyboard   | 28-10-2011 |         | 2        |
| MS        | Mouse      | 27-09-2011 | joe     | 5        |

我希望看到

字符串、字符串、日期时间、字符串、数字

编辑

这样的Excel行，那么我最终必须像@Tim Anderson建议的那样进行采样，但我需要处理稀疏数据的情况，当列中类型冲突时默认为字符串。 （这是在遍历列的循环中调用的，我无法发布它，因为它包含一些 IP）DataValueType 只是一个本地枚举，rowcount 是要采样的行数，因为我已经在采样，所以我只是忽略第 0 行如果它是标题行。

private DataType GetDataTypeFromColRange(IRange range, int rowcount, int col)
{
    var dtlist = GetValueTypes(range, rowcount, col).Distinct();
    // If conflicting types for the col default to string.
    if (dtlist.Count() != 1)
    {
        return new DataType(DataTypeValue.String);
    }
    else
    {
        return new DataType(dtlist.First());
    }
}

private IEnumerable<DataTypeValue> GetValueTypes(IRange range, int rowcount, int col)
{
    for (int i = 1; i < rowcount; i++)
    {
        switch (range[i, col].ValueType)
        {
            case SpreadsheetGear.ValueType.Text:
                yield return DataTypeValue.String;
                break;
            case SpreadsheetGear.ValueType.Number:
                if (range[i, col].NumberFormatType == NumberFormatType.Date || range[i, col].NumberFormatType ==  NumberFormatType.DateTime)
                {
                    yield return DataTypeValue.Date;
                }
                else
                {
                    yield return DataTypeValue.Numeric;
                }
                break;
            case SpreadsheetGear.ValueType.Logical:
                yield return DataTypeValue.Bool;
                break;
            default: // ignore empty or errored cells.
                continue;
        }
    }
}

我确信这可以进一步改进，因此请随时发布改进，但这正是我现在所需要的。

Answer 1

SpreadsheetGear 中不存在帮助程序方法或其他 API 来自动返回一列值的“可能数据类型”。实现这样的东西来满足您自己的特定要求并不是很困难，尽管如果不“采样”数据就无法做到这一点。下面是一个非常简单的方法，它接受要检查的范围和指示该范围是否包含标题行的布尔值。它所做的只是检查第一行数据以确定类型；您可能想要构建一些更健壮的东西：

private SpreadsheetGear.ValueType[] GetColumnTypes(IRange range, bool hasHeader)
{
    SpreadsheetGear.ValueType[] columnTypes = new SpreadsheetGear.ValueType[range.ColumnCount];
    for (int i = 0; i < range.ColumnCount; i++)
    {
        columnTypes[i] = range[hasHeader ? 1 : 0, i].ValueType;
    }
    return columnTypes;
}

但是，您应该注意的一件事是，SpreadsheetGear 使用与 Excel 相同的基本内部数据类型，并且在检查 IRange.ValueType 时将返回这些类型（包括 Empty、Error、逻辑、数字、文本）。请注意，没有日期时间。在您的示例中，这将影响“销售日期”列上返回的值类型，因为日期/时间实际上作为表示日期/时间序列号的双精度数存储在 Excel 和 SpreadsheetGear 中。因此，这种类型的值将返回 Number，而不是 DateTime 之类的值。它们在单元格中显示为“日期”的事实只是单元格 NumberFormat 的函数。

Answer 2

从不使用电子表格齿轮，但在 Excel 中我使用这个 UDF

Function GetType(rg As Range) As String

If IsNumeric(rg.Value) Then
    GetType = "Numeric"
ElseIf IsDate(rg.Value) Then
    GetType = "Date Time"
Else
    GetType = "String"
End If

End Function

我相信可以适应

[] 的

Answer 3

这是基于错误处理程序和 VBA 类型转换的另一种尝试：

Function probableType(vInput As Variant)
Dim vResult As Variant

'set error handler to resume (the procedure will check the error number)
On Error Resume Next

'check if it is an integer
vResult = CInt(vInput)
If Err.Number = 0 Then
    probableType = "Integer"
    Exit Function
End If
Err.Clear

'check if it is a date
vResult = CDate(vInput)
If Err.Number = 0 Then
    probableType = "Date"
    Exit Function
End If
Err.Clear

'else this is probably a string
probableType = "String"
End Function

可以使用此子测试：

Sub uniTest()
MsgBox probableType("12/12/12")
MsgBox probableType("12")
MsgBox probableType("myTest")
End Sub

您可以使用 Excel VBA 的所有转换函数（在 ozgrid 上查看此链接）