Excel中使用VBA将txt导入Access

mctrix

zhaogang1960 发表于 2016-1-26 15:44
用逗号分割的文本文件作为数据源是起作用的，否则全部需要读取Schema.ini文件中的设置

谢谢。确实，我把代码改成如下，也可以使用的。删除text对数据的限制（FMT、HDR）

1. SQL = "Insert Into test select f1 as 号码,f2 as 批号,f3 as 日期,f4 as 时间,f5 as 备注 from [Text;DATABASE=" & myPath & ";].[" & MyFile & "]"
   

复制代码

zhaogang1960

mctrix 发表于 2016-1-26 15:57
非常感谢。
是不是所有文本型格式的文件，都可以使用这种ADODB读取Schema.ini+执行SQL的方式来把数据导 ...

如果文本文件、Excel工作表中的数据结构符合数据库规范，可以一次性导入到数据库的，否则也可以用逐个字段、逐行导入

mctrix

zhaogang1960 发表于 2016-1-26 16:45
如果文本文件、Excel工作表中的数据结构符合数据库规范，可以一次性导入到数据库的，否则也可以用逐个字 ...

非常感谢。今天学到很多。

yczzwy

zhaogang1960 发表于 2016-1-26 16:45
如果文本文件、Excel工作表中的数据结构符合数据库规范，可以一次性导入到数据库的，否则也可以用逐个字 ...

文本事用“|”管道符分割的怎么导入，能指定宽度导入吗！

寻水的鱼2017

zhaogang1960 发表于 2016-1-26 15:38
文本文件第一列数字和文本混排，需要指定各列数据类型：
Sub txtImportAccess()
    Dim cnn As Object ...

我使用了这个代码，但是提示出现至少一个参数没有被定义的错误。文本数据是这样的，应该如何修改呢
2.171500e+02            1.000000e-03     4.419746e+02       2.437891e-02   7.547151e-01   
2.171600e+02            1.000000e-03     4.419822e+02       2.437779e-02   7.547263e-01   
2.171700e+02            1.000000e-03     4.419897e+02       2.437667e-02   7.547375e-01   
2.171800e+02            1.000000e-03     4.419973e+02       2.437554e-02   7.547487e-01   
2.171900e+02            1.000000e-03     4.420048e+02       2.437442e-02   7.547599e-01

寻水的鱼2017

zhaogang1960 发表于 2016-1-25 21:44
Schema.ini文件内容，本程序中：
[Test.txt]
COLNAMEHEADER = false

我的文本文件是这样的，为什么就会出现至少一个参数没有被定义呢？是文本中数据的空格问题吗？
2.171500e+02        1.000000e-03        4.419746e+02        2.437891e-02        7.547151e-01
2.171600e+02        1.000000e-03        4.419822e+02        2.437779e-02        7.547263e-01
2.171700e+02        1.000000e-03        4.419897e+02        2.437667e-02        7.547375e-01
2.171800e+02        1.000000e-03        4.419973e+02        2.437554e-02        7.547487e-01

ptjtlt260

zhaogang1960 发表于 2016-1-25 17:50
下面附件中有导入单个、多个文本文本两个程序，请测试：

如果txt文件第1行为列名，第2、3、4行为无用信息，我需要从第5行开始将数据导入，要什么办？

lhlh1024

感谢此贴，学会了schema.ini的方法，这也是sql导入文本格式不对的唯一解决方法了