如何通过VB合并Excel单元格以及设置Excel行高？

Question

如题所述

Answer 1

引用Spire.XLS(需要先下载），

合并Excel单元格：

Dim workbook As New Workbook()

workbook.LoadFromFile("Sample.xlsx")

workbook.Worksheets(0).Rows(0).Merge()

workbook.Worksheets(0).Range("A3:B5").Merge()

workbook.SaveToFile("Merge.xlsx")

设置行高、列宽：

'创建Workbook对象

Dim wookbook As New Workbook()

Dim sheet As Worksheet = wookbook.Worksheets(0)

 

'设置列宽、行高

sheet.Columns(1).ColumnWidth = 15

sheet.Columns(3).ColumnWidth = 15

sheet.Columns(5).ColumnWidth = 15

sheet.Range("B3:B5").RowHeight = 15

sheet.Range("B7:B10").RowHeight = 50

'保存文档

wookbook.SaveToFile("TextAlignment.xlsx", FileFormat.Version2013)