Excel批量导入TXT数据问题

方漠

选固定宽度就可以了.以下是你的文件打开时录的代码.

    Workbooks.OpenText Filename:="D:\test.txt", Origin:=936, StartRow:=1, _
        DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(17, 1), Array(82, 1) _
        ), TrailingMinusNumbers:=True

方漠

With  .... END WITH 中间那一段参数,具体需要你自己逐个将参数替换尝试一下.

...
.TextFileParseType = xlDelimited
....