打开已关闭的工作簿时转到特定工作表的宏

时间:2015-12-08 18:42:17

标签: excel

我有一个包含工作表(人名)的主工作簿,其中包含我要复制到已关闭工作簿的数据(工作簿与Master中的工作表同名)。每个命名的工作簿都有2个工作表(1个名为Performance,sheet2命名为出勤)。当我在Master上时(为每个工作表创建了多个宏-macro),单击它时会在HDD上查找,找到名称,打开工作簿并将数据复制到工作表。我遇到的问题是它复制到我最后一张纸上,并没有搜索“出勤”然后粘贴。我知道这是一件很简单的事我不知道但是请专家咨询。我也确信有一种比创建多个宏和模块更简单的方法,但我想我会先使这个版本先工作。

以下是我使用的代码,它的功能类似于魅力,除非它提到了我在工作簿中的最后一张纸。

Sub TransposetoJohnSnowScorecard()

Range("E1:K5").Select
Selection.Copy
ChDir "E:\MyTeam\MyName"
Workbooks.Open Filename:="E:\MyTeam\MyName\John Snow.xlsm"
Range("E1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("Working Sample Ledger.xlsm").Activate
Range("A14:AH100").Select
Selection.Copy
Windows("John Snow.xlsm").Activate
Range("A14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

感谢

0 个答案:

没有答案