vb6 csv导入。读取单元格值

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

我需要读取每一行的第一个单元格的值,排除最上面一行(A0009、A00023等),然后导入其余的数据到数据库中的匹配供应商。

为此,我使用此代码

open txt_filename for input as_3

模糊输入线$

出错时转到导入销售错误

输入3,输入线$

ledgertbl.seek“=”,trim$(inputline$)
如果Ledgertbl.NoMatch,则
出口子
否则
编辑编辑
结束如果

输入3,输入线$
分类账BL(“业务类别”)=调整美元(输入行美元)
输入3,输入线$
分类账BL(“银行账号”)=调整美元(输入行美元)
输入3,输入线$
分类账BL(“银行分类代码”)=调整美元(输入行美元)
< /代码> 

但是,inputType$显示“P-TYPE”-顶行中的第二个值。


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

我怎样才能正确地阅读供应商?


我需要读取每一行的第一个单元格的值,去掉顶行(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”。

我怎样才能正确地阅读供应商?