ExcelToWord--SpringBoot

1.导入依赖

        <dependency>
            <groupId>org.springframework.boot</groupId>
            <artifactId>spring-boot-starter-web</artifactId>
        </dependency>
        <dependency>
            <groupId>org.mybatis.spring.boot</groupId>
            <artifactId>mybatis-spring-boot-starter</artifactId>
            <version>2.3.0</version>
        </dependency>
        <!--EasyExcel-->
        <dependency>
            <groupId>com.alibaba</groupId>
            <artifactId>easyexcel</artifactId>
            <version>3.2.0</version>
        </dependency>

注意: 这里不需要导入poi依赖,easyexcel里已经存在了,如果导入poi,可能会发生版本冲突

 2.封装相应对象

@Data
public class ExcelToWordData {
    private Integer id;
    private String problem;
    private String answer;
    private String type;
    private String optionA;
    private String optionB;
    private String optionC;
    private String optionD;
}

3.将Excel表中数据写入到word文件中

package com.funian.utils;

import com.alibaba.excel.EasyExcel;
import com.alibaba.excel.context.AnalysisContext;
import com.alibaba.excel.event.AnalysisEventListener;
import com.funian.domain.ExcelToWordData;
import org.apache.poi.xwpf.usermodel.*;

import java.io.FileOutputStream;
import java.io.IOException;
import java.util.ArrayList;
import java.util.List;

/**
 * @program: SpringBoot_EasyExcel
 * @description:
 * @author: 伏念
 * @create: 2023-07-10 14:11
 **/
public class ExcelToWord {
    public static void main(String[] args) {
        String excelFilePath = "C:\\Users\\Administrator\\Desktop\\考试题库\\考试题库\\springboot.xls"; // 替换为你的 Excel 文件路径
        String wordFilePath = "C:\\Users\\Administrator\\Desktop\\考试题库\\考试题库\\springboot.doc"; // 替换为你的 Word 文件路径

        // 读取 Excel 数据
        List<ExcelToWordData> excelList = readExcel(excelFilePath);

        // 写入 Word 文档
        writeWord(excelList, wordFilePath);
    }

    // 读取 Excel 数据
    private static List<ExcelToWordData> readExcel(String excelFilePath) {
        List<ExcelToWordData> excelList = new ArrayList<>();
        EasyExcel.read(excelFilePath, ExcelToWordData.class, new UserDataListener(excelList)).sheet().doRead();
        return excelList;
    }

    // 写入 Word 文档
    private static void writeWord(List<ExcelToWordData> excelList, String wordFilePath) {
        XWPFDocument document = new XWPFDocument();

        XWPFParagraph paragraph = document.createParagraph();
        XWPFRun run = paragraph.createRun();
        //内容可根据需要修改
        run.setText("用户列表");
        run.setBold(true);
        run.setFontSize(16);

        Integer i = 1;

        for (ExcelToWordData user : excelList) {

            paragraph = document.createParagraph();
            run = paragraph.createRun();
            run.setText(i+"."+ user.getProblem());

            paragraph = document.createParagraph();
            run = paragraph.createRun();
            run.setText("答案:" + user.getAnswer());

            paragraph = document.createParagraph();
            run = paragraph.createRun();
            run.setText("选项A:" + user.getOptionA());

            paragraph = document.createParagraph();
            run = paragraph.createRun();
            run.setText("选项B:" + user.getOptionB());

            paragraph = document.createParagraph();
            run = paragraph.createRun();
            run.setText("选项C:" + user.getOptionC());

            paragraph = document.createParagraph();
            run = paragraph.createRun();
            run.setText("选项D:" + user.getOptionD());

            paragraph = document.createParagraph();
            run = paragraph.createRun();
            run.addBreak();

            i++;
        }

        try (FileOutputStream out = new FileOutputStream(wordFilePath)) {
            document.write(out);
            System.out.println("数据写入成功!");
        } catch (IOException e) {
            e.printStackTrace();
        }
    }


    // Excel 监听器
    public static class UserDataListener extends AnalysisEventListener<ExcelToWordData> {
        private List<ExcelToWordData> excelList;

        public UserDataListener(List<ExcelToWordData> excelList) {
            this.excelList = excelList;
        }

        @Override
        public void invoke(ExcelToWordData user, AnalysisContext context) {
            excelList.add(user);
        }

        @Override
        public void doAfterAllAnalysed(AnalysisContext context) {
            // 数据解析完成后的操作(这里不需要)
        }
    }
}

Excel:

 Word:

 

可以使用VBA宏来批量转换Excel文件为Word文件。具体步骤如下: 1. 在Excel中按下Alt+F11,打开VBA编辑器; 2. 在VBA编辑器中,单击菜单栏的“插入”选项,选择“模块”; 3. 在新建的VBA模块中输入以下VBA代码: Sub ExcelToWord() Dim objWord As Object Dim objExcel As Object Dim objWorkbook As Object Dim objDoc As Object Dim sExcelFile As String Dim sWordFile As String '设置Excel文件路径 sExcelFile = "C:\Excel文件夹\" '设置Word文件保存路径 sWordFile = "C:\Word文件夹\" '创建Word应用程序对象 Set objWord = CreateObject("Word.Application") '创建Excel应用程序对象 Set objExcel = CreateObject("Excel.Application") '禁用屏幕更新和警告信息 objWord.Visible = False objWord.DisplayAlerts = False objExcel.Visible = False objExcel.DisplayAlerts = False '循环遍历Excel文件夹中的所有文件 For Each objWorkbook In objExcel.Workbooks '打开Excel文件 objWorkbook.Open sExcelFile & objWorkbook.Name '将Excel文件内容复制到Word文档中 Set objDoc = objWord.Documents.Add objWorkbook.Sheets(1).Copy objDoc.Content.PasteExcelTable False, False, False objDoc.SaveAs sWordFile & Replace(objWorkbook.Name, ".xls", ".doc") objDoc.Close objWorkbook.Close False Next '释放对象 Set objDoc = Nothing Set objWorkbook = Nothing Set objExcel = Nothing Set objWord = Nothing End Sub 4. 将上述VBA代码复制到新建的VBA模块中; 5. 修改代码中的Excel文件和Word文件保存路径,并保存VBA模块; 6. 关闭VBA编辑器,并在Excel中按下Alt+F8,打开宏窗口; 7. 选择刚刚创建的ExcelToWord宏,并单击“运行”按钮,即可将Excel文件夹中的所有文件批量转换为Word文件。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值