如何处理用worksbooks.open打开excel文件时出现的对话框，如图所示对话框

lgq1001

请大侠指点一下，我在用worksbooks.open打开excel文件是出现错误，经分析发现是打开文件出现了如附件的对话框。用worksbooks.open怎么处理这些对话框，使文件能顺利打开。谢谢。

jy03342543

建议楼主上传附件

perfect131

解决方法

Application.DisplayAlerts = False
''打开 表格
Workbooks.Open "路径", corruptload:=xlRepairFile    ''打开
''set wt=Workbooks.Open("路径", corruptload:=xlRepairFile)    ''打开
''保存

''wk.SaveAs "路径", fileformat:=......
''wk.Close 1
   
Application.DisplayAlerts = True

perfect131

解决方案            

ykcbf1100

set wb=worksbooks.open(f,0)
这样试试

perfect131

ykcbf1100 发表于 2023-9-7 12:45
set wb=worksbooks.open(f,0)
这样试试

这个不行，0 是不更新打开。楼主是 修复及打开

jiangxiaoyun

看看文档，workbooks.open有好多个参数，总有一个满足你的。
如果满足不了，就用wps

lgq1001

perfect131 发表于 2023-9-7 12:40
解决方案

这个可以搞定。但是我在使用xlbook.close (true)关闭时出现另存为对话框，不知怎么解决。但可以使用xlbook.close (false)直接关闭。

lgq1001

perfect131 发表于 2023-9-7 12:40
解决方案

这个完美解决了。谢谢。但在使用关闭xlbook.close(true)时出现对话框需要手动另存为，这个怎么自动保存并关闭。在用xlbook.close(false)正常。

perfect131

lgq1001 发表于 2023-9-7 14:05
这个可以搞定。但是我在使用xlbook.close (true)关闭时出现另存为对话框，不知怎么解决。但可以使用xlboo ...

是在 DisplayAlerts = True 之前保存，这样