从 excel 文件读取时 CPU 使用率达到 100%？

Question

我创建了一个 VB.Net 应用程序，它将读取 excel 文件并将数据放入表中。 我使用了 excel 表，它有 3 列和 65000 行。 在开始读取 excel 之前，我机器的 CPU 使用率约为 15%，但在读取期间 CPU 使用率跃升至 95%。 我不知道为什么会这样？ 有人可以帮我解决这个问题吗？ 以下是我编写的代码：

Private Sub readFromExcel(ByVal fileName As String, ByVal sheetName As String)
    Dim connString As String = "data source=XE; user=test; password=test"
    Dim con As New OracleConnection(connString)
    Dim str1 As String
    Dim str2 As String
    Dim str3 As String
    Dim xlApp As Excel.Application
    Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheet As Excel.Worksheet
    xlApp = New Excel.ApplicationClass
    xlWorkBook = xlApp.Workbooks.Open(fileName)
    xlWorkSheet = xlWorkBook.Worksheets(sheetName)
    Dim x As Integer
    Dim y As Integer
    Dim i As Integer
    x = xlWorkSheet.Rows.Count()
    y = xlWorkSheet.Columns.Count()
    Try
        For i = 1 To x - 1
            'MsgBox(xlWorkSheet.Cells(i, 0).value)
            str1 = xlWorkSheet.Cells(i, 1).value
            str2 = xlWorkSheet.Cells(i, 2).value
            str3 = xlWorkSheet.Cells(i, 3).value
            insertData()
        Next
    Catch ex As Exception
        MsgBox(ex.Message())
    Finally
        con.Close()
        xlWorkBook.Close()
    End Try
End Sub

Private Sub insertData()
    Dim str As String
    str = "insert into test_import values('" + str1 + "'," + str2 + "," + str3 + ")"
    Dim cmd As New OracleCommand()
    cmd.CommandText = str
    cmd.Connection = con
    cmd.ExecuteNonQuery()
End Sub

提前谢谢。

Answer 1

这是完全正常的。 当程序因 I/O 陷入困境时，它不会消耗 100% 的核心。 从磁盘或网卡读取，在操作系统提供数据时阻塞程序。 您的代码不会那样陷入困境，您是在要求它做很多工作。 一个一个地获取 195,000 个单元格值只需要一段时间。 Excel 是进程外的 COM 服务器，因此每个单元格读取都需要两次 CPU 上下文切换。 您可以改用 Range 对其进行一些优化。 或者在具有双核 CPU 的机器上运行它，这样它最多只能达到 50%。

功能，而不是错误。

Answer 2

在一个go中将195000个单元读入一个Object数组，然后循环object数组，速度会快很多。 （每次.Net调用Excel object模型都有很高的开销）

Answer 3

使用get_range(cell1,cell2)方法获取单元格值。

您可以使用它按行、按列获取单元格值，或将所有单元格值集中在一个 go 中。

当您调整代码以按行、按列读取单元格值或将所有单元格值放在一个 go 中时，请注意 CPU 使用率。