请问一下怎么样把文本文档的数据导入到Excel表里面

Question

如题所述

Answer 1

给你写了一个宏，
操作步骤如下：
1.先复制文本文档数据粘贴到excel，一定要从A1开始粘贴
2.然后，点
工具→
宏→宏
3.输入宏名
a1
点“创建”按钮
4.在
Sub
a1()
在这个位置粘贴下面的代码
End
Sub
''代码开始
Dim
x
As
Integer
dim
y
as
long
y=50
''如果数据的总行数为100，则50改为100，如果为5000，则50改为5000
Dim
rA
As
String
Dim
rB
As
String
For
x
=
2
To
y
Step
2
rA
=
"A"
&
Trim(Str(x))
rB
=
"B"
&
Trim(Str(x
-
1))
Range(rA).Select
Selection.Cut
Range(rB).Select
ActiveSheet.Paste
Next
x
''代码结束
5.然后关闭，保存这个a1宏
6.点
工具→
宏→宏，运行
a1，就行了