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

贡献者: zuhi

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

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

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

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

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

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

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

1按ALT+F11打开外狒芙梨VBE编辑器,新建一个模块,粘贴如下代码:Option ExplicitSub 商品编码TXT格式文件导入()Dim fn, lh As Integer,惺绅寨瞀 ll As IntegerApplication.ScreenUpdating = Falsefn = Application.GetOpenFilename("文本文件,*.txt", Title:="商品编码TXT格式文件选择")Workbooks.OpenText Filename:=fn, Origin:=936, StartRow _ :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ C ecutiveDelimiter:=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:=Truelh = Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Rowll = Cells.Find("*", searchorder:=xlByColumns, searchdirection:=xlPrevious).ColumnRange(Cells(4, 1), Cells(lh, ll)).SelectSelection.Cut Selection.Offset(0, 1)Columns("A:A").Delete shift:=xlToLeftRows("1:2").Delete shift:=xlUpApplication.ScreenUpdating = TrueEnd Sub

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

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

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

1 2 3 4 5