循环遍历 Excel 文件中的每一行

Question

我有一个包含许多列的 Excel 文件，但我只需要列 NAME、Cost 和 Time。我需要逐行循环在我的 Excel 中，但对于列名称/成本/时间，将值保存在变量中。

 If FileUpload1.HasFile = False Then

        Exit Sub
    Else
        Dim FileName As String = Path.GetFileName(FileUpload1.PostedFile.FileName)
        Dim Extension As String = Path.GetExtension(FileUpload1.PostedFile.FileName)
        'Dim FolderPath As String = ConfigurationManager.AppSettings("Upload")

 Protected Sub ButtonVerify_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonVerify.Click


    If FileUpload1.HasFile = False Then

        Exit Sub
    Else
        Dim FileName As String = Path.GetFileName(FileUpload1.PostedFile.FileName)
        Dim Extension As String = Path.GetExtension(FileUpload1.PostedFile.FileName)
        'Dim FolderPath As String = ConfigurationManager.AppSettings("Upload")

        Dim FilePath As String = Server.MapPath("~") & "\Upload\" & FileName
        FileUpload1.SaveAs(FilePath)

        Dim existingFile = New FileInfo(FilePath)
        Dim pack As ExcelPackage = New ExcelPackage(existingFile)
        Dim workBook As ExcelWorkbook = pack.Workbook


        If workBook.Worksheets.Count > 0 Then
            Dim currentWorksheet As ExcelWorksheet = workBook.Worksheets.First()


            Dim Requester As String = currentWorksheet.Cells(30, 2).Value

        End If

    End If

    LBL_Error.Text = Nothing

    LBL_Status.Text = "Your file have been upload in your form. Please complete your Sample Order!"
End Sub

如果If workBook.Worksheets.Count > 0，那么我需要循环单元格中的每个值，最后计算一个框中所有时间的平均值。

Answer 1

要遍历某些列的行，您可以这样做：

Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet
Dim DateRng As Excel.Range
Dim AccountsRng As Excel.Range
Dim i As Long

WB = xlApp.Workbooks.Add
WS = WB.Worksheets("Sheet1")

DateRng = WS.Columns(2)     ' Change the '2' as necessary.

With DateRng
    For i = 1 To .Count
      'Do your stuff
    Next i
End With

通过这种方式，您可以按照以下说明选择要使用的列： https://msdn.microsoft.com/en-us/library/office/ff197266.aspx

Excel.Worksheet.Columns(1) 将成为您的 A 列