相关疑难解决方法(0)

我拥有以下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 & "\" …

我偶尔会遇到一个问题,我的一个同事已经开发了一个旧系统.他们倾向于拥有数千行代码来执行简单的操作,例如导入csv文件.

目前vba流程是:

• 打开excel应用程序
• 创建新工作表
• 填充csv文件
• 进入excel将标题名称添加到文件中
• 将工作表另存为新的Excel文件
• 将文件导入访问数据项目sql表.
• 处理数据

我想用它做的是:

• 将csv导入表中(与获取外部数据函数一样)
• 处理数据

我有一个快速搜索,看不到任何简单的方法只是将文件吸入表中.

任何帮助,将不胜感激.

谢谢

保罗