这是代码的一部分
Dim lx_objectExcel As New Excel.Application
Dim lx_wrkBkSrc As Workbook
Dim lx_wrkShSrc as WorkSheet
'Using lx_objectExcel.Workbooks.Open WORKS but not Workbooks.Open
'lx_objectExcel.Workbooks.Open(Filename:=lv_path, ReadOnly:=True)
Set lx_wrkBkSrc = Workbooks.Open(Filename:=lv_path, ReadOnly:=True)
使用新实例
lx_objectExcel.Workbooks.Open(Filename:=lv_shrPath, ReadOnly:=True)
但是使用
Workbooks.Open(Filename:=lv_shrPath, ReadOnly:=True)
代码在打开文件后退出。虽然debuggig也没有进入下一行;虽然搜索somone已提到使用“Thisworkbook.Activate”,但代码甚至不进入下一行。 该文件的类型为“.xlsm” 打开时也不按Shift。我还将application.enableevents设置为false以防止任何宏运行。
p.s之前我问过这个问题,但由于我的质疑不好,没有合适的答案