[已解决]VBA 多个工作簿之间的工作表赋值报错

save008

vitrel 发表于 2022-4-20 17:28
楼主，我又多事了。7楼网友的意思是，正确、完整的代码应该是：

sxws.Range(sxws.Cells(3 + sum, 4),  ...

已解决，感谢哈。之前以为指定了工作表的Range对象就不用指定Cells了，看来还得很严谨才行。非常感谢您跟7楼的指导~

save008

vitrel 发表于 2022-4-20 17:28
楼主，我又多事了。7楼网友的意思是，正确、完整的代码应该是：

sxws.Range(sxws.Cells(3 + sum, 4),  ...

另外想请教下，如果换成用WITH语法，应该是怎么写？主要赋值的两个Range对象都不一样

vitrel

save008 发表于 2022-4-21 09:33
另外想请教下，如果换成用WITH语法，应该是怎么写？主要赋值的两个Range对象都不一样

With的用法是为了省略父对象，用到您的代码中，就是在With sxwb到End With之间，所有sxwb都可省略。如：

1. With sxwb
   
2.     .Range(.Cells(3 + sum, 4), .Cells(3 + sum + count, 4)) = Application.Transpose(shuxingji)
   
3.     .Range(.Cells(3 + sum, 5), .Cells(3 + sum + count, 5)) = Application.Transpose(shuxing)
   
4. End With

复制代码

对于一段代码中，某一父对象经常出现的情况下，使用With，确实可以简化不少代码。

save008

vitrel 发表于 2022-4-21 11:27
With的用法是为了省略父对象，用到您的代码中，就是在With sxwb到End With之间，所有sxwb都可省略。如：
...

实测用了并不能赋值到汇总表sxwb，只能在当前把数组赋值到当前工作表

vitrel

save008 发表于 2022-4-21 14:32
实测用了并不能赋值到汇总表sxwb，只能在当前把数组赋值到当前工作表

楼主，您好！
暂不知您反映的这个情况问题出在哪，
With代码在我的电脑上测试是成功的，
取消Activate，使用With后，赋值在sxwb中，与谁是当前工作簿、当前工作表无关。
附上我的测试文档，如果楼主有兴趣的话可以测试一下，Test3。

save008

vitrel 发表于 2022-4-21 17:28
楼主，您好！
暂不知您反映的这个情况问题出在哪，
With代码在我的电脑上测试是成功的，

感谢，应该是我写法问题，没把cells上加上'.'。那意思是WITH xx   END WITH之间的，跟xx.cells,xx.range,xx.usedrange的意思一样。都可以省略对象名