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-type"。

如何让它正确读取供应商？

Answer 1

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

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

VB6 CSV 导入。读取单元格值

VB6 CSV import. Read cell value

csv

vb6

import