代码如下：
在靖边等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供做网站、网站制作 网站设计制作按需搭建网站,公司网站建设,企业网站建设,高端网站设计,全网营销推广,外贸营销网站建设,靖边网站建设费用合理。
Dim Str As String
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Str = OpenFileDialog1.FileName
End If
Dim oExcel As New Excel.Application
Dim oWorkBook As Excel.Workbook
Dim oWorkSheet As Excel.Worksheet
oWorkBook = oExcel.Workbooks.Open(Str)
oWorkSheet = oWorkBook.Worksheets(1)
For i = 1 To 50 这里我暂时读取了50行，因为我不知道如何判断读到最后一行
MsgBox(oWorkSheet.Cells(i, 1).value oWorkSheet.Cells(i, 2).value oWorkSheet.Cells(i, 3).value)
Next
oWorkBook.Close()
oWorkBook = Nothing
oExcel.Quit()
oExcel = Nothing
你csv文件是用什么分割符的？
把csv文件当做文本文件处理
File.ReadAllLines 读取所有行，
然后循环每行，按照分隔符split后就是每一列
给你一段VB.net读取csv文件的代码把。
Imports System.IO
Imports System.Collections.Generic
Module Module1
Public CSV数据 As List(Of List(Of String))
''' summary
''' 从指定路径的文件读取内容，并分析出其中每行含有分隔符的数据，存到CSV数据中。
''' para调用的时候使用CSV数据(5)(0)表示第6条记录的第1个数据/para
''' /summary
''' param name="文件路径"必需。一个[String]表达式。要读取的文件路径。/param
''' returns返回是否读取成功/returns
''' remarks/remarks
Public Function 读取(ByVal 文件路径 As String) As Boolean
Dim 文件读取器 As StreamReader = New StreamReader(文件路径)
Dim 语句 As String
Dim t成功 As Boolean = True
Dim 分隔符 As Char = ";"
CSV数据 = New List(Of List(Of String))
While Not 文件读取器.EndOfStream
Try
语句 = 文件读取器.ReadLine
'分析语句后判断类型
If 语句.Contains(分隔符) Then
Dim array = 语句.Split(分隔符)
If array IsNot Nothing Then
CSV数据.Add(array.ToList())
End If
End If
Catch ex As Exception
t成功 = False
End Try
End While
Return t成功
End Function
End Module
你上面的数据执行后，将会保存到一个List嵌套List的String组中。
自己转化为数字再进行操作把。
Dim 数字 = Convert.ToDecimal(CSV数据(5)(0))
你是怎么读写的呢？下面是简单的读写
Dim str As String = (My.Computer.FileSystem.ReadAllText("C:\QD51-R24_A.csv")) '读
My.Computer.FileSystem.WriteAllText("C:\1.csv", str, True) '写
csv文件可以当做文本文件来处理！
主要处理代码如下：
Dim t As String, b() As stirng, s(10) As String, cj(10) As Single
t = "" '这里是你读取的CSV文件内容
b() = Split(t, vbCrLf)
For j = 0 To 9
s(j) = b(j) '这个就是每一行的数据了
c() = Split(s(j), ",")
cj(j) = Val(c(1)) '这个就是每一行的成绩数据了
Next
'然后进行排序和显示处理
