使用VB从csv文件读取数据

Question

这是我编写的代码，首先以 Excel 形式打开 csv 文件，然后找到所需的三列，然后从中读取数据，然后将数据保存到另一个变量中，在文本框中显示它们。至于 csv 文件，它包含许多列，其中我的重点是标题 ID、L、Lg 下的 3 列。

问题是 Excel 实际上并未打开，但 Excel.exe 进程在任务管理器中运行。 但此时它不是编译错误；而是编译错误。编译错误出现在“Next”语句中。它说编译错误：下一步没有For！！！！

我对此感到困惑。请帮我解决这个问题，提前致谢。

私有子 cmdFind_Click()

Dim xlApp As Excel.Application
Set xlApp = New Excel.Application

Dim X As Double, Y As Double, FleetID As String
Dim F As String, FCol As Integer, LCol As Integer, LgCol As Integer, Srno As Integer, I As Integer


Dim xlWbook As Workbook
Dim xlSht As Excel.Worksheet
Set xlWbook = xlApp.Workbooks.Open("C:\Users\saurabhvyas\Desktop\test VB2\testfile.csv")
xlApp.Visible = True
Set xlSht = xlWbook.Worksheets("sheet1")


For I = 1 To 8 Step 1
    If xlSht.Cells(I, 1).Value = "ID" Then
        FCol = I
    Else
    If xlSht.Cells(I, 1).Value = "L" Then
        LCol = I
    Else
    If xlSht.Cells(I, 1).Value = "Lg" Then
        LgCol = I
    End If
Next I


Set Srno = 2
Do
    If xlSht.Cells(FCol, Srno).Value = Str$(txtF.Text) Then
        Set X = xlSht.Cells(LCol, Srno).Value
        Set Y = xlSht.Cells(LgCol, Srno).Value
    End If
    Srno = Srno + 1
Loop While xlSht.Cells(FCol, Srno).Value = vbNullString 


txtL.Text = Str$(X)
txtLg.Text = Str$(Y)

xlWbook.Close
xlApp.Quit
Excel.Application.Close
Set xlSht = Nothing
Set xlWbook = Nothing
Set xlApp = Nothing

结束子

Answer 1

您可以打开 CSV 格式的文本文件，并使用 ADO 和 Jet Provider 的 Text IISAM 对其进行操作。比自动化 Excel 简单得多。或者您可以将这些行作为文本读取，然后用逗号分割它们。

你正在做的事情确实打开了 Excel，但你没有要求 Excel 可见......尽管我不知道你为什么想要这样做。

你到底想做什么？

Answer 2

至于你的编译错误，那是因为你缺少一些 End If。
写成：

For I = 1 To 8 Step 1
    If xlSht.Cells(I, 1).Value = "ID" Then
        FCol = I
    Else
        If xlSht.Cells(I, 1).Value = "L" Then
            LCol = I
        Else
            If xlSht.Cells(I, 1).Value = "Lg" Then
                LgCol = I
            End If
        End If
    End If
Next I

或写成：

For I = 1 To 8 Step 1
    If xlSht.Cells(I, 1).Value = "ID" Then
        FCol = I
    ElseIf xlSht.Cells(I, 1).Value = "L" Then
        LCol = I
    ElseIf xlSht.Cells(I, 1).Value = "Lg" Then
        LgCol = I
    End If
Next I