如何将TXT文件作为数据库,与Excel连接，谢谢！！

sll22602 · 发表于 2010-6-2 09:41

aaaa.rar (2.56 KB, 下载次数: 26)
在附件中，有二个文件，一个是Excel 和一个TXT文件，因为数据量较大，所以用TXT格式存放，TXT文件的第一行为表头，用Excel做查找，当Excel表的编号输入值时，将相对应的名称、型号显示出来，谢谢！！
如果对应的TXT文件有好几个，如何做（分隔符为“Tab")

xinjiana · 发表于 2010-6-2 09:48

建议导入access或者sql来处理
txt多文件的时候处理起来比较麻烦，
特别是其中有多个关系需要对应的时候更麻烦

sll22602 · 发表于 2010-6-2 09:57

请老师根据附件帮我做一下了,谢谢!!

xinjiana · 发表于 2010-6-2 10:01

http://club.excelhome.net/thread-553438-1-1.html

供参考

sll22602 · 发表于 2010-6-2 10:19

年纪大了,英文看不懂,能否请老师指导一下,谢谢!!

xinjiana · 发表于 2010-6-2 10:48

http://club.excelhome.net/thread-490568-1-1.html

供参考

alzeng · 发表于 2010-6-2 11:31

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
If Len([B1]) = 0 Then Exit Sub
Dim Arr, k%
Open ThisWorkbook.Path & "\aaa1.txt" For Input As #1
Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf): Reset
For k = 0 To UBound(Arr)
If Arr(k) Like [B1] & vbTab & "*" Then
[B2] = Split(Arr(k), vbTab)(1)
[B3] = Split(Arr(k), vbTab)(2)
Exit For
End If
Next
If k = UBound(Arr) + 1 Then MsgBox "查寻不到此编号！": [B1:B3].ClearContents
End Sub

复制代码

alzeng · 发表于 2010-6-2 11:33

查找.rar (8.18 KB, 下载次数: 62)

		自动登录	找回密码
密码			免费注册

[求助] 如何将TXT文件作为数据库,与Excel连接，谢谢！！

回复 2楼 xinjiana 的老师,其中编号作为唯一联系,可以吗??

回复 4楼 xinjiana 老师,英文看不懂,能否帮我简单指导一下了,谢谢!!