如何在vb中读取excel文件中数据并对数据进行分类？谢谢！

Question

比如读excel中的成绩文件，并对成绩数据分为好，良好，及格，差几种，谢谢！
最好能给出详细的代码！十分谢谢！

Answer 1

引用EXCEL对象，打开EXCEL表格，然后将内容度出来，按照数据大小分一下等级不就好了么。
楼主是一句代码都不会写么？如果真是这样，给了你代码也没有用啊。

Answer 2

自己在excel中录一个宏，慢慢看。

Answer 3

使用VBA编程，参看各种参考书

Answer 4

暈,還沒解決啊.送你一個函數吧:Public Function GetFromExcel(ByVal FileName As String, ByVal SheetName As String)                '從EXCEL導入數據
    Dim xlApp As Object 'Excel.Application
    Dim xlBook As Object 'Excel.Workbook
    Dim xlSheet As Object 'Excel.Worksheet
    Dim I As Long, J As Long, tmpStr As String, tmpStr2 As String
    
    On Error Resume Next
    
    Set xlApp = CreateObject("Excel.Application")               '創建EXCEL對象
    Set xlBook = xlApp.Workbooks.Open(FileName)                 '打開已經存在的EXCEL工件簿文件
    xlApp.Visible = False
    Set xlSheet = xlBook.Worksheets(SheetName)                   '設置活動工作表
    
    I = 0
    Do
        I = I + 1
        
        tmpStr = CStr(xlSheet.Cells(I, 1))
        If tmpStr <> "" Then
            '加入你自己的代码.  xlSheet.Cells([行], [列])就可以返回一個格子的內容.
        End If
    Loop
    
    xlBook.Close True   '關閉工作簿
    xlApp.Quit          '結束EXCEL對象
    Set xlApp = Nothing '釋放xlApp對象
End Function利用此函數把你的數據讀入到數組內,然後自己處理就行了.