EXCEL导入到ACCESS里的vba代码有问题求助

Bettyexcel

zhaogang1960 发表于 2015-11-5 17:40
一、字段名有句点
二、每个表都不能确定的字段名
这个问题我不会，抱歉

好的,谢谢赵版!

Bettyexcel

zhaogang1960 发表于 2015-11-3 17:15
附件…………………………

赵版您好。关于这个表标题有 “."的问题，我想到一个办法，就是在ACCESS里设置好了标题，然后代码改为从第二行开始的数据导入ACCESS，不导入它的标题行?您能帮我看看吗？谢谢了！

zhaogang1960

Bettyexcel 发表于 2015-11-20 12:58
赵版您好。关于这个表标题有 “."的问题，我想到一个办法，就是在ACCESS里设置好了标题，然后代码改为从 ...

请上传附件

Bettyexcel

zhaogang1960 发表于 2015-11-20 17:17
请上传附件

赵版好，请您查看附件，谢谢！

zhaogang1960

Bettyexcel 发表于 2015-11-21 15:45
赵版好，请您查看附件，谢谢！

删除原来数据库，重新生成数据库和数据表：

1. Sub Button1_Click()
   
2. '引用Microsoft ActiveX Data Objects 2.x Library
   
3. '引用Microsoft AD0 Ext 2.8 for DDL and Security
   
4.     Dim cnn As New ADODB.Connection
   
5.     Dim Cat As New ADOX.Catalog
   
6.     Dim myPath As String
   
7.     Dim myData As String
   
8.     Dim p As String
   
9.     Dim SQL As String
   
10.     myPath = ThisWorkbook.Path & ""
    
11.     p = Dir(myPath & "A list *.xls?")
    
12.     If p = "" Then
    
13.         MsgBox "没有发现数据源工作簿，无需更新。", vbInformation, "提醒"
    
14.         Exit Sub
    
15.     End If
    
16.     myData = myPath & "data.accdb"
    
17.     myTable = Split(p, " ")(0) & Split(p, " ")(1)
    
18.     If Dir(myData) <> "" Then Kill myData
    
19.     Cat.Create "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myData
    
20.     SQL = "CREATE TABLE " & myTable & "(SN long,[Number] long,[Assetment Number] text(20),SendTime date)"
    
21.     Cat.ActiveConnection.Execute SQL
    
22.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myData
    
23.     SQL = "INSERT INTO " & myTable & "(SN,[Number],[Assetment Number],SendTime) " _
    
24.         & "SELECT f1 as SN,f2 as [Number],f3 as [Assetment Number],f4 as SendTime FROM [Excel 12.0;hdr=no;Database=" & myPath & p & ";].[Sheet1$a2:d]"
    
25.     cnn.Execute SQL
    
26.     MsgBox " 成功导入 ", vbInformation, " 导入数据库 "
    
27.     Set Cat = Nothing
    
28.     cnn.Close
    
29.     Set cnn = Nothing
    
30. End Sub
    

复制代码

zhaogang1960

Bettyexcel 发表于 2015-11-21 15:45
赵版好，请您查看附件，谢谢！

删除原来数据库，重新生成数据库，按照你的新要求重新生成数据表： 以整个表更新的方式导入数据到ACCESS.rar (28.89 KB, 下载次数: 19)

2015-11-21 17:57 上传

点击文件名下载附件

Bettyexcel

zhaogang1960 发表于 2015-11-21 17:57
删除原来数据库，重新生成数据库，按照你的新要求重新生成数据表：

感谢赵版，但是运行后把我原本ACCESS里的其他10多个TABLE都删除了，能否让代码这样执行：先将原本在ACCESS里的同名的TABLE原有的数据清空，然后再将EXCEL的数据导入同名的TABLE？

zhaogang1960

Bettyexcel 发表于 2015-11-23 11:42
感谢赵版，但是运行后把我原本ACCESS里的其他10多个TABLE都删除了，能否让代码这样执行：先将原本在ACCES ...

1. Sub Button1_Click()
   
2. '引用Microsoft ActiveX Data Objects 2.x Library
   
3. '引用Microsoft AD0 Ext 2.8 for DDL and Security
   
4.     Dim cnn As New ADODB.Connection
   
5.     Dim Cat As New ADOX.Catalog
   
6.     Dim myPath As String
   
7.     Dim myData As String
   
8.     Dim p As String
   
9.     Dim SQL As String
   
10.     myPath = ThisWorkbook.Path & ""
    
11.     p = Dir(myPath & "A list *.xls?")
    
12.     If p = "" Then
    
13.         MsgBox "没有发现数据源工作簿，无需更新。", vbInformation, "提醒"
    
14.         Exit Sub
    
15.     End If
    
16.     myData = myPath & "data.accdb"
    
17.     myTable = Split(p, " ")(0) & Split(p, " ")(1)
    
18.     If Dir(myData) = "" Then Cat.Create "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myData
    
19.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myData
    
20.     Set rs = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, myTable, Empty))
    
21.     If rs.EOF Then
    
22.         SQL = "CREATE TABLE " & myTable & "(SN long,[Number] long,[Assetment Number] text(20),SendTime date)"
    
23.     Else
    
24.         SQL = "DELETE FROM " & myTable
    
25.     End If
    
26.     cnn.Execute SQL
    
27.     SQL = "INSERT INTO " & myTable & "(SN,[Number],[Assetment Number],SendTime) " _
    
28.         & "SELECT f1 as SN,f2 as [Number],f3 as [Assetment Number],f4 as SendTime FROM [Excel 12.0;hdr=no;Database=" & myPath & p & ";].[Sheet1$a2:d]"
    
29.     cnn.Execute SQL
    
30.     MsgBox " 成功导入 ", vbInformation, " 导入数据库 "
    
31.     Set Cat = Nothing
    
32.     cnn.Close
    
33.     Set cnn = Nothing
    
34. End Sub
    

复制代码

zhaogang1960

Bettyexcel 发表于 2015-11-23 11:42
感谢赵版，但是运行后把我原本ACCESS里的其他10多个TABLE都删除了，能否让代码这样执行：先将原本在ACCES ...

如果数据库文件不存在则生成新数据库文件；如果数据表不存在则生成新数据表，否则删除数据表所有记录：
以整个表更新的方式导入数据到ACCESS.rar (29.26 KB, 下载次数: 21)

2015-11-23 20:44 上传

点击文件名下载附件

Bettyexcel

zhaogang1960 发表于 2015-11-23 20:45
如果数据库文件不存在则生成新数据库文件；如果数据表不存在则生成新数据表，否则删除数据表所有记录：
...

感谢赵版，已成功达到。有个问题，我发现通过这种方式导入的数据会使ACCESS占有的内存急剧上升？每运行一次代码，不管数据有否增加，ACCESS的内存都变大了好多。