不打开excel文档，复制数据

哈哈哈道顶

各位大虾下
       出现这个格式错误，不知道如何解决？想向大家请教。
我原来在不手动打开excel：4预计进货.xls，就自动复制里面的数据。
因为这文档格式与excel，有不兼容，所以打开时会出现这个对话框。
搞到执行下面的代码卡着了。
       想请帮忙有哪个代码可以插进去，自动点了这个对话框为：是？
感谢！


Application.ScreenUpdating = False
    ThisWorkbook.Sheets("4预计进货").Range("A1:W50000").ClearContents
    Dim wb4 As Workbook
        Set wb4 = Workbooks.Open(ThisWorkbook.Path & "\4预计进货.xls")
    wb4.Sheets(1).[a1].AutoFilter
    wb4.Sheets(1).[a:o].Copy ThisWorkbook.Sheets("4预计进货").[a:o]
    wb4.Saved = True
    wb4.Close
    Application.ScreenUpdating = True

3190496160

这是文件损坏的提示呀，

哈哈哈道顶

3190496160 发表于 2023-5-19 15:32
这是文件损坏的提示呀，

点了“是”后，它就正常啦。其实是没有坏的。ERP直接导出来。首次打开都有这样的窗口提示。

哈哈哈道顶

终于网上找到了在， Workbooks.Open  里再加一下这个属性CorruptLoad:=XlCorruptLoad.xlRepairFile