excel 数据表无法导入ACCESS 2010

yangguangyi

各位前辈
遇到问题，
数据库是ACCESS 2010， 点击外部数据 导入EXCEL表数据，出现由于无法读取数据中的VBA工程，请先删除VBA工程，出现确定或取消，确定后出现Visual basic for application 损坏
ACCESS中的表都可以打开，也可以导出数据

yangguangyi

Desktop.rar (25.42 KB, 下载次数: 6)

2014-2-12 17:34 上传

点击文件名下载附件

zhaogang1960

短信收到，下面是Excel2010中运行的代码，请参考：

1. Sub 宏1()
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim SQL As String
   
4.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\新建 Microsoft Access 数据库.accdb"
   
5.     On Error Resume Next
   
6.     SQL = "DROP TABLE " & ActiveSheet.Name
   
7.     cnn.Execute SQL
   
8.     On Error GoTo 0
   
9.     SQL = "SELECT * INTO " & ActiveSheet.Name & " FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$]"
   
10.     cnn.Execute SQL
    
11.     MsgBox "已经将工作表数据生成新数据表。", vbInformation, "生成新数据表"
    
12.     cnn.Close
    
13.     Set cnn = Nothing
    
14. End Sub
    

复制代码

zhaogang1960

请测试附件
Desktop.rar (38.98 KB, 下载次数: 5)

2014-2-12 19:32 上传

点击文件名下载附件

yangguangyi

zhaogang1960 发表于 2014-2-12 19:32
请测试附件

谢谢，但是我想知道为什么手动导入无法实现，会出现这种情况

yangguangyi

zhaogang1960 发表于 2014-2-12 19:32
请测试附件

Access导入excel.rar (98.04 KB, 下载次数: 4)

2014-2-12 23:19 上传

点击文件名下载附件

EXCEL表里数据每天追加到ACCESS FY14表中
现在 手动也不行  VBA也不行，请帮助解答，谢谢

zhaogang1960

yangguangyi 发表于 2014-2-12 23:20
EXCEL表里数据每天追加到ACCESS FY14表中
现在 手动也不行  VBA也不行，请帮助解答，谢谢

1. Sub Macro1()
   
2.     Dim cnn As Object, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\FY14.mdb"
   
5.     SQL = "insert into FY14 select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[数据处理$" & Sheets("数据处理").[a1].CurrentRegion.Address(0, 0) & "]"
   
6.     cnn.Execute (SQL)
   
7.     MsgBox "数据已经导入到数据库!", vbInformation, "数据导入"
   
8.     cnn.Close
   
9.     Set cnn = Nothing
   
10. End Sub
    

复制代码

zhaogang1960

请测试附件
Access导入excel.rar (96.09 KB, 下载次数: 3)

2014-2-13 00:02 上传

点击文件名下载附件

yangguangyi

zhaogang1960 发表于 2014-2-13 00:02
请测试附件

由于数据量大，很多而且不统一，经常出现数据类型不对，字段太少无法导入。我想遇到这种情况继续导入

zhaogang1960

yangguangyi 发表于 2014-2-14 09:56
由于数据量大，很多而且不统一，经常出现数据类型不对，字段太少无法导入。我想遇到这种情况继续导入

请总结一下各种情况数据，传上来分析一下