Excel轉PDF的相關問題處理

1. 用的是jacob-1.18.jar, 

2. 選擇相應的 jacob-1.18-x64.dll 或jacob-1.18-x86.dll 放到3個地方,第一個是jdk/bin,第二個是jdk/jre/bin,第三個是C:\Windows\System32

3. 直接代碼了:

public static void excelToPdf(String excelFileName, String pdfFileName, int Orientation) {
		ComThread.InitSTA();
		ActiveXComponent app = new ActiveXComponent("Excel.Application");
		try {
			app.setProperty("Visible", new Variant(false));
			Dispatch workbooks = app.getProperty("Workbooks").toDispatch();
			Dispatch workbook = Dispatch.invoke(workbooks, "Open", 1, 
					new Object[] { excelFileName, new Variant(false),new Variant(false) }, 
					new int[3]).toDispatch();

			Dispatch currentSheet = Dispatch.get(workbook, "ActiveSheet").toDispatch();
			Dispatch page = Dispatch.get(currentSheet, "PageSetup").toDispatch();
			Dispatch.put(page, "PrintArea", false);
			Dispatch.put(page, "Orientation", Orientation);
			Dispatch.put(page, "PaperSize", Integer.valueOf(9));

			Dispatch.put(page, "Zoom", false);

			Dispatch.put(page, "FitToPagesTall", false);
			Dispatch.put(page, "FitToPagesWide", 1);
			Variant f = new Variant(false);
			String tempFile = "E:\\ZJN\\ZJN_FILES\\";
			File tempDir = new File(tempFile);
			if (!tempDir.exists()) {
				tempDir.mkdirs();
			}
			tempFile = tempFile + "temp.pdf";
			Dispatch.invoke(workbook, "SaveAs", Dispatch.Method, new Object[] { tempFile,
					new Variant(57), new Variant(false), new Variant(57),
					new Variant(57), new Variant(false), new Variant(true),
					new Variant(57), new Variant(true), new Variant(true),
					new Variant(true) }, new int[1]);
			
			File file = new File(tempFile);
			file.renameTo(new File(pdfFileName));
			file.delete();
			Dispatch.call(workbook, "Close", f);
		} catch (Exception e) {
			e.printStackTrace();
		} finally {
			if (app != null) {
				app.invoke("Quit", new Variant[0]);
			}

			ComThread.Release();
			System.gc();
			System.runFinalization();
		}
	}

我當時做到這裏,程序起來後總是報異常:

Source: Microsoft Office Excel  

Description: 類 Workbook 的 SaveAs 方法無效

網上查了很多,最後在高人的指點下,解決了問題


4. 重點來了,問題是這麼解決的:

下載office2007 能另存爲pdf的插件 SaveAsPDFandXPS.exe 安裝,也就是說要安裝SaveAsPDFandXPS.exe,就這個貨,坑死我了。

5. 好了,走起,成功。


洗洗睡了。

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章