Dim ip as New Importerip.SourcePath = "c:\Data\" '指定目录ip.SourceTableName = "订单" '指定要导入的文件“订单.txt”ip.NewTableName ="订单" '导入后的表名ip.Format = "Delimited" '指定导入格式ip.Import()