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

符合 · 发表于 2012-12-10 22:21

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

太深了，我要继续努力。

360475713 · 发表于 2012-12-11 08:13

zhaogang1960 发表于 2012-12-10 21:52
使用ADO法导入文本文件中的身份证号会出现这种情况，我也没有好方法解决
可以考虑使用Open语句打开文本文 ...

这个是源文件，望大神指教~
对了，用第三种方法时，有小数的时候，比如 0.01 就直接变成了 .01 哦这个也是文本导入滴问题么？
先谢了{:soso_e100:}

zhaogang1960 · 发表于 2012-12-11 11:29

360475713 发表于 2012-12-11 08:13
这个是源文件，望大神指教~
对了，用第三种方法时，有小数的时候，比如 0.01 就直接变成了 .01 哦 ...

在数据库中数字字段中会出现这种情况，你可以手工在Access中输入0.01试试看
具体原因我不清楚，请到Access 与 SQL Server 的应用与开发板块问问吧

zhaogang1960 · 发表于 2012-12-11 11:37

经测试不管哪种方法，都会：1、把长数字变为科学计数法，2、把数字文本导前0自动删除，如00123变成123
可用Open语句打开文本文件，再采用第1、2种方法导入到数据库：

Sub Open语句打开文本文件再用第一种方法() '引用Microsoft ActiveX Data Objects 2.x Library
Dim cnnData As New ADODB.Connection
Dim rsData As New ADODB.Recordset
Dim myPath As String
Dim MyFile As String
Dim myTable As String
Dim arr, s$(), i As Long, j As Long
myTable = "贷款数据"
cnnData.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "" & "db1.mdb"
rsData.Open myTable, cnnData, adOpenKeyset, adLockOptimistic
myPath = ThisWorkbook.Path & ""
MyFile = Dir(myPath & "*.csv")
With rsData
Do While MyFile <> ""
Open myPath & MyFile For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
For i = 1 To UBound(s) '忽略标题行
If Len(s(i)) Then
a = Split(s(i), ",")
.AddNew
For j = 0 To UBound(a)
.Fields(j) = a(j)
Next
.Update
End If
Next
MyFile = Dir()
Loop
End With
MsgBox "已经成功将文本文件数据保存为数据库！", vbInformation
rsData.Close
cnnData.Close
Set rsData = Nothing
Set cnnData = Nothing
End Sub

复制代码

zhaogang1960 · 发表于 2012-12-11 11:41

根据52楼附件新建access数据库db1.mdb，数据表是"贷款数据"，请看附件：

360475713 · 发表于 2012-12-11 11:50

zhaogang1960 发表于 2012-12-11 11:29
在数据库中数字字段中会出现这种情况，你可以手工在Access中输入0.01试试看
具体原因我不清楚，请到Acce ...

在数据库里面更改都没有问题可以写成 0.01
而且身份证手动更改也没有问题的可以写成很长
就是用第三种方法导入时候才会出现异常
还是很感激大神~谢谢~

zhaogang1960 · 发表于 2012-12-11 11:54

360475713 发表于 2012-12-11 11:50
在数据库里面更改都没有问题可以写成 0.01
而且身份证手动更改也没有问题的可以写成很长
就是用第 ...

在文本类型字段中输入是没有问题，请把字段设置成数字双精度型，再手工输入0.01试试看

360475713 · 发表于 2012-12-11 12:02

zhaogang1960 发表于 2012-12-11 11:54
在文本类型字段中输入是没有问题，请把字段设置成数字双精度型，再手工输入0.01试试看

是哦~ 都把小数点前面的0省了。。。那可能还是设成文本或者设置成货币算了~
那个文件下载了，非常感谢~！ ^_^

chcchb · 发表于 2013-1-14 14:01

学习,收藏了

klmyyq · 发表于 2013-6-4 12:36

版主智慧过人，牛:victory:

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

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