请教如何将数组里的数据导入到表里去？谢谢

竹笛

wt565 发表于 2013-6-21 16:48
附件里是我的数据库和待导入的TXT文件
表PI1已经建好了。
窗体里有一个按键。希望按下按钮就可以执行TXT ...

如果你是襄樊直接导入的话就不能用我上面的方法了

wt565

竹笛 发表于 2013-6-22 12:37
如果你是襄樊直接导入的话就不能用我上面的方法了

我的TXT不能直接导入表，因为TXT的数据列是按宽度定位的，而且还有一些多余的表头等要删除。所以我只好把TXT的有效数据赋值到一个二维数组。然后在将这个二维数组导入到表里。之后怎么导入到Access的表里就不知道怎么搞了。

wt565

而且这句 FileName = Application.GetOpenFilename("txt,*.txt", , "select", , False) 在ExcelVBA里可以运行，在ACCESS VBA里运行似乎也有问题

cgsilicone

wt565 发表于 2013-6-22 13:06
而且这句 FileName = Application.GetOpenFilename("txt,*.txt", , "select", , False) 在ExcelVBA里可以运 ...

GetOpenFilename是VBE(VB FOR EXCEL) 提供的函数，在ACCESS中不能使用。
下面提供一种使用EXCEL中功能的好办法：
Set EXCEL的功能 = CreateObject("EXCEL.Application")
EXCEL的功能.Visible = True
FileName = EXCEL的功能.GetOpenFilename("txt,*.txt", , "select", , False)
EXCEL的功能.Quit

cgsilicone

你的附件我的版本打不开。不用很复杂的知识，你的代码略微修改，直接就存入数据库中了（不需要二维数组），代码如（经测试有效）下：

Private Sub Command0_Click()


Set EXCEL的功能 = CreateObject("EXCEL.Application")
EXCEL的功能.Visible = True
FileName = EXCEL的功能.GetOpenFilename("txt,*.txt", , "select", , False)
EXCEL的功能.Quit

Set 数据表 = CurrentDb.OpenRecordset("表1", dbOpenDynaset)

Open FileName For Input As #1
aa = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
m = 0
For i = 5+1 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

         数据表.AddNew
         数据表.Fields(0) = Trim(Left(aa(i), 45))
         数据表.Fields(1) = Trim(Mid(aa(i), 46, 26))
         数据表.Fields(2) = Trim(Mid(aa(i), 73, 26))
         数据表.Fields(3) = Trim(Mid(aa(i), 100, 38))
         数据表.Fields(4) = Trim(Mid(aa(i), 139, 25))
         数据表.Update
         m = m + 1
L1:  Next

数据表.Close
Set 数据表 = Nothing

MsgBox "导入数据成功,共导入" & m & "条"

End Sub

wt565

cgsilicone 发表于 2013-6-22 14:54
你的附件我的版本打不开。不用很复杂的知识，你的代码略微修改，直接就存入数据库中了（不需要二维数组）， ...

多谢达人指点。 经过调试，成功了。
你太伟大了！！！终于可以使用了。