jsp生成word,excle,pdf

本文介绍在OA系统中如何实现在客户端生成Word、Excel及PDF文档,并展示如何输出数据库中Blob字段存储的Word文档。

在web-oa系统中,公文管理好象不可或缺,有时需要从数据库中查询一些数据以某种格式输出来,并以word文档的形式展现,有时许多word文档保存到数据库中的某个表的Blob字段里,服务器再把保存在Blob字段中的图片文件展现给用户。通过网上查找发现很少有关于此类的文章,现在整理起来供大家参考。

1 在client端直接生成word文档
在jsp页面上生成word文档非常简单,只需把contentType=”text/html”改为contentType="application/msword; charset=gb2312"即可,代码如下:

通过设置可以使原来页面的内容在word中表现出来。
如果需要把word文档下载下来,只需在jsp页面上面加上如下代码:

其中filename.doc中filename是要下载的word文档的文件名,可以通过来自行定制,如下
.doc");
%>
这样提供一个提示信息供用户选择如下图所示
小技巧:如果程序员需要在生成word文档的时候按照自己预先在word上设计好的格式,可以复制word格式然后粘贴到frontpage中,取html代码贴到jsp页面即可。

2 在客户端输出存在数据库中的word实体
这里只讨论在client输出oracle中BLOB字段中的word文档实体。其中调用了类getBlobBean,该类提供了从oracle中取出blob功能,代码如下:
package yourpackage;
import javax.servlet.*;
import javax.servlet.http.*;
import java.io.*;
import java.util.*;
import oracle.sql.*;
import beans.yourbeanpackage. getBlobBean;
/**
 * 

Title: 


 * 

Description: 


 * 

Copyright: Copyright (c) 2004


 * 

Company: 


 * @author not attributable
 * @version 1.0
 */
