Foxtable(狐表)用户栏目专家坐堂 → 有没 pdf 转 excel 的方法


  共有4264人关注过本帖树形打印复制链接

主题:有没 pdf 转 excel 的方法

帅哥哟,离线,有人找我吗?
ljh29206
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12195 威望:0 精华:0 注册:2012/3/5 11:32:00
有没 pdf 转 excel 的方法  发帖心情 Post By:2016/7/14 9:04:00 [显示全部帖子]

如题

最好能够通过引用 dll
实现

请教帮忙


或者如何读取 pdf 里面的数据
[此贴子已经被作者于2016/7/14 9:05:10编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ljh29206
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12195 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2016/7/14 9:44:00 [显示全部帖子]

  请教 我之前已经引用了一个 iTextSharp
  但直接 用 上述代码 转不了 提示错误。

  必须引用  上边链接的同名  iTextSharp  才可以读取 pdf

  怎么使到  iTextSharp  的 新旧 dll 能够并存呢

 我直接把新的  iTextSharp 改名为   iTextSharp1

  又提示命名空间错误

 回到顶部
帅哥哟,离线,有人找我吗?
ljh29206
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12195 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2016/7/14 10:40:00 [显示全部帖子]

如果 选择 新的DLL  ,把 旧的 删除了

 

以往的功能 旧报错!

 

未能加载文件或程序集“itextsharp, Version=4.1.6.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca”或它的某一个依赖项。找到的程序集清单定义与程序集引用不匹配。 (异常来自 HRESULT:0x80131040)

 

附件是我用 旧的DLL文件

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:itextsharp.zip

[此贴子已经被作者于2016/7/14 10:45:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ljh29206
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12195 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2016/7/14 10:50:00 [显示全部帖子]

袍哥帮忙在看下

 

就需要    PDFView.PrinterUtil.RenderDPI = 130     ‘  打印的 DPI 设置
        Dim obj1 As object = CreateObject("WScript.Network")


        obj1.SetDefaultPrinter("EPSON LQ-1600K IIIH ESC/P2")     ’指定打印机

 

            Dim pageCount1 As Integer = pdf.PageCount(fileName1)   '获取页码


            PDFView.PrinterUtil.PrintImagesToPrinter(fileName1,1,pagecount1, 1, False)    ‘打印

 

这几个功能

 

需求 把pdf 的张数判断出来, 并可以设置dpi ,还有根据张数 觉得 打印的页数 及数量。

 

另外还引用了

 PDFView

 PDFLibNet

 

 

 

及一个放在在 system32 里面的gsdll32.dll

 

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:出货系统.zip

[此贴子已经被作者于2016/7/14 10:54:35编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ljh29206
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12195 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2016/7/14 11:03:00 [显示全部帖子]

哦,这个是 以前 版主 帮忙搞的!

 

我也不懂怎么弄,

 

就是

需求 把pdf 的张数判断出来, 并可以设置dpi ,还有根据张数 决定 打印的页数范围 及数量。

 

这个有没其他的方法可以实现呢

 


 回到顶部
帅哥哟,离线,有人找我吗?
ljh29206
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12195 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2016/7/14 11:16:00 [显示全部帖子]

6楼 就是 久的那个文件 袍哥帮忙看看 谢谢咯

 回到顶部
帅哥哟,离线,有人找我吗?
ljh29206
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12195 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2016/7/14 11:48:00 [显示全部帖子]

再找到了例子说明

实在菜鸟 袍哥在帮忙指点下

二、引用动态链接库

    解压缩下载的PDFBox,找到其中的Bin目录,需要在项目中添加引用的dll文件有:
    IKVM.GNU.Classpath.dll
    PDFBox-0.7.3.dll
    FontBox-0.1.0-dev.dll
    IKVM.Runtime.dll


将以上4个文件引用到项目中,在文件中需要引入以下2个命名空间:
    using org.pdfbox.pdmodel;
    using org.pdfbox.util;


第一步 已经 进行了文件的引用

第二步 是在  命名空间了 写入

    using org.pdfbox.pdmodel;
    using org.pdfbox.util;

这2个内容 ?


第三步

c#  转 vb。net    已在网站哪里进行转换 ,但还是看不懂  改怎么改呢?


  1. using org.pdfbox.pdmodel;  
  2. using org.pdfbox.util;  

Public Sub pdf2txt(file As FileInfo, txtfile As FileInfo)
Dim doc As PDDocument = PDDocument.load(file.FullName)
Dim pdfStripper As New PDFTextStripper()
Dim text As String = pdfStripper.getText(doc)
Dim swPdfChange As New StreamWriter(txtfile.FullName, False, Encoding.GetEncoding("gb2312"))
swPdfChange.Write(text)
swPdfChange.Close()
End Sub


直接 第一步后 

Dim aa = "C:\Users\aaa\Desktop\工作簿1.pdf"

Dim doc As PDDocument = PDDocument.load(aa)

Dim pdfStripper As New PDFTextStripper()

Dim text As String = pdfStripper.getText(doc)

提示未声明


教程

http://blog.csdn.net/wangqiuyun/article/details/8548779


这个的命名空间怎么弄呢?


[此贴子已经被作者于2016/7/14 12:13:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ljh29206
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12195 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2016/7/14 13:42:00 [显示全部帖子]

点个赞!

袍哥 , 这个是怎么找到的 

找资料有什么好的方法 指导下!

 回到顶部