Question

如何在一个excel文件中通过vba来设置另一个excel文件中单元格的格式

比如我在a.xls文件中，如何用vba编码实现，
选中b.xls文件中的A1到B2的区域，然后合并单元格，并设置背景色呢？
我用下面的代码试过
Range("A1:B2").Select
Selection.Merge
可是合并的是a.xls中的，怎么才能改为去控制b.xls的呢？？
谢谢楼下的回答，不过我现在在a.xls里已经通过
Set xlFromBook = xlApp.Workbooks.Open(strFile) 'c.xls
Set xlToBook = xlApp.Workbooks.Open(strToAllPath) 'b.xls
同时打开了b.xls和c.xls这两个文件，
应该怎么指定Range为b.xls的呢？
不想通过“Set AK = Workbooks.Open(myPath & myFile)”这个再把b.xls打开了。。。。。
谢谢

Answer 1

在a.xls中新建一个模块，复制下面代码进去，
b.xls与a.xls放在同一文件夹中，置于要什么颜色，你自己改数字就得
还有一样要切记，把分给我！！

不要那句的话，直接省略它就可以了

Sub 合并单元格()
Dim myPath$, myFile$, ak As Workbook
Application.ScreenUpdating = False
myPath = ThisWorkbook.Path & "\"
myFile = Dir(myPath & "b.xls") '找寻当前文件所在文件夹中的b.xls文件
Workbooks.Open (myPath & myFile)
Range("A1:B2").Select
Selection.Merge '合并单元格

With Selection.Interior
.Color = 5287936 '设置背景颜色
End With

With Selection.Font
.Color = -16776961 '设置字体颜色
End With

Workbooks(myFile).Close True
End Sub

Answer 2

Workbooks("b.xls").ActiveSheet.Range("A1:B2").Select
Selection.Merge

如果想在不激活b.xls同时合并其单元格，可以用：
Workbooks("b.xls").ActiveSheet.Range("A1:B2").Merge