用ExcelVBA将多个列数不完全相同的文本文件或csv数据导入到Access数据库中的三种方法

mico100 · 发表于 2015-8-7 15:11

版主能不断改进自己的代码，非常佩服！也十分感谢版主的分享！

Crazyzhou · 发表于 2016-5-15 00:39

marke下123456789

龙城飞将III · 发表于 2016-8-21 08:37

tangel 发表于 2011-7-27 03:37
附上第四写法：其它写法相同
4.先合并txt文件为temp.txt
dim cmdstr as string

众里寻他千百度，兄台的方法真心牛！！！

龙城飞将III · 发表于 2016-8-21 08:44

感谢赵刚版主的分享啊，ADO基础特别弱，之前还在傻傻的打开文件，读取数据，关闭文件，写入Access，速度慢上几十倍。

LMY123 · 发表于 2018-9-29 11:22

SQL = "insert into 成绩单 select * from (" & SQL & ")" '向access数据表中添加数据语句

Gaoyunpeng · 发表于 2019-6-26 07:56

zhaogang1960 发表于 2011-7-11 22:17
今天觉得循环方式速度太慢，又使用了
2、工作表过渡法，先把文本文件数据联合查询复制到工作表上，然后用 ...

Range("a2").CopyFromRecordset rs '文本文件数据复制到工作表
这个方法我喜欢，简单直接。。。

Gaoyunpeng · 发表于 2019-6-26 08:13

zhaogang1960 发表于 2011-7-11 22:18
由于需要两次连接，还需要在工作表上读写，速度肯定会有影响，可否使用类似从工作表或其他的access数据表中 ...

终于找到文本写入ACCESS的代码了。。。

困扰多年的顽疾解决了。

hidwos · 发表于 2019-6-27 10:27

本帖最后由 hidwos 于 2019-6-27 10:29 编辑

微信截图_20190627102638.png

请教一下老师，WIN7 64位，OFFICE2013 64位，运行这样的提示，是什么问题啊？菜鸟一枚

glinmars · 发表于 2019-7-30 15:29

请问一下赵老师，我通过ADO，OLEDB的方法读取CSV文件的内容，为啥取出来的数据列变成了文本格式？有什么方法可以避免吗？因为我取出来后还要计算。恳请赵老师不吝赐教，谢谢

opel-wong · 发表于 2019-10-23 10:45

zhaogang1960 发表于 2011-7-11 22:18
由于需要两次连接，还需要在工作表上读写，速度肯定会有影响，可否使用类似从工作表或其他的access数据表中 ...

赵版，3楼的代码，联合查询后批量导入txt文件。
如果txt文件的分隔符不是“,”号，而是vbTab，导入不成功，

应该修改哪里呢？

敬请指点，谢谢！

		自动登录	找回密码
密码			免费注册

[原创] 用ExcelVBA将多个列数不完全相同的文本文件或csv数据导入到Access数据库中的三种方法