求助ACCESS导入问题

sjdzzzz · 发表于 2015-7-21 18:18

前面求助ACCESS导入CSV格式文件问题。一直没解决，找到两个例子，但修改无效。请大神指点。QQ11025983.

需要把把待导入数据导入到 TEST的表里面。

使用《2导入CSV示例》中的ADO方式可成功，但使用SQL方式又不行。真是没看懂。请指点。
使用《1批量导入csv文件》改了表的格式又不行，也没看懂问题所在。

希望高手能帮忙指点一下迷津，带小弟入下门。谢谢！

1批量导入csv文件.rar (28.98 KB, 下载次数: 10)

2导入CSV示例.rar (85.17 KB, 下载次数: 8)

TEST.rar (16.23 KB, 下载次数: 8)

待导入数据.rar (4.51 KB, 下载次数: 12)

sjdzzzz · 发表于 2015-7-21 22:16

没有高人伸伸手吗？自己顶一个！

coby001 · 发表于 2015-7-21 22:33

这东西，网上很多阿
搜一下，

coby001 · 发表于 2015-7-21 22:41

Access
文件--获取外部数据--导入--文本文件(*.csv)--你的文件.csv--确定

然后，按提示一直“下一步”。

sjdzzzz · 发表于 2015-7-21 22:44

coby001 发表于 2015-7-21 22:33
这东西，网上很多阿
搜一下，

求指点，看了些代码，有些不明白。
With Application.FileDialog(3)
.AllowMultiSelect = True
.InitialFileName = ""
.Filters.Clear
.Filters.Add "CSV文件", "*.CSV"
If .Show = -1 Then
strSelectFile = .SelectedItems.Item(1)
Else
Exit Sub
End If
End With

这段如何控制导入多文件了？ .AllowMultiSelect = True 这里可多选，但只发现导入第一个。请指点一下，谢谢！

coby001 · 发表于 2015-7-21 22:54

If .Show = -1 Then
      for i=1 to .SelectedItems,count
            strSelectFile = .SelectedItems.Item(i)
            导入  strSelectFile
      next
Else
      Exit Sub
End If

sjdzzzz · 发表于 2015-7-22 00:00

coby001 发表于 2015-7-21 22:54
If .Show = -1 Then
for i=1 to .SelectedItems,count
strSelectFile = .Selec ...

感谢，刚刚我在程序里实现了。
不过在一个新的ACCESS文件里把代码写进去后，说用户定义类型未定义，程序定在Dim xDia As FileDialog
我在引用里选择 DAO 3.6 说名称与已存在的模块冲突？？
这是怎么回事。

coby001 · 发表于 2015-7-22 09:57

sjdzzzz 发表于 2015-7-22 00:00
感谢，刚刚我在程序里实现了。
不过在一个新的ACCESS文件里把代码写进去后，说用户定义类型未定义，程序 ...

ACCESS 默认引用了DAO ，不引用 Microsoft Office xx.0 Object Library

自己在VBE里的引用窗口看一下~

sjdzzzz · 发表于 2015-7-22 11:14

coby001 发表于 2015-7-22 09:57
ACCESS 默认引用了DAO ，不引用 Microsoft Office xx.0 Object Library

自己在VBE里的引用窗口看一下~

2导入CSV示例.rar (85.17 KB, 下载次数: 12)

TEST11.rar (24.35 KB, 下载次数: 8)

我选择了Object Library 的引用，还是出这个问题？
跟参考的例子选择是一样的。例子没有出问题，这是为什么？

coby001 · 发表于 2015-7-22 11:17

sjdzzzz 发表于 2015-7-22 11:14
我选择了Object Library 的引用，还是出这个问题？
跟参考的例子选择是一样的。例子没有出问题 ...

没明白你想说什么？能不能说详细些~

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

[求助] 求助ACCESS导入问题