使用Python实现在Excel工作表中添加、修改及删除超链接

from spire.xls import Workbook, HyperLinkType, FileFormat

# 创建Workbook实例
workbook = Workbook()

# 获取第一个工作表
sheet = workbook.Worksheets.get_Item(0)

# 添加一个网页超链接
cell1 = sheet.Range[2, 2]
webLink = sheet.HyperLinks.Add(cell1)
webLink.Type = HyperLinkType.Url
webLink.TextToDisplay = "网页超链接"
webLink.Address = "https://www.google.com"

# 添加一个邮箱地址超链接
cell2 = sheet.Range[4, 2]
emailLink = sheet.HyperLinks.Add(cell2)
emailLink.Type = HyperLinkType.Url
emailLink.TextToDisplay = "邮箱地址超链接"
emailLink.Address = "mailto:example@example.com"

# 添加一个外部文件超链接
cell3 = sheet.Range[6, 2]
fileLink = sheet.HyperLinks.Add(cell3)
fileLink.Type = HyperLinkType.File
fileLink.TextToDisplay = "外部文件超链接"
fileLink.Address = "C:\\Users\\Public\\Documents\\Example.pdf"

# 添加一个文档内部超链接
cell4 = sheet.Range[8, 2]
internalLink = sheet.HyperLinks.Add(cell4)
internalLink.Type = HyperLinkType.Workbook
internalLink.TextToDisplay = "文档内部超链接"
internalLink.Address = "Sheet2!A1"

# 添加一个UNC路径超链接
cell5 = sheet.Range[10, 2]
uncLink = sheet.HyperLinks.Add(cell5)
uncLink.Type = HyperLinkType.Unc
uncLink.TextToDisplay = "UNC路径超链接"
uncLink.Address = "\\\\server\\share\\file.txt"

# 设置字体并自动调整列宽
sheet.Range.Style.Font.FontName = "Arial"
sheet.Range.Style.Font.Size = 14
for i in range(sheet.Range.ColumnCount):
    sheet.AutoFitColumn(i + 1)

# 保存工作簿
workbook.SaveToFile("output/TextHyperlinkExcel.xlsx", FileFormat.Version2016)
workbook.Dispose()

from spire.xls import Workbook, FileFormat

# 创建Workbook实例
workbook = Workbook()

# 获取第一个预设工作表
sheet = workbook.Worksheets.get_Item(0)

# 添加图片到指定位置
picture = sheet.Pictures.Add(3, 2, "image1.jpg")

# 添加超链接到该图片
picture.SetHyperLink("https://www.bing.com/", True)

# 保存工作簿
workbook.SaveToFile("output/PictureHyperlinkExcel.xlsx", FileFormat.Version2016)
workbook.Dispose()

from spire.xls import Workbook, HyperLinkType

# 创建Workbook实例
workbook = Workbook()

# 载入Excel文件
workbook.LoadFromFile("output/TextHyperlinkExcel.xlsx")

# 获取第一个工作表
sheet = workbook.Worksheets.get_Item(0)

# 获取单元格并获取其超链接
cell = sheet.Range[2, 2]
hyperlink = cell.Hyperlinks.get_Item(0)

# 也可以直接从工作表超链接集合获取超链接
# hyperlink = sheet.HyperLinks.get_Item(0)

# 修改超链接的类型、地址和显示文本
hyperlink.Type = HyperLinkType.File
hyperlink.Address = "C:\\Documents\\Document.pdf"
hyperlink.TextToDisplay = "示例文档"

# 保存文件
workbook.SaveToFile("output/ModifyHyperlinkExcel.xlsx")
workbook.Dispose()

from spire.xls import Workbook

# 创建Workbook实例
workbook = Workbook()

# 载入Excel文件
workbook.LoadFromFile("output/TextHyperlinkExcel.xlsx")

# 获取第一个工作表
sheet = workbook.Worksheets.get_Item(0)

# 删除第一个超链接
sheet.HyperLinks.RemoveAt(1)

# 删除所有超链接
# sheet.HyperLinks.Clear()

# 保存工作簿
workbook.SaveToFile("output/RemoveHyperlinkExcel.xlsx")
workbook.Dispose()