Excel批量导入TXT数据

因为没有导入 *** 作代码，以下代码是起到将文本文件另存为XLS文件代码
代码拷贝入文本文件夹中的一个新建EXCEL文件的模块中，执行之
Sub
FileProcess1()
Dim
FileFind
As
FileSearch
Dim
fs
As
Variant
Dim
FilePath
As
String
Dim
FileStyle
As
String
FilePath
=
ThisWorkbookPath
FileStyle
=
"txt"
With
ApplicationFileSearch
LookIn
=
FilePath
Filename
=
FileStyle
Execute
For
Each
fs
In
FoundFiles
Set
XLSHEET
=
WorkbooksOpen(fs)
XLSHEETSaveAs
Filename:=Replace(fs,
"txt",
"xls")
XLSHEETSave
XLSHEETClose
Next
fs
End
With
End
Sub

1、如下图所示，我们在TXT文本内有一些数据内容，想要把他们转到excel表格中。接下来我们先打开excel表格。

2、在表格上面的菜单工具栏中有一项数据选项，我们点击选择它，在数据选项下有一项是获取外部数据选项卡，如下图所示。

3、在获取外部数据选项卡下，其中就有一项是来自文本选项，我们点击选择，接下来就会蹦出来一个文本路径选择的对话框。

4、在对话框中我们点击选择我们要导入数据的文本，点击右下角的导入按钮，就会蹦出来一个文本导入的一个向导。

5、根据向导对话框指示，我们点击右下角的一个下一步按钮，即分隔符的选择，即数据分割为两个单元格的分隔符。

6、在这里是想要把前面的人名和后面的产品名字分割为两个单元格，故分隔符就选择为文本中显示的即空格，如下图所示，左下角还有一个数据预览，如果没问题就点击下一步。

7、在最后一步中，可以根据你自己的数据来进行数据格式的选择，这个根据实际情况来进行选择 *** 作就可以了，设置完成就点击右下角的完成按钮。

8、最后再选择一下数据放置的位置。完成效果图。

工作中，经常会遇到需要用Excel处理的数据是存放在非Excel格式文件(比如文本文件等)中的情况，这时如果用手工方式来采集这些数据的话，实际费时又费力的。实际上，可以利用Excel软件的外部数据输入导入功能来迅速导入这些数据，从而极大的提高我们的工作效率。
下面我们以文本文件为例来介绍如何使用Excel的数据导入功能。假设我们有一个存放工资的文本文件，其内容如图1所示：
图1
如果您使用的是Excel
2000，那么从"数据"菜单开始，点击"获取外部数据"菜单项，然后选择"导入文本文件"菜单选项;如果您使用的是Excel
2003的话，那么从"数据"菜单开始，依次点击"导人外部数据"，"导入数据"菜单选项。这时都会出现一个选择数据源的窗口，在该窗口中找到数据源，然后直接双击它即可。这是后会有一个文本导入向导一步一步帮我们把数据导入到表格中。
下面我们来看一看导入向导的第一个窗口，如图2所示：
电脑教程图2
在这里选择默认设置，然后单击"下一步"，进入导入向导第二步，如图3所示：
图3
在这一步我们可以选择不同的分隔符，并能实时预览分隔效果。因为我们的文本文件是Tab键来分列的，所以选择Tab键作为我们的分隔符号。

1、首先找到表格上方功能栏中的插入点击进入，进入插入界面后在此界面的工具栏中找到文本框工具；
2、点击文本框下方的小三角图标，在跳出的界面中选择自己需要绘制的横排文本框或竖排文本框点击；
3、点击后在表格中需要插入文本框的地方点一下就会出现文本框，在文本框中输入需要插入的文本；
4、输入完毕后点击文本框周围的小点将文本框调整至自己需要的大小即可。

---