求助EXCEL选择性地导入ACCESS里

Bettyexcel

秋之心 发表于 2015-11-17 11:26
代码复制过去，跟data.accdb放在同一个文件夹内，然后data.accdb里面的表名跟字段名不能改，符合这个要就 ...

秋老师，你好，我试过了，但由于未合格日报有时可能同时存在几个导致不能全部导入完，我模拟了下，您帮我看看？

秋之心

Bettyexcel 发表于 2015-11-17 12:08
秋老师，你好，我试过了，但由于未合格日报有时可能同时存在几个导致不能全部导入完，我模拟了下，您帮我 ...

表格里面有二次返修的这些要导入吗？，

zhaogang1960

请参考:

1. Sub 从Excel工作表中向数据表添加纪录()
   
2.     Dim cnn As Object, SQL$, myTable$, sh As Worksheet
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     myTable = "不合格汇总"
   
5.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\data.accdb"
   
6.     For Each sh In Sheets
   
7.         SQL = "INSERT INTO " & myTable & "([ACC Number],Problem) SELECT 家具号 as [ACC Number],备注 as Problem FROM [Excel 12.0;Database=" _
   
8.             & ActiveWorkbook.FullName & ";].[" & sh.Name & "$" & sh.Range("A1").CurrentRegion.Address(0, 0) & "]"
   
9.         cnn.Execute SQL
   
10.     Next
    
11.     MsgBox "纪录添加成功。", vbInformation, "添加纪录"
    
12.     cnn.Close
    
13.     Set cnn = Nothing
    
14. End Sub
    

复制代码

Bettyexcel

秋之心 发表于 2015-11-17 14:02
表格里面有二次返修的这些要导入吗？，

是的，要的。可能有几个未合格日报的工作簿，而每个工作簿里有两个格式一样的工作表都一起导入。

zhaogang1960

刚才上传代码要审查，请看附件吧
选择性地导入ACCESS.rar (38.92 KB, 下载次数: 52)

2015-11-17 15:47 上传

点击文件名下载附件

请注意，ACC Number字段不能设置为主键，因为工作表中它有很多重复值

Bettyexcel

zhaogang1960 发表于 2015-11-17 15:48
刚才上传代码要审查，请看附件吧

谢谢赵版。
表格有2个变化：
1  代码不是写在未合格日报表里，写在另一个工作簿里，请看附件。
2  如果一个 “家具号 ” 出现了很多问题，能否将所有问题合在一起？这样才能将ACC NUMBER设置成为主键。
不好意思，麻烦了，本人一直很菜。

zhaogang1960

Bettyexcel 发表于 2015-11-17 16:23
谢谢赵版。
表格有2个变化：
1  代码不是写在未合格日报表里，写在另一个工作簿里，请看附件。

1. Sub 从Excel工作表中向数据表添加纪录()
   
2.     Dim Fso As Object, File As Object, cnn As Object, rs As Object, SQL$, myTable$, sh$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     myTable = "[MS Access;pwd=;Database=" & ThisWorkbook.Path & "\data.accdb;].不合格汇总"
   
5.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
6.     For Each File In Fso.GetFolder(ThisWorkbook.Path).Files
   
7.         If File.Name Like "*.xlsx" Then
   
8.             Set cnn = CreateObject("adodb.connection")
   
9.             cnn.Open "provider=microsoft.Ace.oledb.12.0;extended properties=excel 12.0;data source=" & File
   
10.             Set rs = cnn.OpenSchema(20)
    
11.             Do Until rs.EOF
    
12.                 If rs.Fields("TABLE_TYPE") = "TABLE" Then
    
13.                     sh = Replace(rs("TABLE_NAME").Value, "'", "")
    
14.                     If Right(sh, 1) = "$" Then
    
15.                         SQL = "INSERT INTO " & myTable & "([ACC Number],Problem) SELECT 家具号 as [ACC Number],备注 as Problem FROM [" & sh & "]"
    
16.                         cnn.Execute SQL
    
17.                     End If
    
18.                 End If
    
19.                 rs.MoveNext
    
20.             Loop
    
21.         End If
    
22.     Next
    
23.     MsgBox "纪录添加成功。", vbInformation, "添加纪录"
    
24.     rs.Close
    
25.     cnn.Close
    
26.     Set rs = Nothing
    
27.     Set cnn = Nothing
    
28.     Set Fso = Nothing
    
29. End Sub
    

复制代码

zhaogang1960

Bettyexcel 发表于 2015-11-17 16:23
谢谢赵版。
表格有2个变化：
1  代码不是写在未合格日报表里，写在另一个工作簿里，请看附件。

zhaogang1960

请测试附件
选择性地导入ACCESS123.rar (66.87 KB, 下载次数: 46)

2015-11-17 16:42 上传

点击文件名下载附件

Bettyexcel

zhaogang1960 发表于 2015-11-17 16:43
请测试附件

谢谢赵版。一个家具号对应的多个问题，可以将所有问题合并在一行吗？