防伪开票系统实用技巧：[2]TXT导入Excel

本讲介绍如何利用VBA和一般导入两种方法将上一讲从开票系统导出的商品编码TXT格式文件按一定格式导入Excel文件。效果如下图所示。

前期准备工作（包括相关工具或所使用的原料等）

Excel

VBA

一般导入法实现

单击菜单：文件-打开，在打开对话框，选择我们需要导入的商品编码txt格式文件，点打开。

在弹出的“文本导入向导-3 步骤之1”对话框中，文件类型选择：分隔符号，导入起始行：1，文件原始格式：936:简体中文(GB2312)，点下一步。

在弹出的“文本导入向导-3 步骤之 2” 对话框中，分隔符号：选择空格，其他设置如下图。

在弹出的“文本导入向导 - 3 步骤之 3”对话框中，先按住shift同时选中第一、二列，将第一、二列数据格式改为文本，其他列默认数据格式常规，点完成。

这样我们就得到了一张如下图所示效果的表格。

我们选中商品编码具体所在区域，笔者这里的演示文档是A4:I12的单元格区域，点剪切，选中B4单元格，点粘贴，然后再删除第1列，第1-2行，即可得到我们所需效果。

VBA方法导入

按ALT+F11打开VBE编辑器，新建一个模块，粘贴如下代码：

Option Explicit

Sub 商品编码TXT格式文件导入()

Dim fn, lh As Integer, ll As Integer

Application.ScreenUpdating=False

fn=Application.GetOpenFilename("文本文件,*.txt", Title:="商品编码TXT格式文件选择")

Workbooks.OpenText Filename:=fn, Origin:=936, StartRow _

:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _

ConsecutiveDelimiter:=True, Space:=True, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array _

(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array( _

10, 1)), TrailingMinusNumbers:=True

lh=Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

ll=Cells.Find("*", searchorder:=xlByColumns, searchdirection:=xlPrevious).Column

Range(Cells(4, 1), Cells(lh, ll)).Select

Selection.Cut Selection.Offset(0, 1)

Columns("A:A").Delete shift:=xlToLeft

Rows("1:2").Delete shift:=xlUp

Application.ScreenUpdating=True

End Sub

按ALT+F8，打开“宏”对话框，执行“商品编码txt文件导入Excel.xls!商品编码TXT格式文件导入.商品编码TXT格式文件导入”宏。

在弹出的“商品编码TXT格式文件选择”打开框中，选择需要打开的商品编码TXT格式文件，点打开。

查看VBA代码导入的效果如下图。

防伪开票系统实用技巧(共3篇)上一篇：商品编码导出|下一篇：Excel转换TXT导入经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。