我在VB中打开了一个Excel文档,现在想合并单元格该如何操作,语句又该怎么写了!
Set ObjWorkbook = ObjExcel.Workbooks.Add
Set MySheet = ObjWorkbook.activesheet
MySheet.Rang(MySheet.cells(1, 1), MySheet.cells(1, 20)).MergeCells = True
是这样吗,但不对,主要是Excel的选中不知该如何表示了,请大侠们帮帮忙?

解决方案 »

  1.   

    Range("A1:A20").Select
        With Selection
            .MergeCells = True
        End With
      

  2.   

    建议参考OFFICE自带的Visual Basic帮助,里面比较详细
      

  3.   

    通过Excel的VBA记录器自动生成的代码,稍做修改即可放在VB中使用。
      

  4.   

    VBA是不是宏记录器了,我生成了便,但拷到VB处不可用,也不知该怎么修改了?
      

  5.   

    各位,可能还没明白我的意思,Range("A1:A20").Select,这样选中的行列是定死的,现在我的报表的列是动态生成的,也就是不知有多宽,有可能5列,也有可能20列,试问这样该如何Range了,难道写个函数把数字转换成A,B,C,那又怎么转了!