<em>VBA</em> <em>Active</em>Workbook

可以切换、也复可以制不切换直接操百作，切换度的语句：
WorkBooks("B.xlsx").Activate
直接操作问的语句答：
WorkBooks("B.xlsx").Sheets("Sheet1").Range("A1")=123
me.Range("F5") = WorkBooks("B.xlsx").Sheets("Sheet1").Range("A1")

对当前表操作最简单了。不用太复杂了

如A1=10
Range("A10").value=10 就行了，前面那些东西全不需要用上。
把Sheet1改为Sheets(1)试试看

用Activate方法可激活，例如来：
workbooks("Book1").Activate

关于Activate的相关知识：
应用于 Application、Document、InlineShape、OLEFormat、Pane、Shape、ShapeRange 和 Window对象的 Activate方法源。
激活指定的对象。
expression.Activate
expression 必需zhidao。该表达式返回以上的一个对象。