excel 导入 txt 数据

来源：百度知道 编辑：UC知道 时间：2024/06/24 04:55:24
大家好

我有 txt

每一行一个数据
希望以数值形式导入 excel中

每一行 都导入到新的 一个sheet的 A1 中

比如abc.txt

1%
4.6%
3%
12%
7.4%

希望导入到 excel中为：

sheet1 A1 : 1%
sheet2 A1 : 4.6%
sheet3 A1 : 3%
sheet4 A1 : 12%
sheet5 A1 : 7.4%

谢谢！

按Alt + F11 + I +M

然后粘贴如下代码
Sub d()
i = 1
Open "c:\abc.txt" For Input As 1
Do While Not EOF(1)
Line Input #1, xx
If i > Worksheets.Count Then Worksheets.Add After:=Worksheets(i - 1)
Worksheets(i).Range("a1") = xx
i = i + 1
Loop
Close #1
End Sub

然后按F5运行就可以了.

子易空间站 - 高效办公指导网站

有两种方法可以导入，
先介绍第一种：打开abc.txt->复制->打开EXCEL->在sheet1内选中A列->粘贴即可

怎么操作都行，离不开复制粘贴。但只能一个一个来。

好像只能用vb编程来解决了！