public class GetBlobServlet1 extends HttpServlet {
//设置输出内容类型,这个设置很重要,否则客户端浏览器不能识别输出内容,导致弹出下载的对话框。
  private static final String CONTENT_TYPE = "application/msword;charset=gb2312";
  //Initialize global variables
  public void init() throws ServletException {
  }
  //Process the HTTP Get request
  public void doGet(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException {
    response.setContentType(CONTENT_TYPE);
    perform(request,response);
  }
  public void perform(HttpServletRequest request, HttpServletResponse response){
try{
//该类功能是从oracle哭中取出blob实体
      getBlobBean getBlob=new getBlobBean();
      OutputStream sos = response.getOutputStream();
      getBlob.connFunction();
oracle.sql.BLOB blob=getBlob.getBlob("cehui");
//输出word文档
if(blob!=null){
        InputStream pi = blob.getBinaryStream();
        int blobsize =(int)blob.length();
        byte[] blobbytes = new byte[blobsize];
        int bytesRead = 0;
        while ((bytesRead = pi.read(blobbytes)) != -1) {
          sos.write(blobbytes, 0, bytesRead);
        }
        pi.close();
        sos.flush();
        sos.close();
      }
      getBlob.dropConnFunction();
    }catch(Exception e){
      System.out.println(e.toString());
    }
  }
  //Clean up resources
  public void destroy() {
  }


3 在client端直接生成EXCEL文档







 


 


生成例子excel  。  用WORD排版面,倒出HTML 把代码拷贝到网页里,然后这个JSP页面打印你就随心所欲的控制了。 



4 在client端直接生成PDF文档
需要下载JAR包:以下代码在JDK1.4  RESIN2.16  下测试通过

ITEXT包  http://mesh.dl.sourceforge.net/sourceforge/itext/itext-1.3.5.jar
字体包 http://itext.sourceforge.net/downloads/iTextAsian.jar

JSP生成到客户IE端直接打开 


ie_PDF.jsp 


 
 



------------------------------- 


在服务器端生成不下载。 


server_PDF.jsp 


 
 



使用iText可以设置文字的字体,对于我们中国的程序员来说如何显示中文是最紧要的问题。幸好iText中有一个专门的包用来设置亚洲国家的字体你可以从 http://itext.sourceforge.net/downloads/iTextAsian.jar下载这个包。然后把它直接放到你的ClassPath中就可以了。如何设置字体呢?

BaseFont bfChinese = BaseFont.createFont("STSong-Light", "UniGB-UCS2-H", BaseFont.NOT_EMBEDDED);

Font FontChinese = new Font(bfChinese, 12, Font.NORMAL);

在上面的代码中设置了中文字体的显示,你只要使用下面的代码就可以包中文加到PDF中了

String title = "我爱喝咖啡";

Paragraph t = new Paragraph(title, FontChinese); 

doc.add(t);

 

<think>好的,我现在需要帮用户解决如何使用VBA将Excel数据导出到Word文档中的问题。首先,我得理清楚用户的需求。用户提到参考了三个引用,其中引用3提到用Excel明细数据生成多个Word文档,并且有字段替换的说明。用户可能希望根据Excel中的数据批量生成Word文档,每个文档对应一条数据记录,替换特定的字段。 接下来,我需要考虑VBA的实现步骤。首先,如何在Excel中连接Word对象。通常可以使用CreateObject("Word.Application")来启动Word应用,这样可以在后台运行,不显示界面。然后打开指定的Word模板文档,这需要知道模板的路径,用户可能需要提前准备好模板文件。 然后是读取Excel的数据。假设数据从第2行开始,第一行是标题,对应Word中的字段。例如,姓名、年龄等列,对应Word中的【姓名】、【年龄】等占位符。需要遍历每一行数据,对于每一行,替换模板中的占位符,生成新的Word文档并保存。 引用3中提到,模板中的字段需要用【列名】来标识,多条明细可能需要加“明细”后缀。比如颜色列在Word中是【颜色】明细。这里可能需要处理两种替换情况:普通字段和明细字段。普通字段直接替换,而明细字段可能需要处理多行数据,比如列表项。但用户的问题可能只需要基础的单条数据替换,所以可能先处理普通字段,如果有明细的话再考虑循环替换。 然后,具体到VBA代码,步骤大概是: 1. 初始化Word应用,打开模板。 2. 读取Excel中的数据区域,确定行数和列数。 3. 遍历每一行数据,复制模板内容,替换占位符。 4. 保存新生成Word文档,名称可能基于某个字段,比如姓名。 5. 最后关闭Word应用,释放对象。 需要注意错误处理,比如模板文件是否存在,Word是否成功打开等。此外,替换占位符时,需要遍历Word文档中的所有替换点,可能需要使用Word的查找替换功能,或者遍历文档的内容控件,如果使用的是内容控件的话。 另外,引用2提到使用FileSystemObject或ADODB,但这里可能更直接的是使用Word的对象模型来处理文档的生成和保存。代码中需要引用Word对象库,或者在VBA中后期绑定,使用CreateObject来避免引用问题。 用户可能需要示例代码,所以需要写出一个基本的框架,包括循环结构、替换文本的方法。例如,使用Range.Find方法在Word文档中查找【字段名】,然后替换为Excel中的对应值。 可能遇到的问题包括:替换时是否区分大小写,如何处理多个相同的占位符,以及文档保存的路径设置。需要确保保存路径存在,或者让用户自行指定。 最后,还需要考虑性能优化,比如关闭屏幕刷新,处理大量数据时的效率问题。但基本功能实现后,这些优化可以作为进阶建议。 总结步骤:连接Word,打开模板,循环数据,复制模板,替换文本,保存文档,清理资源。示例代码需要包括这些部分,并且添加注释说明关键步骤。同时,根据引用3的模板标记方式,确保字段替换正确。</think>### 分步实现Excel数据导出到Word文档的VBA方法 #### 1. 准备工作 - **Excel数据结构**:确保Excel中第一行为列标题(如“姓名”“年龄”),数据从第二行开始[^3]。 - **Word模板设计**:在Word模板中用`【列名】`标记占位符(例如`【姓名】`对应Excel的“姓名”列)。 #### 2. 核心代码实现 ```vba Sub ExportExcelToWord() Dim wdApp As Object, wdDoc As Object Dim ws As Worksheet Dim lastRow As Long, i As Long, j As Long Dim templatePath As String, savePath As String Dim fieldName As String '设置路径(需根据实际情况修改) templatePath = "C:\Template.docx" 'Word模板路径 savePath = "C:\Output\" '输出文件夹路径 Set ws = ThisWorkbook.Sheets("Sheet1") lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row '启动Word应用(隐藏界面) On Error Resume Next Set wdApp = GetObject(, "Word.Application") If Err.Number <> 0 Then Set wdApp = CreateObject("Word.Application") End If On Error GoTo 0 wdApp.Visible = False '遍历每一行数据 For i = 2 To lastRow '复制模板创建新文档 Set wdDoc = wdApp.Documents.Open(templatePath) wdDoc.Activate '替换所有占位符 For j = 1 To ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column fieldName = "【" & ws.Cells(1, j).Value & "】" With wdDoc.Content.Find .Text = fieldName .Replacement.Text = ws.Cells(i, j).Value .Wrap = 1 'wdFindContinue .Execute Replace:=2 'wdReplaceAll End With Next j '保存并关闭文档 wdDoc.SaveAs2 savePath & ws.Cells(i, 1).Value & ".docx" wdDoc.Close Next i '清理对象 wdApp.Quit Set wdDoc = Nothing Set wdApp = Nothing MsgBox "已生成 " & lastRow - 1 & " 个Word文档!" End Sub ``` #### 3. 关键说明 - **模板标记规则**:Excel列名“部门”对应Word中的`【部门】`,多行明细需标记为`【项目】明细`[^3]。 - **路径处理**:确保输出目录存在,文件名用第一列数据命名(例如`张三.docx`)。 - **错误处理**:通过`On Error Resume Next`避免重复打开Word导致的冲突。 #### 4. 进阶优化 - **性能提升**:添加`Application.ScreenUpdating = False`禁用屏幕刷新。 - **内容控件替换**:如果使用Word内容控件,可通过`ContentControl.Tag`定位字段[^2]。 - **批量导出PDF**:生成Word后调用`ExportAsFixedFormat`方法转PDF
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值