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

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, _ 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:=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代码导入的效果如下图。