怎样用Excel导入txt文本中的特定数据

Question

我的设想是这样的：用excel 实现 导入txt文本中的特定数据
例如：
1月1日.txt文件中的 “余额“：100
1月2日.txt文件中的 “余额“: 200
1月3日.txt文件中的“余额“：300

然后
用Excel中的A1格能够显示出1月1日.txt文件中的数值”100”
用Excel中的A2格能够显示出1月2日.txt文件中的数值”200”
用Excel中的A3格能够显示出1月3日.txt文件中的数值”300”

**最好能够实现 只要把txt文件放入某个特定文件夹里 然后再打开excel 就可以在excel表中直接显示出该txt文件中的余额数值

我的txt文件中的内容格式是固定的 但数据是每天都更新的
格式大致是这样的
账号 户名 上期发生额 本期发生额 余额
01 AA 10.00 90.00 100.00
02 BB 10.00 190.00 200.00
03 CC 10.00 290.00 300.00

请各位大侠 出手相助！！！
可能是我没说明白 我再详细说一下
1月1日.txt
账号 户名 上期发生额 本期发生额 余额
01 AA 1000

Answer 1

首先，文件名必须如你所说的那样，并且X月X日与系统日期一致！
其次，文本文件中，每个数据之间用一个空格隔开；
最后，用你放置TXT文件的真实路径替换下面代码中的 D:\VB编程基础\
打开EXCEL表，开始操作：
工具-->宏-->录制新宏-->停止录制；工具-->宏-->宏-->编辑
然后，把下面代码覆盖刚打开的VB窗口里面的所有内容。
这样，每天打开EXCEL文件，执行一次“导入TXT”宏即可。
Sub 导入TXT()
' 宏由 zyj 录制，时间: 2011-7-7
MyDate = Format(Date, "m月d日")
For x = 1 To 365
If Range("B" & x & "") = "" Then
Range("A" & x & "") = MyDate
With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\VB编程基础\" & MyDate & ".txt", _
Destination:=Range("B" & x & ""))
.TextFileStartRow = 2
.TextFileSpaceDelimiter = True
.Refresh BackgroundQuery:=False
End With
Exit For
End If
Next x
End Sub
说明：A列显示的是X月X日，与文件名相对应；A后面的列为导入的文本内容。
因此，可在前面的行插入表头，如：日期 账号 户名 上期发生额 本期发生额 余额
呵呵，废话不多说了，自己摸索一下吧~

Answer 2

‘此列的所放的TXT文件统一在F:\logg文件下
Private Sub Workbook_Open()
Dim filename As String, fullfilename As String
filename = Dir("F:\logg\*.txt", vbNormal)
While filename <> ""
fullfilename = "F:\logg\" & filename
readtxt fullfilename, sheet1
'read Next file
filename = Dir
Wend
End Sub
Sub readtxt(fullname As String, sheet As Worksheet)
Dim Record As String, yuer As Long, curRow As Long
Open fullname For Input As #1
If sheet.UsedRange.Rows.Count = 1 Then
curRow = 1
Else
curRow = sheet.UsedRange.Rows.Count + 1
End If
While Not EOF(1)
Line Input #1, Record
items = Split(Record, " ")
yuer = items(4)
sheet.Range("A" & curRow) = yuer
curRow = curRow + 1
Wend
Close #1
End Sub

追问

代码不全吧 复制到宏编辑器里后 找不到工程 这段代码好像没有新建工程的代码吧 我对编程不懂 希望给一段全的代码才好
主要是用excel导入txt文件中的余额中X行X列的“一个”数值
由于是每天的txt数据都要更新 所以我要用excel来计算每天余额的累加数 就是积数
谢谢

追答

这个代码是全的，我试验过了的啊！首先你要把你的TXT文件，放到F:\logg文件下；然后粘贴这段代码到一个新建的EXCEL里面，保存好，然后打开就行了

Answer 3

用VBA吧，处理文本文件绰绰有余，最重要的是文本文件格式要统一规范；
不过看来你的文本文件里有不少余额数据，为何一天只显示一个数值？还要说清楚一些才是。

Answer 4

没说清楚,要对应户名吗?要对应日期吗?TXT文件范例有了,再上个EXCEL的