2016版运行没有问题但是在一些电脑运行时出错，一些电脑又不会

327718098

Jared 发表于 2017-5-24 14:43
附件我也上传了，问题的关键是在我的电脑上运行没有问题，换到同事电脑上就出现了问题，就是激活工作簿和 ...

难怪，你的电脑路径和你同事的电脑路径是完全一样的吗，晕死
fpath = thisworkbook.path & " \"
    fname = Format(Date, "yyyymmdd") & "_US_OT_AMS.xlsx"
注意 date 返回的结果是今天的日期
还有你附件里没有代码

Jared

327718098 发表于 2017-5-24 15:24
难怪，你的电脑路径和你同事的电脑路径是完全一样的吗，晕死
fpath = thisworkbook.path & " \"
    fn ...

在同事电脑上的时候我有修改路径的 报错的是这两句代码，前面都没有问题，附件我重新上传了
Workbooks("US_OT_AMS系列监控表 -VBA模板").Activate
    Worksheets("old数据").Activate

Jared

最新附件

327718098

Jared 发表于 2017-5-24 16:42
最新附件

真不知道有些版本的ACTIVATE方法老是会错，我办公室的电脑也不行，我给你两种方法
Workbooks("US_OT_AMS系列监控表 -VBA模板").Activate这句改为
workbooks(1).activate
或windows("US_OT_AMS系列监控表 -VBA模板.xlsm").activate

Jared

327718098 发表于 2017-5-24 17:23
真不知道有些版本的ACTIVATE方法老是会错，我办公室的电脑也不行，我给你两种方法
Workbooks("US_OT_AMS ...

好的，谢谢你，请问workbooks(1).activate能激活USOT这个工作簿，因为打开的工作簿不止一个

327718098

Jared 发表于 2017-5-24 18:05
好的，谢谢你，请问workbooks(1).activate能激活USOT这个工作簿，因为打开的工作簿不止一个

你第一个打开osot这个工作簿就行，这是表示第一个打开工作簿，搞不清楚就用第二个方法