使用XLSXApp对象修改XLSX文件工作表标签颜色

设置工作表标签颜色

添加按钮

双击添加代码

Private Sub Command5_Click()

Dim DoXLSX As XLSXApp

Dim SheetName As String

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

'修改工作表标签颜色

If DoXLSX.SetSheetTabColor("Sheet1", 255, 0, 0, Error) = False Then

MsgBox Error

Set DoXLSX = Nothing

Exit Sub

End If

DoXLSX.Save

'关闭XLSX文件

DoXLSX.Close

Set DoXLSX = Nothing

MsgBox "操作成功！"

End Sub

运行程序

XLSX表的变化

如图，工作表Sheet1标签的颜色已经变成红色