如何读取word、excel文件的页数呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何读取word、excel文件的页数呢？

共有4617人关注过本帖树形打印复制链接主题：如何读取word、excel文件的页数呢？

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/17 16:06:00 [显示全部帖子]

word：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=138473

execl：http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=144600

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/17 16:43:00 [显示全部帖子]

Dim Doc = app.Documents.Open(fileName)

Dim count = doc.Characters.Count

Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)

r("文件内容")=rng.Text

r("文件页数") = doc.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticPages, Nothing)

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/17 17:08:00 [显示全部帖子]

提示看是那一句代码出错

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/17 17:23:00 [显示全部帖子]

这个地方选其它文件可以正常保存？

到命令窗口直接测试下面代码有没有问题？

Dim r As Row = Tables("附件").AddNew()
r.Save '必须先保存
MessageBox.Show(1)
r.DataRow.SQLInsertFile("附件","手工填入文件路径") '插入文件 这个地方提示为未将对象引用设置到对象的实例
MessageBox.Show(2)

[此贴子已经被作者于2022/3/17 17:23:49编辑过]

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/17 17:37:00 [显示全部帖子]

Else If Values(1).Contains("doc") Or Values(1).Contains("docx") Then
        Dim app1 As New MSWord.Application
        try
            Dim fileName = fl
            Dim Doc = app1.Documents.Open(fileName)
            Dim count = doc.Characters.Count
            Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
            ss1=rng.Text
            ss2 = doc.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticPages, Nothing)
            output.show(ss2)
            app1.Visible = False
  doc.saved = True
        catch ex As exception
            msgbox(ex.message)
        finally
            app1.Quit
        End try
    End If

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/17 20:46:00 [显示全部帖子]

那就试试先保存二进制文件，再获取页数

下一主题 >> << 上一主题

主题：如何读取word、excel文件的页数呢？