VB6 CSV导入。读取单元格值

我正在VB6程序中编写从CSV导入函数。下面是一些示例数据的屏幕截图

我需要读取每行第一个单元格的值，包括第一行（A0009、A00023等），然后将其余数据导入数据库中的匹配供应商

为此，我使用以下代码

Open Txt_FileName For Input As #3

Dim InputLine$

On Error GoTo Import_Sales_Err

Input #3, InputLine$

LedgerTbl.Seek "=", Trim$(InputLine$)
If LedgerTbl.NoMatch Then
    Exit Sub
Else
    LedgerTbl.Edit
End If

Input #3, InputLine$
LedgerTbl("Business_Category") = Trim$(InputLine$)
Input #3, InputLine$
LedgerTbl("bank_account_number") = Trim$(InputLine$)
Input #3, InputLine$
LedgerTbl("bank_sort_code") = Trim$(InputLine$)

但是，InputType$显示的是“p-type”-顶行中的第二个值

因此，它找不到匹配的供应商，因为没有供应商被称为“p-type”

---

如何使其正确读取供应商？

我想象代码中的其他地方（在问题中的代码之前执行），您有

Input#3，InputLine$

，它将其设置为读取第一个单元格“Supp.No”

---

然后，在您发布的代码中，您再次拥有它，将其移动到第二个单元格。您需要运行一个选择案例或其他构造来忽略电子表格中的前4项，然后在到达第5项后开始阅读，在本例中为“A00009”。

也许您应该将CSV文件的确切内容（格式为代码）添加到问题中