如何合并EXCEL单元格和设置单元格的宽度

Question

如何合并EXCEL单元格和设置单元格的宽度,本人想用代码实现好像平时手工一样设置EXCEL,有没有方法可以实现,谢谢

Answer 1

先贴上代码,本人是想用EXCEL作为报表打印,又不想预设模板
Set exlapp = New Excel.Application
 exlapp.Workbooks.Open App.Path & "\book1.xlt"
 rows = 4
 
  '将数据库信息添加到Excel表中
 
   
   With exlapp.Sheets(1)
   
   .Cells(1, 2) = "新会嘉窑陶瓷原料有限公司每日进矿分级统计及完工证记录表"
   .Cells(3, 1) = "客户"
   .Cells(3, 3) = "货物"
   .Cells(3, 5) = "进矿场地"
   .Cells(3, 7) = "等级"
   .Cells(3, 9) = "总重"
   .Cells(3, 11) = "车数"
   .Cells(3, 13) = "扣吨数"
   For i = 1 To Me.ListView1.ListItems.Count
   .Cells(rows, 1) = ListView1.ListItems.Item(i)
   .Cells(rows, 3) = ListView1.ListItems.Item(i).SubItems(1)
   .Cells(rows, 5) = ListView1.ListItems.Item(i).SubItems(2)
   .Cells(rows, 7) = ListView1.ListItems.Item(i).SubItems(3)
   .Cells(rows, 9) = ListView1.ListItems.Item(i).SubItems(4)
   .Cells(rows, 11) = ListView1.ListItems.Item(i).SubItems(5)
   .Cells(rows, 13) = ListView1.ListItems.Item(i).SubItems(6)
   rows = rows + 1
    Next
   End With
   
   With exlapp.Sheets(1)
        .Range(.Cells(3, 13), .Cells(rows, 1)).Borders.LineStyle = xlContinuous
        
    rows = rows + 1
    
    End With

Answer 2

合并 A1 和 B1 两格：
objSheet.Range("A1:B1").Merge列宽：
objSheet.Columns(1).ColumnWidth=50

Answer 3

还有LS请问一下objSheet是定义什么??

Answer 4

objsheet 就等同于你的 exlapp.Sheets(1)字体，居中什么的在 excel 中做一遍，录制成宏。然后查看宏代码，就知道怎么写了。