想直接用Acess VBA收拾TXT文件然后导入到表里

xiaoangel

因为Access的水平菜，所以我现在是把ERP的TXT报表先用EXCEL VBA处理之后，再将EXCEL文件导入到ACCESS的表里去。

现在想请教如何直接用ACCESS处理并导入TXT文件。我的TXT文件是固定字段位数来分割列的，没有用符号分隔符。而且有些重复出现的表头还要先整理删除才能导入到
Access的表里去。

我用EXCEL VBA的代码如下：
FileName = Application.GetOpenFilename("txt,*.txt", , "select", , False)
   
    Open FileName For Input As #1
    aa = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
     ReDim orr(1 To UBound(aa), 1 To 20)
    m = 0
    For i = 5 To UBound(aa)
                If Len(Trim(aa(i))) < 50 Then GoTo L1
                If InStr(aa(i), "-------") > 0 Then GoTo L1
                If InStr(aa(i), "Custname") > 0 Then GoTo L1
                m = m + 1
                n = 1: orr(m, n) = Trim(Left(aa(i), 45))
                n = 2: orr(m, n) = Trim(Mid(aa(i), 46, 26))
                n = 3: orr(m, n) = Trim(Mid(aa(i), 73, 26))
                n = 4: orr(m, n) = Trim(Mid(aa(i), 100, 38))
                n = 5: orr(m, n) = Trim(Mid(aa(i), 139, 25))                    
                n = 0
L1:           Next
                [a2].Resize(m, 12) = orr

通过上述代码，将所需要的数据赋值给了数组orr。 这个代码应该在ACCESS VBA也可以运行。
现在的问题是如何将数组Orr赋值给表？ 请指教。

Renco

两个方案：
1.每for ...next 形成一条 insert语句进行表添加
2.组成数组完成后，对数组再进行 For ...next。。进行表添加

xiaoangel

Renco 发表于 2013-6-11 22:25
两个方案：
1.每for ...next 形成一条 insert语句进行表添加
2.组成数组完成后，对数组再进行 For ...nex ...

假设Access里的表的名字叫“Report1” ，可否赐教添加数组入表“Report1”的代码？

对于Access的对象不熟，不知如何下手，还请多帮助。谢谢

Renco

示例文件放上来吧

xiaoangel

Renco 发表于 2013-6-13 15:26
示例文件放上来吧

是这样的，要处理的TXT是财务系统里的一份报表。单位有制度，无法贴出来。

如果可以，就给示范一条 将数组通过循环insert语句到表Report1就行。 我可以自己再摸索。
谢啦

xiaoangel

Renco 发表于 2013-6-11 22:25
两个方案：
1.每for ...next 形成一条 insert语句进行表添加
2.组成数组完成后，对数组再进行 For ...nex ...

实在是搞不定。附件里是我的数据库和待导入的TXT文件
表PI1已经建好了。
窗体里有一个按键。希望按下按钮就可以执行TXT文件处理和导入。
代码在窗体下面。请达人帮帮看看

xiaoangel

{:soso_e175:}附件

Renco

xiaoangel 发表于 2013-6-22 13:32
附件

能不能把ACCESS转成2003版的，再发上来。。。不好意思。。没安装2007+