VB6 CSV导入。读取单元格值

Question

我正在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型”。

如何使它正确阅读供应商？

Answer 1

我想象在代码中的其他地方（在问题中的代码之前执行），您有Input #3, InputLine$，它将其设置为读取第一个单元格“ Supp.No”。

然后，在您发布的代码中，再次获得它，将其移至第二个单元格。您需要运行Select Case或其他构造来忽略电子表格中的前4个项目，然后在到达第5个项目（在本例中为“ A00009”）后开始读取它。