请问下用workbooks.open打开有问题的EXCEL打不开，怎样可以强制打开？手动打开可以...

minren118

因为用VBA遍历文件，复制内容存放到数据库中，但发现这个文件需要修复的问题无法用代码强制打开，请问有什么参数设置后可以用workbooks.open打开或者用别的方式得到文件里的内容吗？文件格式是xls格式的。因为从网上下载下来的，可能有些文件有问题。

VBA打开提示错误

手动打开提示要修复，点击是还是可以打开的。

zmnyu

下面代码，可以检测打开时是否报错，如果报错，尝试用数据恢复状态打开，楼主可以试一下。

1. On Error Resume Next
   
2. 
   
3. Set Wb = Workbooks.Open(MyPath & MyName, UpdateLinks:=0, corruptload:=xlNormalLoad)
   
4. 
   
5. If Err <> 0 Then
   
6. 
   
7. Err.Clear
   
8. 
   
9. Set Wb = Workbooks.Open(MyPath & MyName, UpdateLinks:=0, corruptload:=xlExtractData)
   
10. 
    
11. End If
    
12. 
    
13. On Error GoTo 0

复制代码

minren118

看workbooks.open的文档，发现了一个参数可选corruptload，这个加上了就可以打开了，不过这里的第1个和第3个不知道有什么区别的呢？
顺便再问下，输入这些：Filename:=，corruptload:=有没有快捷的方法？输入这些没有关键词提示，还挺麻烦容易出错，是不是只要出现一次引用某个参数的方式用例如 corruptload:=这样引用，其它参数也一定要写上前面的引用名称，不能省略的？

Application.DisplayAlerts = False
Set wkb = Workbooks.Open(Filename:="d:\15517121.xls", corruptload:=xlRepairFile)
Application.DisplayAlerts = True

minren118

zmnyu 发表于 2016-6-30 10:39
下面代码，可以检测打开时是否报错，如果报错，尝试用数据恢复状态打开，楼主可以试一下。

刚刚我也捉摸了一下，发现有这个参数，感谢

硅谷少年

minren118 发表于 2016-6-30 10:48
看workbooks.open的文档，发现了一个参数可选corruptload，这个加上了就可以打开了，不过这里的第1个和第3 ...

我的经验是要么全省略，要么全写上。省略方式可以边按逗号边看黑体的引用名称位置，来判断当前输入的是哪个参数。我也没找到快捷输入这些引用名称的方法。

cuixiaodan

zmnyu 发表于 2016-6-30 10:39
下面代码，可以检测打开时是否报错，如果报错，尝试用数据恢复状态打开，楼主可以试一下。

你好，看到你这个帖子，非常有帮助，但现在有一个问题：

我有一个共享的工作薄，分为29个工作表，每个工作表给单独一个人操作，然后通过另一个带有VBA的工作表调用这个共享的工作薄，读入数据。但有时会出错，提示被锁定，或者提示发现部分内容有问题。。。，这样VBA就会停止工作。

使用你这个代码可以实现出错的情况下强制打开并修复，但如何才能自动另存再覆盖那个共享的工作表？我测试了你上面的代码，只能打开，然后手动另存覆盖，用saveas可以覆盖原文件，但不能打开（我需要电脑自动处理这些，不能让人再去干预）