作者：乔山办公网日期：
返回目录：excel表格制作
您好：
方法很简单，只要在C1中输zhidao入“=A1&B1”，按回车键，C1列的内容就是A1、B1两列的和了。
然后，回选中C1单元格，用鼠标指向单元格右下角，当光标变成"＋"后，按住鼠标拖动光标向下拖到要合并的结尾行处，就完成了A列和B列的合并。先要把C列的结果复制一下，再用“选择性粘贴”命令，将答数据粘贴C列上,再删掉A、B、列的数据即可。
1.在Access中创建对Excel工作簿的链接：在Access中选择“外部数据——导入——Excel”。
2.在“获取外部数据复”对话框中选择“通过创建链接表来链接到数据源”。
必须为每个Excel工作簿重复该过程直到将它们都链接到数据库。结果如下图所示。
3.在SQL视图制中开始新的查询，单击“创建——其他——查询设计”。
4.选择“查询工具-设计”中的“SQL视图”
5.在SQL视图中，为所有链接的Excel表输入Select语句，在每个Select语句间使用Union操作符，在SQL视图中输入选择查询语句。
6.运行查询后，结果将是包含从所有链接的文件中获取并合并后的数据。
只要链接的Excel文件在相同的位置，每次zhidao打开数据库时Access将自动刷新链接以获取最新数据。这意味着只需设置一次，然后在每次需要重新组合Excel文件时运行联合查询。
然而，默认情况下，UNION操作符会移除数据中的任何重复行。如果知道数据中有重复行，并且想保留它们，那么需要使用UNION ALL，以允许传递重复行。
Sub ttt()
Dim conn
Set conn = CreateObject("adodb.connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Test.mdb"
conn.Open
conn.Execute "insert into 表名(A,B,C) select * from [Excel 8.0;DataBase=" & ActiveWorkbook.FullName & "].[表1$]"
conn.Execute "insert into 表名(B,D,E) select * from [Excel 8.0;DataBase=" & ActiveWorkbook.FullName & "].[表2$]"
conn.Execute "insert into 表名(A,D) select * from [Excel 8.0;DataBase=" & ActiveWorkbook.FullName & "].[表3$]"
conn.Close
Set conn = Nothing
End Sub
以上代码写在excel中，
E:\Test.mdb为access数据库完整路径7a64e59b9ee7ad94365，“表名”为access目标表名
代码执行3次sql命令将3个表导入
1.在Access中创建对Excel工作簿的链接：在Access中选择“外部数据——导入——Excel”。2.在“获取外部数据”对话框中选择“通过创建链接表来百链接到数据源”。必须为每个Excel工作簿重复该过程直到将它们都链接到数据库。结果如下图所示。3.在SQL视图中开始新的查询度，单击“创建——其他——查询设计”。4.选择“查询工具-设计”中的“SQL视图”5.在SQL视图中，为所有知链接的Excel表输入Select语句，在每个Select语句间使用Union操作符，在SQL视图中输入选择查询语句。6.运行查询后，道结果将是包含从所有链接的文件中获取并合并后的数据。只要链接的Excel文件在相同的位置，每次打开数据库时Access将自动刷新链接以获取最新数据。这专意味着只需设置一次，然后在每次需要重新组合Excel文件时运行联合查询。然而，默认情况下，UNION操作符会移除数据中的任何重复行属。如果知道数据中有重复行，并且想保留它们，那么需要使用UNIONALL，以允许传递重复行。