huanghyy 发表于 2017-4-15 12:44:42

通达2013如何执行里边的宏

本帖最后由 huanghyy 于 2017-4-15 12:47 编辑

通达2013如何执行里边的宏
在电脑打开excel可以正常执行宏命令，但是上传到OA的公共文件柜里边，在线编辑的话，就无法正常执行宏命令，在线编辑的时候打开excel已经点击开启宏功能了。最后1步的保存无法实现。

宏命令如下：
Sub 更新()
   
    '复制分表至总表
    On Error Resume Next
    Sheet1.Rows("4:" & Rows.Count).ClearContents
    Dim wks As Worksheet
    For Each wks In ThisWorkbook.Worksheets
      With wks
            If .Name <> Sheet1.Name Then
            If .AutoFilterMode = True Then .AutoFilterMode = False
                Intersect(.Cells(Rows.Count, 1).End(xlUp).CurrentRegion, .Rows("4:" & Rows.Count)).Copy _
                Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
                .Rows("3:3").Select
                .AutoFilterMode = True
            End If
      End With
   Next wks
   
    '冻结标题
    Range("i4").Select
    ActiveWindow.FreezePanes = True
   
    '排序
    Sheet1.Rows("4:3000").Select
    Sheet1.Sort.SortFields.Clear
   Sheet1.Sort.SortFields.Add(Range("H4:H3000"), _
      xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _
      192, 0)
    Sheet1.Sort.SortFields.Add Key:=Range("H4:H3000"), _
      SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("生产委托").Sort
      .SetRange Range("A4:AZ3000")
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
    End With
   
   '删除未委托项
    Sheet1.Select
    r = .End(xlUp).Row
    For i = r To 4 Step -1
      If Sheet1.Cells(i, 9) = 0 Then Sheet1.Rows(i).Delete
    Next
   
'保存
    ActiveWorkbook.Save
    ActiveWorkbook.SaveAs Filename:="\\ser01\公用盘\生产情况跟踪\备份\" & Format(Date$, "yyyy-mm-dd") & ".xls"
    ActiveWorkbook.SaveAs Filename:="\\ser01\公用盘\生产情况跟踪\生产情况跟踪表.xls"
   
End Sub

通达程庆 发表于 2017-4-17 17:14:50

您好，OA在线编辑的时候是调用的第三方的NTKO的安全控件，那些是不支持您这些安全代码函数的。

huanghyy 发表于 2017-4-18 11:12:45

通达程庆 发表于 2017-4-17 17:14
您好，OA在线编辑的时候是调用的第三方的NTKO的安全控件，那些是不支持您这些安全代码函数的。 ...

那在线编辑状态下，能不能实现备份当前文件到本地电脑或者网络的路径？

通达程庆 发表于 2017-4-18 17:37:12

huanghyy 发表于 2017-4-18 11:12
那在线编辑状态下，能不能实现备份当前文件到本地电脑或者网络的路径？ ...

您好，不能

huanghyy 发表于 2017-4-19 10:48:35

通达程庆 发表于 2017-4-18 17:37
您好，不能

好吧，谢谢了！
页: [1]
查看完整版本: 通达2013如何执行里边的宏