Dim ip As New Importerip.SourcePath = "C:\" '指定目录ip.SourceTableName = "文本文档" '指定要导入的文件"订单.txt"ip.NewTableName ="文本" '导入后的表名ip.Format = "Delimited" '指定导入格式 ip.Import()
将下面文本放在同一目录内,可以将“|”为分隔符的自动分列
注意文本编码:ANSI