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

不打开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

声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。
IT技术管理经验

港口油耗监控系统的介绍和应用

2012-11-17 20:59:37

IT技术

新的方向:公路水运工程试验检测专业技术人员职业资格考试

2017-8-20 17:30:00

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索