如何在Excel中编写代码将.txt的文本文件导入到Access数据库中？

ilovexiahua

如何在Excel中编写代码将.txt的文本文件导入到Access数据库中？
由于老大要求，需将Access作为后台数据库，在Excel中将.txt格式的文本文件自动导入到Access中，然后要在Access中做一些汇总，最后再给Excel进行引用分析！需要导入的文本文件有4个！
请教各位大侠如何在Excel中写这样的代码？谢谢了！

[ 本帖最后由 ilovexiahua 于 2008-10-28 18:36 编辑 ]

Gemmy

在access里面导入txt会简单很多,然后可以在access里面把汇总后的结果导出excel或者用excel透视表link到access的查询或者table,实现和acces的同步更新.

ilovexiahua

其实我自己用的话肯定就用ACCESS就可以了，由于是给别人用的，而且数据经常都要进行更新，主要原因是未进行处理前有一个txt文件直接导入到Excel2003已经超出了行的范围。

lsftest

原帖由 ilovexiahua 于 2008-10-28 18:35 发表
其实我自己用的话肯定就用ACCESS就可以了，由于是给别人用的，而且数据经常都要进行更新，主要原因是未进行处理前有一个txt文件直接导入到Excel2003已经超出了行的范围。

最简单是叫他改用excel2007.100多万行。。。。

ilovexiahua

哈哈，我也正有此意。不过因为是公司只能用2003，所以就是没办法的办法了。
当然还有要进行4个数据汇总，不需要的数据要进行筛选掉！

ly7aaa7

顶！请版主解决1楼问题

zhaogang1960

原帖由 ly7aaa7 于 2011-7-10 20:53 发表
顶！请版主解决1楼问题

1楼没有附件，下面代码只能做到导入所有文本文件到access指定数据表中：
Sub 循环导入文本文件() '引用Microsoft ActiveX Data Objects 2.x Library
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim cnnData As New ADODB.Connection
    Dim rsData As New ADODB.Recordset
    Dim myText As String
    Dim myPath As String
    Dim MyFile As String
    Dim myData As String
    Dim myTable As String
    Dim myName As String, myType As Integer, mySize As Integer
    Dim i As Long, j As Long
'循环查询获取所有文本文件全部数据
    myPath = ThisWorkbook.Path & "\"
    MyFile = Dir(myPath & "*.txt")
    Do While MyFile <> ""
        If SQL = "" Then SQL = "select * from " & MyFile Else SQL = SQL & " union all select * from " & MyFile
        MyFile = Dir()
    Loop
    cnn.Open "Provider=MSDASQL;Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & myPath
    rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
'将查询到文本文件全部数据保存到指定数据库的数据表中
    myTable = "成绩单"
    cnnData.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\" & "学生成绩.mdb"
    rsData.Open myTable, cnnData, adOpenKeyset, adLockOptimistic
    For i = 1 To rs.RecordCount
        With rsData
            .AddNew
            For j = 0 To rsData.Fields.Count - 1
                .Fields(j) = rs.Fields(j).Value
            Next
            .Update
        End With
        rs.MoveNext
    Next
    MsgBox "已经成功将文本文件数据保存为数据库！", vbInformation
'关闭记录集和与文本文件以及数据库的连接
    rs.Close
    cnn.Close
    rsData.Close
    cnnData.Close
    Set rs = Nothing
    Set cnn = Nothing
    Set rsData = Nothing
    Set cnnData = Nothing
End Sub

zhaogang1960

没有判断数据库中是否存在记录，下面附件中有两个文本文件：
循环导入文本文件到access.rar (14.25 KB, 下载次数: 148)

2011-7-11 00:12 上传

点击文件名下载附件

下面连接是我刚写的《用ExcelVBA将多个文本文件数据导入到Access数据库中的三种方法》，请参考：
http://club.excelhome.net/thread-740548-1-1.html

[ 本帖最后由 zhaogang1960 于 2011-7-11 22:24 编辑 ]

baliaw

你好，TXT100多M，如何直接快速导入access?

yixuanbeyond

同求，我的txt46M，有很多个，导入access老出现提示，缺失数据，怎么样就能批量导入里