|
楼主 |
发表于 2011-7-6 12:42
|
显示全部楼层
原帖由 ctp_119 于 2011-7-6 07:30 发表
本人理解能力有限,有点不明白你描述的境况,能否详细点。
不好意思,由于单位是内网,不能上外网,所以才看到,见谅了!!也把大哥您当成单位同事,介绍的不清楚,我的要求是这样的:
附件内的日报工作表是打印页面,且打印后A2:D2单元格内数据是不保存的,当选择打印项并在执行打印前,能否在您给我写的代码中再加入触发汇总工作簿打开的代码(即非人工干预打开汇总工作簿来复制数据),查找汇总工作簿时能否不用指定路径?- Private Sub Workbook_Open()
- Dim mybooks As Workbook
- On Error GoTo err
- Set mybooks = Application.Workbooks("日报.xls")
- 'Set mybooks = GetObject(ThisWorkbook.Path & "\日报.xls")
- mybooks.Sheets("sheet1").Range("A2:D2").Copy Sheet1.Range("a" & [a65536].End(xlUp).Row + 1)
- 'mybooks.Close
- ThisWorkbook.Save
- err:
- '能否再加入触发汇总工作簿打开的代码,查找汇总工作簿时能否不用指定路径?
- End Sub
复制代码 |
|