小编Ral*_*and的帖子

我拥有以下VBA代码,将许多文本文件放到Access表中.但是对于包含带双引号的文本的.TXT文件的情况存在问题,因此使用空值中断该记录的所有其他字段.

我试图在选择"产品"字段时添加"替换"功能,但不适用于"双引号".使用其他字符,但双引号(否)...

你推荐哪些调整？任何建议,将不胜感激.

*注意:实际数据超过100万条记录......

SCHEMA.INI
[Test_temp.csv]
ColNameHeader = false
Format = Delimited(;)
Col1 ="product"Text
Col2 ="price"Double

文本文件CSV:test01.txt
电视SAMSUNG 21" WIDESCREEN LED; 170
PHILIPS 27"WIDESCREEN LED; 200
HD SEAGATE 1TB 7200RPM; 150

代码VBA访问:

Sub TableImport()

    Dim strSQL As String
    Dim db As DAO.Database

    Dim strFolder As String
    strFolder = CurrentProject.Path

    Set db = CurrentDb

    strSQL = "DELETE FROM tbTest"
    db.Execute strSQL, dbFailOnError

    Dim strFile As String
    strFile = Dir(strFolder & "\test*.txt", vbNormal)

    Do Until strFile = ""

        FileCopy strFolder & "\" …