代ç å¦ä¸ï¼
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åå°±æ¯æ¯ä¸å
温馨提示:答案为网友推荐,仅供参考