arr = xSheet.Range("A1:OO1002").Value2如何运用到datatable上

你可以使用以下代码将 `arr` 数组中的数据填充到 `DataTable` 中：

Dim dt As New DataTable()
Dim arr = xSheet.Range("A1:OO1002").Value2
Dim rowCount = arr.GetLength(0)
Dim colCount = arr.GetLength(1)
For j As Integer = 1 To colCount
    dt.Columns.Add(New DataColumn("Column" & j.ToString()))
Next
For i As Integer = 1 To rowCount
    Dim row As DataRow = dt.NewRow()
    For j As Integer = 1 To colCount
        row("Column" & j.ToString()) = arr(i, j)
    Next
    dt.Rows.Add(row)
Next

在上面的代码中，我们首先创建一个空的 `DataTable` 对象 `dt`，然后使用 `xSheet.Range("A1:OO1002").Value2` 将 Excel 工作表中的数据读取到 `arr` 数组中。接下来，我们获取 `arr` 数组的行数和列数，并通过 `For` 循环创建 `DataTable` 中对应的列。然后，我们遍历 `arr` 数组中的每一行和每一列，将数据填充到 `DataTable` 中。最后，我们使用 `dt.Rows.Add(row)` 将每一行的数据添加到 `DataTable` 中。

请注意，上面的代码中，我们假设 `arr` 数组中的第一行是列标题，因此我们使用 `For` 循环从第二行开始遍历 `arr` 数组。如果你的 Excel 工作表中没有列标题，则需要将上面的第二个 `For` 循环中的 `1` 改为 `0`。