MS Access 2003/2007 - 从 VBA 中使用的 csv 文件导入数据的导入规范......验证字段名称？

Question

我有一个使用向导进行的导入，至少足以保存规范。它导入带有标题、引用文本限定符和逗号分隔的 CSV 文件。然后，我在一些由按钮单击事件触发的 vba 中使用导入规范。

以下是我想知道的一些事情：

那么，如果数据中的字段顺序混乱，导入会失败吗？如果数据不包含所有字段导入失败？如果数据中有多余字段导入失败？

那么我可以对导入的数据进行任何类型的验证，以确保字段与规范相同，它们的顺序正确（如果需要的话）等等。

这工作得很好，但我只需注意，如果数据中的某些内容不正常，它无论如何都会导入，并浪费整个时间。

另外...这不是典型的访问设置...这主要是供数据分析师团队将文件导入 mdb...没有前端。

谢谢 贾斯汀

Answer 1

您可以使用 ADO 记录集检查 CSV 文件。

Public Sub InspectCsvFile()
    Const cstrFolder As String = "C:\Access\webforums"
    Const cstrFile As String = "temp.csv"
    Dim i As Integer
    Dim strConnect As String
    Dim strSql As String

    'early binding requires reference, Microsoft ActiveX Data Object Library '
    'Dim cn As ADODB.Connection '
    'Dim rs As ADODB.Recordset '
    'Dim fld As ADODB.Field '
    'Set cn = New ADODB.Connection '
    'Set rs = New ADODB.Recordset '

    'late binding; no reference needed '
    Dim cn As Object
    Dim rs As Object
    Dim fld As Object
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")

    strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        cstrFolder & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"";"
    'Debug.Print strConnect '
    cn.Open strConnect
    strSql = "SELECT * FROM " & cstrFile & ";"
    rs.Open strSql, cn
    Debug.Print "Fields.Count: " & rs.Fields.Count
    For i = 0 To rs.Fields.Count - 1
        Set fld = rs.Fields(i)
        Debug.Print i + 1, fld.Name, fld.Type
    Next i
    Set fld = Nothing
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

如果该连接字符串不适合您，请参阅文本文件的连接字符串

Answer 2

我会向他们提供正确格式的受保护电子表格。这种保护确保他们无法更改它。

如果导入失败，请向他们提供错误报告。