Excel中使用VBA将txt导入Access

zhaogang1960 · 发表于 2016-1-26 12:19

mctrix 发表于 2016-1-26 08:36
我做了两次实验：
1. 把删除schema.ini那部分代码删除掉 --> 看到了向ini中写入的内容；
2. 把操作sche ...

如果没有schema.ini，ADO默认文本文件是用逗号分隔的，如果有schema.ini，ADO就按照它指定的分隔符，是否有标题行等进行查询

你提供的文本文件是用制表符分割的，且没有标题行，必须在SQL语句执行时读取schema.ini中的信息

mctrix · 发表于 2016-1-26 12:27

zhaogang1960 发表于 2016-1-26 12:19
如果没有schema.ini，ADO默认文本文件是用逗号分隔的，如果有schema.ini，ADO就按照它指定的分隔符，是否 ...

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

复制代码

那SQL中" [Text;FMT=TabDelimited;HDR=NO;DATABASE=" & myPath & ";].[" & MyFile & "]"，对Text文本格式的限定（FMT、HDR）不起作用吗？

mctrix · 发表于 2016-1-26 13:12

zhaogang1960 发表于 2016-1-26 12:19
如果没有schema.ini，ADO默认文本文件是用逗号分隔的，如果有schema.ini，ADO就按照它指定的分隔符，是否 ...

抱歉，又遇到一个错误。当txt文本”号码“字段记录末尾带字母是，导入Access会丢失。请帮忙看下！
问题.jpg

导入不全问题.zip (1.42 MB, 下载次数: 33)

魂断蓝桥 · 发表于 2016-1-26 13:16

试一下，把access 号码字段设置成文本

mctrix · 发表于 2016-1-26 13:36

魂断蓝桥发表于 2016-1-26 13:16
试一下，把access 号码字段设置成文本

谢谢。我设置过了，是短文本型字段

文本型.jpg

mctrix · 发表于 2016-1-26 15:36

在Access中使用”外部数据 -- 文本文件“方式手动导入数据，发现又不会丢失数据。搞不明白怎么回事？

常规导入.jpg

zhaogang1960 · 发表于 2016-1-26 15:38

mctrix 发表于 2016-1-26 15:36
在Access中使用”外部数据 -- 文本文件“方式手动导入数据，发现又不会丢失数据。搞不明白怎么回事？

文本文件第一列数字和文本混排，需要指定各列数据类型：
Sub txtImportAccess()
Dim cnn As Object
Dim myPath$, MyFile$, SQL$, s$
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test.accdb" '连接数据库
myPath = ThisWorkbook.Path & "\"
MyFile = ThisWorkbook.Path & "\Test.txt"
If Dir(ThisWorkbook.Path & "\Test.txt") <> "" Then
      SQL = "Insert Into test select f1 as 号码,f2 as 批号,f3 as 日期,f4 as 时间,f5 as 备注 from [Text;FMT=TabDelimited;HDR=NO;DATABASE=" & myPath & ";].[Test.txt]"
      s = "[Test.txt]" & vbCrLf & "COLNAMEHEADER = false" & vbCrLf & "Format = TabDelimited" & vbCrLf & "Col1=f1 Char" & vbCrLf & "Col2=f2 Char" & vbCrLf & "Col3=f3 DATE" & vbCrLf & "Col4=f4 Char" & vbCrLf & "Col5=f5 Char"
      Open myPath & "schema.ini" For Output As #1
      Print #1, s
      Close #1
      cnn.Execute SQL
      Kill ThisWorkbook.Path & "\schema.ini"
End If
MsgBox "已经成功将文本文件数据保存为数据库！", vbInformation
cnn.Close
Set cnn = Nothing
End Sub

zhaogang1960 · 发表于 2016-1-26 15:41

Schema.ini文件中指定各列数据类型，请看附件

导入不全问题.rar (1.2 MB, 下载次数: 99)

zhaogang1960 · 发表于 2016-1-26 15:44

mctrix 发表于 2016-1-26 12:27
那SQL中" [Text;FMT=TabDelimited;HDR=NO;DATABASE=" & myPath & ";].[" & MyFile & "]" ...

用逗号分割的文本文件作为数据源是起作用的，否则全部需要读取Schema.ini文件中的设置

mctrix · 发表于 2016-1-26 15:57

zhaogang1960 发表于 2016-1-26 15:41
Schema.ini文件中指定各列数据类型，请看附件

非常感谢。
是不是所有文本型格式的文件，都可以使用这种ADODB读取Schema.ini+执行SQL的方式来把数据导入Access？
还有，类比到其他格式的文件（Excel、Access等）导入到Access，也可使用同样的方式吗？

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

[已解决] Excel中使用VBA将txt导入Access

评分