使用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标签的颜色已经变成红色
,Copyright © 2008-2022 秒下下载站
m.down10s.com .All Rights Reserved