求助不管2003版还是200版或以上版本都行的代码需要如何修改

bbcc100

说明：我自己的版本是2003版本，当对方工作簿是2007或以上版本时，就不能打开，求助
我应该怎么修改？
代码如下：

    ThisWorkbook.Activate         
    Sheets("01 查簿名和表名").Select
    Dim rng As Range
    Fname = Range("E" & 5) & ".xls"
    Workbooks.Open (ThisWorkbook.Path & "\" & Fname)

小花鹿

按道理来讲，高版本应该兼容低版本

SCL5801

用2003版打开2007以上貌似要安装兼容包，安装了兼容包也容易出错，否则打不开。还是放弃2003吧。

shenjianrong163

没有附件吗?

lsc900707

1. Fname = Range("E" & 5) & ".xls*"

复制代码

bbcc100

lsc900707 发表于 2020-2-27 07:38

好的，谢谢，待会我测试。