求助VBA大神！workbook怎么赋值和调用！

答案:4 悬赏:0 手机版

解决时间 2021-03-10 05:45

提问者网友：我的未来我做主
2021-03-09 21:47

到图片黄色部分就运行不下去，求助！！！

Set crwb = Workbooks.Open(sfilecr)Set gpwb = Workbooks.Open(sfilegp)crwb.Worksheets(mpi).SelectCells.SelectSelection.CopyThisWorkbooks.SelectSheets("01 MP_CROSS").Select Cells.Select ActiveSheet.Paste

最佳答案

五星知识达人网友：不甚了了
2021-03-09 22:37

这是因为这两句代码Set crwb = Workbooks.Open(sfilecr) 和 Set gpwb = Workbooks.Open(sfilegp) 运行完了之后，先后打开了两个工作簿，此时电脑上激活的工作簿是gpwb代表的工作簿，而你要选中crwb当中的工作表，必须要先激活crwb代表的工作簿才能执行选择工作表操作，所以，加一句代码即可
Set crwb = Workbooks.Open(sfilecr)
Set gpwb = Workbooks.Open(sfilegp)
crwb.Activate
crwb.Worksheets(mpi).Select
Cells.Select
Selection.Copy
ThisWorkbooks.Select
Sheets("01 MP_CROSS").Select
Cells.Select
ActiveSheet.Paste

全部回答

1楼网友：北方的南先生
2021-03-10 02:30

估计是没有你输入的那个工作表，所以就报错了

2楼网友：独行浪子会拥风
2021-03-10 00:59

把黄色那句Work去了看看

3楼网友：天凉才是好个秋
2021-03-09 23:41

应该是：Sheets(mpi).Select

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息