求助EXCEL选择性地导入ACCESS里

Bettyexcel

前辈们老师们，

基本每天收到别人发来的数据报表，我将此报表的数据汇总累计在一起。不能要求别人规范格式，只能自己想办法规范，以便累计汇总跟踪。
报表有2个Sheet.
只需要该报表的 “家具号", " 备注” 这两列导入ACCESS里,且ACCESS的名称改成英文。即：
“家具号 ” 对应ACCESS里的 ACC Number 导入
"备注“ 对应ACCESS里的 Problem 导入

请帮忙看看，谢谢了！！

t13564865256

不能要求别人规范输入，你还是避免使用ACCESS吧，使用ACCESS的前提就是表格要输入规范。

Bettyexcel

t13564865256 发表于 2015-11-16 15:52
不能要求别人规范输入，你还是避免使用ACCESS吧，使用ACCESS的前提就是表格要输入规范。

但是数据很多，而且我要和别的数据核对，所以用ACCESS是我想的办法。

gftrewq

Bettyexcel 发表于 2015-11-16 15:56
但是数据很多，而且我要和别的数据核对，所以用ACCESS是我想的办法。

你还不如直接使用access

Bettyexcel

gftrewq 发表于 2015-11-16 16:02
你还不如直接使用access

亲，我不能要求别人用ACCESS啊。

gftrewq

Bettyexcel 发表于 2015-11-16 16:14
亲，我不能要求别人用ACCESS啊。

你是自己给自己找麻烦（“家具号 ” 对应ACCESS里的 ACC Number 导入
"备注“ 对应ACCESS里的 Problem 导入）这不是自己给自己增加难度吗？数据规范一点不好吗?

Bettyexcel

gftrewq 发表于 2015-11-16 16:21
你是自己给自己找麻烦（“家具号 ” 对应ACCESS里的 ACC Number 导入
"备注“ 对应ACCESS里的 Problem  ...

我要这样是因为其他和这个表核对的数据用的是这个名称。所有的表格都统一名称才能核对。

秋之心

1. Sub 插入()
   
2. Dim CNN As Object, ARR, ST As String, X As Integer, SQL As String
   
3. Set CNN = VBA.CreateObject("ADODB.CONNECTION")
   
4. CNN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\data.accdb"
   
5. ARR = Range("B2:F" & Range("B65536").End(xlUp).Row + 1)
   
6.     For X = 1 To UBound(ARR) - 1 Step 1
   
7.         ST = "'" & ARR(X, 1) & "','" & ARR(X, 5) & "'"
   
8.         SQL = "INSERT INTO 不合格汇总 ([ACC Number],Problem) VALUES (" & ST & ")"
   
9.         CNN.Execute SQL, , adExecuteNoRecords
   
10.     Next X
    
11. CNN.Close
    
12. Set CNN = Nothing
    
13. End Sub
    

复制代码

Bettyexcel

秋之心 发表于 2015-11-17 09:53

感谢亲！
秋之心 老师，我想此代码放在另一个工作簿里，能帮我再看看吗？

秋之心

Bettyexcel 发表于 2015-11-17 11:16
感谢亲！
秋之心 老师，我想此代码放在另一个工作簿里，能帮我再看看吗？

代码复制过去，跟data.accdb放在同一个文件夹内，然后data.accdb里面的表名跟字段名不能改，符合这个要就就没问题，