如何在一个excel文件中通过vba来设置另一个excel文件中单元格的格式
比如我在a.xls文件中,如何用vba编码实现,选中b.xls文件中的A1到B2的区域,然后合并单元格,并设置背景色呢?我用下面的代码试过Range("A1:B2").S...
比如我在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打开了。。。。。
谢谢 展开
选中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打开了。。。。。
谢谢 展开
2个回答
展开全部
在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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |