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

Jared

各位大神，请问2016版激活工作簿的代码为什么在有些电脑运行没有问题，有些电脑又出问题（标颜色的代码出错）
   Sub 打开数据源()
    Dim fname As String
    Dim fnames As String
    Dim wb As Workbook
    Dim wb1 As Workbook
    Dim maxLineS As String
    Dim maxLine As String

    '打开新数据
    fpath = "C:\Users\Administrator\Desktop\US-OT\"
    fname = Format(Date, "yyyymmdd") & "_US_OT_AMS.xlsx"
    Set wb = Workbooks.Open(fpath + fname)

    '打开旧数据
    fnames = Format(Date - 1, "yyyymmdd") & "_US_OT_AMS.xlsx"
    Set wb1 = Workbooks.Open(fpath + fnames)

    '复制数据到old数据表
    wb1.Worksheets(1).Activate
    maxLineS = ActiveWorkbook.Sheets(1).Range("a1000000").End(xlUp).Row
    ActiveWorkbook.Sheets(1).Range("a2:m" & maxLineS).Select
    Selection.Copy
    Workbooks("US_OT_AMS系列监控表 -VBA模板").Activate
    Worksheets("old数据").Activate
    ActiveWorkbook.Sheets("old数据").Range("a2:m" & maxLineS).Select
    ActiveSheet.Paste

    'old数据表计算
    For x = 2 To maxLineS
        ActiveWorkbook.Sheets("old数据").Range("n2:n" & maxLineS) = Date - 1
        With ActiveWorkbook.Sheets("old数据")
        n = InStr(.Range("b" & x), ".")
        If n > 0 Then .Range("o" & x) = Left(.Range("b" & x), n - 1) Else .Range("o" & x) = "没有名字"
End With

Jared

大神们，帮帮忙

Jared

补充一下，文件都是直接复制过去的，不会有什么不同

Jared

出现的问题是下标越界

327718098

Jared 发表于 2017-5-22 14:53
出现的问题是下标越界

Workbooks("US_OT_AMS系列监控表 -VBA模板").Activate  没扩展名比如.xls,.xlsm

Jared

327718098 发表于 2017-5-22 15:27
Workbooks("US_OT_AMS系列监控表 -VBA模板").Activate  没扩展名比如.xls,.xlsm

拓展名怎么加进去，Workbooks("US_OT_AMS系列监控表 -VBA模板.xlsm").Activate？

france723

Jared 发表于 2017-5-22 15:38
拓展名怎么加进去，Workbooks("US_OT_AMS系列监控表 -VBA模板.xlsm").Activate？

1. Excel.Application.Workbooks("文件名.xlsm").Activate

复制代码

注意区分文件名内容是否正确(大小写, 特殊符号, 空格符号).

Jared

france723 发表于 2017-5-22 15:42
注意区分文件名内容是否正确(大小写, 特殊符号, 空格符号).

运行完出现错误，大神帮我看看

327718098

Jared 发表于 2017-5-22 16:53
运行完出现错误，大神帮我看看

在外面看看US_OT_AMS系列监控表 -VBA模板的扩展名是上面，鼠标右键---属性里面有
启用宏的模板(.xltm)
启用宏的工作簿（xlsm)
还有很多 单在工作簿的属性里面有，在不对传附件来看看

Jared

327718098 发表于 2017-5-23 13:57
在外面看看US_OT_AMS系列监控表 -VBA模板的扩展名是上面，鼠标右键---属性里面有
启用宏的模板(.xltm)
...

附件我也上传了，问题的关键是在我的电脑上运行没有问题，换到同事电脑上就出现了问题，就是激活工作簿和工作表出现问题