用vba方法将txt原始文件导入到access中，查询后导出到excel中

汉娜

现在有三个格式统一的txt文件，想要用vba方法导入到access中，然后查询后将结果导出到excel中。
求高人，求代码。

所有txt文件格式都是一样的，导出的excel是事先做好的，希望能导入到指定sheet中。

text.zip (271.27 KB, 下载次数: 73)

2011-5-6 14:02 上传

点击文件名下载附件
txt文件

roych

搞那么复杂干吗呢？直接导入Excel的某个工作表再把查询结果导出到另一个工作表不行么？

1. Sub 导入()
   
2. '需引用ADO库和Office库
   
3. '定义ADO对象和打开文件拾取器对象
   
4. Dim cnn As New ADODB.Connection
   
5. Dim rst As New ADODB.Recordset
   
6. Dim fd As FileDialog
   
7. '定义文件名和文件路径。
   
8. Dim FileName As String
   
9. Dim FilePath As String
   
10. '定义偏移量，以便根据偏移位置把数据导入到指定位置。
    
11. Dim rcd As Long
    
12. Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
13. With fd
    
14. '允许多个选取，建议把所需文件放在同一个文件夹里。
    
15. .AllowMultiSelect = True
    
16. '设置打开文件类型，以免发生错误
    
17. .Filters.Clear
    
18. .Filters.Add "文本文件(*.txt)", "*.txt"
    
19. '初始化视图
    
20. .InitialView = msoFileDialogViewDetails
    
21. End With
    
22. '初始化偏移量
    
23. rcd = 0
    
24. '如果选择
    
25. If fd.Show = -1 Then
    
26. '统计所选文件数
    
27.     For i = 1 To fd.SelectedItems.Count
    
28. '提取文件名和文件路径字符串，InStrRev(fd.SelectedItems(i), "", -1)表示逆向获取""的位置
    
29.    FileName = Right(fd.SelectedItems(i), Len(fd.SelectedItems(i)) - InStrRev(fd.SelectedItems(i), "", -1))
    
30.    FilePath = Left(fd.SelectedItems(i), InStrRev(fd.SelectedItems(i), "", -1))
    
31. '打开ADO链接和数据集，这两项是关键。
    
32. cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath & ";Extended Properties=""text;HDR=No;FMT=Delimited;"";"
    
33. rst.Open "Select * From [" & FileName & "]", cnn, adOpenStatic, adLockReadOnly, adCmdText
    
34. '复制数据集到指定位置
    
35. Sheet1.[a1].Offset(0, rcd).CopyFromRecordset rst
    
36. rcd = rcd + 1
    
37. '关闭数据集和链接以便下一次执行
    
38. rst.Close
    
39. cnn.Close
    
40.     Next i
    
41. End If
    
42. End Sub

复制代码

源文件请见链接。
http://www.access-cn.com/thread-96551-1-1.html
——不过下载需要回复噢，点这里注册用户：
http://www.access-cn.com/?fromuid=179386

[ 本帖最后由 roych 于 2011-5-6 21:00 编辑 ]

汉娜

因为原始数据是自动产生的，只是txt格式的，数据量太大了，excel2003打不开，所以才考虑access的

roych

是多个呢还是单个文本？
如果是单个的话，可以链接文本文件后再追加到主表。
2L那段代码稍稍改一下，也可以应用于Access。你的附件里没有字段名，即便导入也不好处理（至少得建个Access基础表吧？）。

汉娜

是多个文件。想做一个窗体，有几个按钮，点击按钮可以选择原始文件，再点击导入按钮可以导入文件，然后点击查询按钮可以输入查询的条件，点击导出按钮可以把查询得到的结果导入到excel中。

汉娜

自己顶一下

汉娜

自己顶一下哦

roych

别顶了，小MM。
你应该先做个Access文件传上来，偶有时间的话再帮你写个批量导入函数吧。

yanyumengmeng

我在学EXCEL和WORD谁有空可不可以帮我指导一下下

chenbinxing

用Access的导入规格