|
本帖最后由 shukasei 于 2013-12-24 16:33 编辑
Sub 导入文本()
Workbooks.OpenText Filename:=ThisWorkbook.Path & "\A.txt", Space:=True, FieldInfo:=Array(Array(1, 1), Array(2, 1))
End Sub
看到以上代码,FieldInfo:=Array(Array(1, 1), Array(2, 1))看了对于fieldinfo解释,还是没有明白其作用,请高手提点。
本帖最后由 fffox 于 2013-12-24 16:19 编辑
Space:=True, FieldInfo:=Array(Array(1, 1), Array(2, 1))
Space:=True意思是导入TXT文件时,以空格为分隔符
FieldInfo:=Array(Array(1, 1), Array(2, 1))规定了各列的数值类型,其意思是,第一列的格式是常规,第二列的格式是常规。
Array(1,1)第一个1是指分列后的第几列,第二个1是指分列后数值的格式,1是指常规,2是文本,具体见下面列举:
xlDMYFormat 4 DMY 日期格式。
xlDYMFormat 7 DYM 日期格式。
xlEMDFormat 10 EMD 日期格式。
xlGeneralFormat 1 常规。
xlMDYFormat 3 MDY 日期格式。
xlMYDFormat 6 MYD 日期格式。
xlSkipColumn 9 列未分列。
xlTextFormat 2 文本。
xlYDMFormat 8 YDM 日期格式。
xlYMDFormat 5 YMD 日期格式。
|
|