注册 登录
  • 欢迎访问港机技术在线,港口设备维护管理、维修经验交流文章分享给大家!访问地址
  • 网站陆续收藏互联网上关于港口岸边桥式起重机(岸桥)、门机、卸船机、
  • 轮胎吊、斗轮机、堆取料机、正面吊、堆高机等各类机电设备维修经验文章,敬请关注!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏港机技术博客吧

不打开Excel表格操作其中内容的代码

IT技术 小编 775次浏览 0个评论 扫描二维码

不打开Excel表格操作其中内容的代码

大家好:
小弟最近想学写一个宏,要实现以下几个功能:

1、宏在EXCEL1中,打开EXCEL1,不打开EXCEL2,把EXCEL1中某单元格的内容粘贴到EXCEL2中;
2、把EXCEL2剪切到另一个文件夹。

请问各位有没有这样的例子?或者类似的代码供小弟参考一下。
谢谢大家!

1
2
3
4
5
6
7
8
Sub Test()
With CreateObject(“ADODB.connection”)
.Open “Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=’Excel 8.0;HDR=NO;’;Data Source=” & ThisWorkbook.Path & “\W.XLS”
.Execute “UPDATE [SHEET1$H5:H5] SET F1='” & [A1] & “‘”
.Close
End With
Name ThisWorkbook.Path & “\W.XLS” As “D:\W.XLS”
End Sub

Sub Test()
With CreateObject(“ADODB.connection”)
.Open “Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=’Excel 8.0;HDR=NO;’;Data Source=” & ThisWorkbook.Path & “\W.XLS”
.Execute “UPDATE [SHEET1$H5:H5] SET F1='” & [A1] & “‘”
.Close
End With
Name ThisWorkbook.Path & “\W.XLS” As “D:\W.XLS”
End Sub


转载本站文章请注明:文章来源于http://ippdd.com不打开Excel表格操作其中内容的代码
喜欢 (0)
[wangzhe12588@163.com]
分享 (0)

您必须 登录 才能发表评论!