Foxtable(狐表)用户栏目专家坐堂 → 为何不能执行目录检测?


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

主题:为何不能执行目录检测?

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


加好友 发短信
等级:小狐 帖子:362 积分:4236 威望:0 精华:0 注册:2017/2/7 7:41:00
为何不能执行目录检测?  发帖心情 Post By:2020/9/20 23:11:00 [只看该作者]

想学习读取WORD文件的内容,搜索到论坛已有相关资料,按
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=71352
这个话题的第4楼代码去操作,却不能执行目录检测命令,具体代码如下:
(执行到输出1后就出错:未指定的错误 (Exception from HRESULT: 0x80004005 (E_FAIL)))
测试环境为FT2020试用版

Dim dlg As new OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim app As New MSWord.Application
    try
MessageBox.Show("1")
        If FileSys.DirectoryExists(ProjectPath & "Attachments") = False Then
MessageBox.Show("2")
            FileSys.CreateDirectory(ProjectPath & "Attachments/")
        End If
        For Each filename As String In dlg.FileNames
            
            Dim doc = app.Documents.Open(fileName)
            Dim nr As Row = Tables("个人信息表").AddNew
            Dim t = doc.Tables(1)
            Dim text = t.Cell(1, 2).Range.Text.ToString()
            text = text.Substring(0, text.Length - 2)
            nr("姓名") = text
            '-------------
            app.ActiveWindow.Selection.WholeStory
            For Each shape As object In app.ActiveWindow.Selection.InlineShapes
                If shape.Type = MSWord.WdInlineShapeType.wdInlineShapePicture
                    Dim img As Byte() = shape.Range.EnhMetaFileBits
                    Dim bmp As new Bitmap(new IO.MemoryStream(img))
                    bmp.Save(ProjectPath & "Attachments/" & nr("姓名") & ".jpg")
                End If
            Next
            nr("相片") = nr("姓名") & ".jpg"
            Doc.Close
        Next
    catch ex As exception
        msgbox(ex.message)
    finally
        app.Quit
    End try
End If

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:读取word表格.table



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/21 8:34:00 [只看该作者]

我测试没有问题。

卸载重新安装一下office,需要安装完整版的,最好是32位版本。不能安装精简版、绿色版的。一般Ghost系统自带的都是精简版

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


加好友 发短信
等级:小狐 帖子:362 积分:4236 威望:0 精华:0 注册:2017/2/7 7:41:00
  发帖心情 Post By:2020/9/21 9:45:00 [只看该作者]

是其他原因(测试的word文档表格不对)

 回到顶部