VBA脚本：Excel数据自动化导入Word文档

本篇VBA程序是关于如何将Excel数据转换成Word文档的自动化过程。通过编写一个名为"SubToWord"的宏，该宏主要在Excel环境中运行，实现了将工作簿中的每一行数据分别插入到一个新的Word文档中。以下是该程序的关键知识点： 1. **环境设置**： - 使用`VBA (Visual Basic for Applications)`编程语言编写，适用于Microsoft Office软件包，尤其是Excel。 - `wordApp`对象被声明为Word应用程序的实例，设置为隐藏模式（`wordApp.Visible=False`），这样程序运行时不会显示Word的界面。 2. **文件操作**： - 定义了变量`SaveFilePath`来保存Word文档的位置，根据当前工作簿路径创建一个名为“输出文件夹”的子目录，如果不存在则使用`MkDir`函数创建。 3. **遍历Excel数据**： - 使用`For`循环，从第2行开始（假设第一行是表头），遍历到工作表中最后一行已使用的单元格（`Worksheets(1).UsedRange.Rows.Count`）。 - 对于每行，首先获取单元格中的内容，如输入值(`str = Worksheets(1).Cells(r, 1).Value`)、输入字符串(`str_in`)和输出字符串(`str_out`)。 4. **创建Word文档**： - 在每次循环中，使用`wordApp.Documents.Add`创建一个新的Word文档。 - 插入包含输入和输出信息的段落，格式化为两段文本，中间使用换行符分隔。 5. **保存和关闭Word文档**： - 将处理后的数据写入Word文档，包括测试结果和期望结果的声明。 - 使用`SaveAs`方法保存文档，文件名由Excel表格的某一列内容（如`str`）决定，后缀为`.doc`。 - 在完成文档处理后，确保文档保存并关闭，通过`WordD.SaveAs`和`WordD.Close`语句实现。 6. **清理内存**： - 在循环结束后，释放与Word文档关联的对象，`SetWordD = Nothing`，以释放系统资源。 这个VBA程序的核心功能是批量处理Excel数据，并将其整合到多个独立的Word文档中，便于管理和查看。它展示了Excel宏的强大之处，可以自动化重复性任务，提高工作效率。然而，实际应用时可能需要根据具体需求进行调整，例如处理不同的数据格式、添加更多自定义内容或设置特定的文档结构。