如何使用Python在Excel中添加超链接

pip install Spire.XLS

from spire.xls import *
from spire.xls.common import *
# 定义输入和输出文件路径
inputFile = "/input/文档.xlsx"
outputFile = "/output/AddHyperlinkToText.xlsx"
# 创建工作簿对象
workbook = Workbook()
# 从磁盘加载文档
workbook.LoadFromFile(inputFile)
# 获取第三个工作表
sheet = workbook.Worksheets[2]
# 添加网址链接
UrlLink = sheet.HyperLinks.Add(sheet.Range["D10"])
UrlLink.TextToDisplay = sheet.Range["D10"].Text
UrlLink.Type = HyperLinkType.Url
UrlLink.Address = "http://en.wikipedia.org/wiki/Chicago"
# 添加电子邮件链接
MailLink = sheet.HyperLinks.Add(sheet.Range["D11"])
MailLink.TextToDisplay = sheet.Range["D11"].Text
MailLink.Type = HyperLinkType.Url
MailLink.Address = "mailto:Amor.Aqua@gmail.com"
# 保存文件
workbook.SaveToFile(outputFile, ExcelVersion.Version2010)
workbook.Dispose()

from spire.xls import *
from spire.xls.common import *
# 定义输出文件路径
outputFile = "LinkToOtherSheetCell.xlsx"
# 创建工作簿对象并加载 Excel 文件
workbook = Workbook()
workbook.LoadFromFile("/input/文档.xlsx")
# 获取第三个工作表
sheet = workbook.Worksheets[2]
# 定义链接所在的单元格范围
range = sheet.Range["A1"]
# 在该范围添加超链接
hyperlink = sheet.HyperLinks.Add(range)
# 设置链接类型为工作簿内部链接
hyperlink.Type = HyperLinkType.Workbook
# 设置显示文本
hyperlink.TextToDisplay = "链接到 Sheet2 的 C5 单元格"
# 设置目标地址，格式为"工作表名!单元格地址"
hyperlink.Address = "Sheet2!C5"
# 保存文件
workbook.SaveToFile(outputFile, ExcelVersion.Version2010)
workbook.Dispose()

from spire.xls import *
from spire.xls.common import *
# 定义输入图片路径和输出文件路径
inputFile = "./Demos/Data/SpireXls.png"
outputFile = "AddImageHyperlink.xlsx"
# 创建工作簿对象
workbook = Workbook()
sheet = workbook.Worksheets[0]
# 添加描述文本
sheet.Columns[0].ColumnWidth = 22
sheet.Range["A1"].Text = "图片超链接示例"
sheet.Range["A1"].Style.VerticalAlignment = VerticalAlignType.Top
# 在指定位置插入图片（第2行，第1列）
picture = sheet.Pictures.Add(2, 1, inputFile)
# 为图片添加超链接
# 第二个参数设置为 True 表示在新窗口中打开链接
picture.SetHyperLink("https://www.e-iceblue.com/Introduce/excel-for-net-introduce.html", True)
# 保存文件
workbook.SaveToFile(outputFile, ExcelVersion.Version2010)
workbook.Dispose()

from spire.xls import *
from spire.xls.common import *
def CreateInteractiveDirectory(workbook: Workbook):
    """为工作簿创建交互式目录"""
    # 创建新的目录工作表作为第一个工作表
    directory_sheet = workbook.Worksheets.Add("目录", 0)
    # 设置标题
    directory_sheet.Range["A1"].Text = "文档目录"
    directory_sheet.Range["A1"].Style.Font.Size = 16
    directory_sheet.Range["A1"].Style.Font.IsBold = True
    row = 3
    # 遍历所有工作表（跳过目录本身）
    for i in range(1, workbook.Worksheets.Count):
        sheet = workbook.Worksheets[i]
        # 设置显示文本
        cell = directory_sheet.Range[f"A{row}"]
        cell.Text = sheet.Name
        # 添加超链接到对应工作表的 A1 单元格
        hyperlink = directory_sheet.HyperLinks.Add(cell)
        hyperlink.Type = HyperLinkType.Workbook
        hyperlink.Address = f"{sheet.Name}!A1"
        hyperlink.TextToDisplay = sheet.Name
        row += 1
    # 自动调整列宽
    directory_sheet.AllocatedRange.AutoFitColumns()
# 使用示例
workbook = Workbook()
workbook.LoadFromFile("./Data/多工作表文档.xlsx")
CreateInteractiveDirectory(workbook)
workbook.SaveToFile("./Data/带目录的文档.xlsx", ExcelVersion.Version2013)
workbook.Dispose()