如何使用 Visual Basic 将多个 csv 或文本文件中的数据导入 DatagridView答案

【问题标题】：How to import data from multiple csv or text files into DatagridView using Visual Basic如何使用 Visual Basic 将多个 csv 或文本文件中的数据导入 DatagridView
【发布时间】：2015-02-23 21:45:36
【问题描述】：

我正在使用 Visual Basic，并且编程知识有限。我有一个文本框，其中包含四个 txt 或 CSV 文件的路径。我想将所有这些文件的数据导入 DataGridView。我知道如何导入单个文件的数据，但不确定如何从多个文件中导入数据。任何人都可以通过共享代码来帮助我。

【问题讨论】：

标签： datagridview

【解决方案1】：

我确实回答了另一个帖子，在这里重新加载以供您参考，希望可以帮助

注意：您需要设计您的 Datagridview 标题文本与 CSV 文件中的标题匹配，以便在加载文件时更准确。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 处理 Button1.Click

    OpenFileDialog1.InitialDirectory = "c:\temp\"
    OpenFileDialog1.Filter = "CSV files (*.csv)|*.CSV"
    OpenFileDialog1.FilterIndex = 2
    OpenFileDialog1.RestoreDirectory = True
    Me.OpenFileDialog1.Multiselect = True

    If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
        For x = 0 To OpenFileDialog1.FileNames.Count
            Try
                Dim fName As String = ""
                fName = OpenFileDialog1.FileNames(x)
                Me.TextBox1.Text += fName

                Dim TextLine As String = ""

                Dim SplitLine() As String

                If System.IO.File.Exists(fName) = True Then

                    Dim objReader As New System.IO.StreamReader(fName)

                    Do While objReader.Peek() <> -1

                        TextLine = objReader.ReadLine()

                        SplitLine = Split(TextLine, "|")

                        Me.DataGridView1.Rows.Add(SplitLine)

                    Loop

                Else

                    MsgBox("File Does Not Exist")

                End If
            Catch ex As Exception

            End Try
        Next
      MsgBox("Total files loaded = " & OpenFileDialog1.FileNames.Count)
    End If


End Sub

【讨论】：