Question

我对设置MS Access数据库很陌生。只是想知道是否有一种方法可以上传具有150万行以上的逗号分隔文件，而忽略前三行（文件标题）和最后一行（页脚）。该文件内容的标题位于第四行。

Answer 1

最后我自己解决了。页眉和页脚具有不同的列数。我使用行输入语句来检查文本文件的每一行。这是我的代码：

Sub FileUpload_CMP_Funding()

Dim sFile, sText As String
Dim dText As Variant
Dim db As Database
Dim rst As Recordset2
Dim i As Long

sFile = "C:\NotBackedUp\testfile\CMPFUNding.out"
Open sFile For Input As #1
Do While Not EOF(1)
    Line Input #1, sText
        dText = Empty
        dText = Split(vText(i), ",")
        'My main content has 24 columns 
        If UBound(dText) - LBound(dText) + 1 = 24 Then
            If dText(0) <> "Product ID" Then 'skip the header row at the 4th rows

                Set db = CurrentDb
                Set rst = db.OpenRecordset("tblCMP_Funding", dbOpenDynaset)
                rst.AddNew
                rst!ProductID = Trim(Replace(dText(0), """", ""))
                rst!FundID = Trim(Replace(dText(1), """", ""))
                ""
                'Update whatever field is required to be updated
                rst.Update
                Set db = Nothing
                Set rst = Nothing
            End If
        End If
Loop
Close #1

End Sub

希望它可以帮助有相同要求的任何人

将大文件上传到Microsoft Access

1 个答案: