设置XLSX文件的列宽和行高-SystemExcel库使用教程

使用XLSXApp对象修改XLSX文件，Sheet1的列宽和行高

设置列宽

打开工程，添加按钮，标题改成设置列宽

双击按钮，添加如下代码

Private Sub Command2_Click()
Dim DoXLSX As XLSXApp
Dim Error As String

Set DoXLSX = New XLSXApp

'打开XLSX文件
If DoXLSX.Open("Test1.xlsx", Error) = False Then
MsgBox Error
Set DoXLSX = Nothing
Exit Sub
End If

'选择Sheet1
If DoXLSX.SelSheet("Sheet1", Error) = False Then
DoXLSX.Close
Set DoXLSX = Nothing
MsgBox Error
Exit Sub
End If

'设置列宽
DoXLSX.SetColWidth 1, 30

'关闭XLSX文件
DoXLSX.SaveAs "Test2.xlsx"
DoXLSX.Close
Set DoXLSX = Nothing
End Sub

运行

点击设置列宽

Test2.xlsx文件内容

第一列宽度发生了变化

设置行高

打开工程，添加按钮，标题改成设置行高

双击按钮，添加如下代码

Private Sub Command1_Click()
Dim DoXLSX As XLSXApp
Dim Error As String

Set DoXLSX = New XLSXApp

'打开XLSX文件
If DoXLSX.Open("Test1.xlsx", Error) = False Then
MsgBox Error
Set DoXLSX = Nothing
Exit Sub
End If

'选择Sheet1
If DoXLSX.SelSheet("Sheet1", Error) = False Then
DoXLSX.Close
Set DoXLSX = Nothing
MsgBox Error
Exit Sub
End If

'设置行高
DoXLSX.SetRowHeight 1, 60

'关闭XLSX文件
DoXLSX.SaveAs "Test2.xlsx"
DoXLSX.Close
Set DoXLSX = Nothing
End Sub