怎样在EXCEL表中快速复制同样的内容且不能覆盖原有内容的方法。
如下参考:
1.首先,使用excel的2007版本打开目标文件,如下图所示。
2.然后在B1或其他单元格中输入数字“10”,如图所示。
3.然后右击单元格并从右击菜单中执行复制命令。
4.然后选择所有你想要添加10的数据,点击右键菜单中的“选择粘贴”选项。
5.然后,在出现的窗口中,单击 *** 作区域中的“加号”选项进行确认。
6.完成上述设置后,可以将卷值添加到Excel工作表中一个列的所有值,并覆盖原始值。
要完全表对表机械式地导入不是没有办法,把ACCESS表放在ACCESS里,EXCEL表放在ACCESS一个文件夹里,然后:
在ACCESS中拖一个按钮,VBA界面写按钮事件过程:
Dim cnn As ADODB.Connection '//创建ADO连接对象Set cnn=CurrentProject.Connection '//连接对象为临时对象
cnn.Open '//打开连接
String Sql="Insert into ACCESS表 Select * from [EXCEL表$] IN ODBC[ODBC:Provider=Microsoft.Jet.OLEDB.4.0Data Source="+Application.Path+"Extended Properties='EXCEL 8.0HDR=YESIMEX=1'] where EXCEL表.字段1=ACCESS表.字段1 where ((ACCESS表.字段1) IS NULL)"
'//这一句是关键,ACCESS可以用ODBC外部连接EXCEL联合查询,先连接查询是否有重复项,往没重复项的纪录插入数据
cnn.Excute sql,cnn '// *** 作查询
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)