此主题相关图片如下：qq图片20150608165953.png

此主题相关图片如下：qq图片20150608170004.png

怎样遍历下面这个东东？

Dim sts As String
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    If sheet(0,0).text <> "试卷号" And sheet(0,1).text <> "试卷名称" Then
        MessageBox.Show("您的数据源不符合国家开放大学报表平台的数据格式,不能导入学生信息表数据!", "提示")
    Else
        For i As Integer = 1 To sheet.Rows.Count-1
            sts =  "\'" & sheet(i,0).text & "\'," & sts
        Next
        sts = "(" & sts.Trim(",") & ")"
    End If
End If

MessageBox.Show(sts)