Java 添加超链接到Excel文档

超链接即内容链接,通过给特定对象设置超链接,可实现载体与特定网页、文件、邮件、网络等的链接,点击链接载体可打开链接目标,在文档处理中是一种比较常用的功能。本文将介绍通过Java程序给Excel文档添加超链接的方法,这里支持添加多种不同类型的链接,如URL网页链接、Workbook工作簿链接、File文档链接、Unc网络路径链接等。

使用工具:Free Spire.XLS for Java (免费版)

注:通过官网下载包,并解压将lib文件夹下的jar文件导入java程序。如下导入效果:

Java代码示例

import com.spire.xls.*;

public class AddHyperlink {
    public static void main(String[] args) {
        //加载Excel文档
        Workbook wb = new Workbook();
        wb.loadFromFile("test.xlsx");
        //获取工作表
        Worksheet sheet = wb.getWorksheets().get(0);

        //添加URL链接,链接到网页地址
        HyperLink UrlLink = sheet.getHyperLinks().add(sheet.getCellRange("B3"));
        UrlLink.setTextToDisplay(sheet.getCellRange("B3").getText());
        UrlLink.getType().compareTo(HyperLinkType.Url);
        UrlLink.setAddress("https://www.baidu.com/");

        //添加URL链接,链接到邮件地址
        HyperLink MailLink = sheet.getHyperLinks().add(sheet.getCellRange("D3"));
        MailLink.setTextToDisplay(sheet.getCellRange("D3").getText());
        MailLink.getType().compareTo(HyperLinkType.Url);
        MailLink.setAddress("mailto: support @ e-iceblue.com");

        //添加File文档链接,链接到指定文档
        HyperLink FileLink = sheet.getHyperLinks().add(sheet.getCellRange("B7"));
        FileLink.setTextToDisplay(sheet.getCellRange("B7").getText());
        FileLink.getType().compareTo(HyperLinkType.File);
        FileLink.setAddress("E:\\IDEA\\sample.docx");

        // 添加Workbook文档链接,链接到工作簿文档(这里链接到测试文档中的指定sheet中的指定单元格)
        HyperLink WbLink = sheet.getHyperLinks().add(sheet.getCellRange("D7"));
        WbLink.getType().compareTo(HyperLinkType.Workbook);
        WbLink.setTextToDisplay(sheet.getCellRange("D7").getText());
        WbLink.setAddress("Sheet2!B5");

        //添加Unc链接,链接到网络路径
        HyperLink UncLink = sheet.getHyperLinks().add(sheet.getCellRange("B11"));
        UncLink.getType().compareTo(HyperLinkType.Unc);
        UncLink.setTextToDisplay(sheet.getCellRange("B11").getText());
        UncLink.setAddress("\\192.168.1.108");

        //保存文档
        wb.saveToFile("AddHyperlink.xlsx",ExcelVersion.Version2010);
        wb.dispose();
    }
}

文档超链接添加效果:

 

posted @ 2020-02-28 10:37  E-iceblue  阅读(1312)  评论(0编辑  收藏  举报