使用Python实现在Excel工作表中添加批注

pip install spire.xls.free

from spire.xls import Workbook, ExcelVersion
from spire.xls.common import *
# 创建工作簿
workbook = Workbook()
sheet = workbook.Worksheets[0]
# 写入示例数据
sheet.Range["A1"].Text = "产品名称"
sheet.Range["B1"].Text = "销售额（万元）"
sheet.Range["A2"].Text = "笔记本电脑"
sheet.Range["B2"].NumberValue = 120
sheet.Range["A3"].Text = "平板电脑"
sheet.Range["B3"].NumberValue = 85
sheet.Range["A4"].Text = "智能手表"
sheet.Range["B4"].NumberValue = 45
# 为单元格添加普通文本批注
sheet.Range["B4"].Comment.Text = "该产品销售额偏低，建议加强市场推广"
# 自动调整列宽
sheet.Range.AutoFitColumns()
# 保存文件
workbook.SaveToFile("SimpleComment.xlsx", ExcelVersion.Version2013)
workbook.Dispose()
print("普通文本批注已添加：SimpleComment.xlsx")

from spire.xls import Workbook, ExcelVersion, ExcelColors
from spire.xls.common import *

# 创建工作簿
workbook = Workbook()
sheet = workbook.Worksheets[0]

# 写入示例数据
sheet.Range["A1"].Text = "员工姓名"
sheet.Range["B1"].Text = "季度绩效"
sheet.Range["A2"].Text = "张明"
sheet.Range["B2"].Text = "优秀"

# 创建字体样式
font_green = workbook.CreateFont()
font_green.FontName = "Arial"
font_green.Size = 11
font_green.KnownColor = ExcelColors.Green

font_red = workbook.CreateFont()
font_red.FontName = "Arial"
font_red.Size = 11
font_red.KnownColor = ExcelColors.Red

# 添加富文本批注
sheet.Range["B2"].Comment.RichText.Text = "绩效评级：优秀，继续保持"
sheet.Range["B2"].Comment.RichText.SetFont(0, 4, font_green)  # "绩效评级："设为绿色
sheet.Range["B2"].Comment.RichText.SetFont(5, 6, font_red)      # "优秀"设为红色

# 自动调整列宽
sheet.Range.AutoFitColumns()

# 保存文件
workbook.SaveToFile("RichTextComment.xlsx", ExcelVersion.Version2013)
workbook.Dispose()
print("富文本批注已添加：RichTextComment.xlsx")

from spire.xls import Workbook, ExcelVersion, ExcelColors
from spire.xls.common import *

# 创建工作簿
workbook = Workbook()
sheet = workbook.Worksheets[0]

# 写入示例数据
sheet.Range["A1"].Text = "项目阶段"
sheet.Range["B1"].Text = "完成状态"
sheet.Range["A2"].Text = "需求分析"
sheet.Range["B2"].Text = "已完成"
sheet.Range["A3"].Text = "系统设计"
sheet.Range["B3"].Text = "进行中"

# 为单元格添加带作者的批注
range_cell = sheet.Range["B3"]
author = "李工程师"
text = "预计下周完成设计文档初稿"

comment = range_cell.AddComment()
comment.Width = 200
comment.Visible = True
comment.Text = author + ":\n" + text

# 为作者名称设置加粗字体
font = workbook.CreateFont()
font.FontName = "Tahoma"
font.KnownColor = ExcelColors.Black
font.IsBold = True
comment.RichText.SetFont(0, len(author), font)

# 自动调整列宽
sheet.Range.AutoFitColumns()

# 保存文件
workbook.SaveToFile("CommentWithAuthor.xlsx", ExcelVersion.Version2013)
workbook.Dispose()
print("带作者的批注已添加：CommentWithAuthor.xlsx")

from spire.xls import Workbook, ExcelVersion
from spire.xls.common import *

# 创建工作簿
workbook = Workbook()
sheet = workbook.Worksheets[0]

# 写入示例数据
sheet.Range["A1"].Text = "产品编号"
sheet.Range["B1"].Text = "产品名称"
sheet.Range["A2"].Text = "PRD-001"
sheet.Range["B2"].Text = "旗舰手机"

# 添加图像批注
comment = sheet.Range["B2"].AddComment()

# 加载图片并设置为批注背景
image_path = "product_image.png"  # 图片文件路径
image_stream = Stream(image_path)
comment.Fill.CustomPicture(image_stream, "product_image.png")
comment.Visible = True

# 自动调整列宽
sheet.Range.AutoFitColumns()

# 保存文件
workbook.SaveToFile("ImageComment.xlsx", ExcelVersion.Version2010)
workbook.Dispose()
print("图像批注已添加：ImageComment.xlsx")

from spire.xls import Workbook, ExcelVersion, ExcelColors, ShapeFillType
from spire.xls.common import *

# 创建工作簿
workbook = Workbook()
sheet = workbook.Worksheets[0]

# 写入示例数据
sheet.Range["A1"].Text = "任务名称"
sheet.Range["B1"].Text = "优先级"
sheet.Range["A2"].Text = "数据库优化"
sheet.Range["B2"].Text = "高"

# 添加批注并设置填充颜色
range_cell = sheet.Range["B2"]
range_cell.Comment.Text = "需要在月底前完成，涉及核心业务模块"

# 设置批注字体
font = workbook.CreateFont()
font.FontName = "Arial"
font.Size = 11
font.KnownColor = ExcelColors.Orange
range_cell.Comment.RichText.SetFont(0, len(range_cell.Comment.Text) - 1, font)

# 设置批注填充颜色
range_cell.Comment.Fill.FillType = ShapeFillType.SolidColor
range_cell.Comment.Fill.ForeColor = Color.get_SkyBlue()
range_cell.Comment.Visible = True

# 自动调整列宽
sheet.Range.AutoFitColumns()

# 保存文件
workbook.SaveToFile("ColoredComment.xlsx", ExcelVersion.Version2013)
workbook.Dispose()
print("彩色批注已添加：ColoredComment.xlsx")