<em>excel</em> <em>VBA</em> 代码问题，显示语

Excel选项－信任中心－宏设置一下

Option Explicit

Sub AAA()
Dim i, j As Long    '这句最后一个变量后面没有逗号，而且应该这样写 dim i as long ,j as long
Dim Otype, Prate As String
Dim D As Date

    i = ActiveCell
    Otype = ActiveCell.Offset(0, -3)
    Prate = ActiveCell.Offset(0, -1)
     If Prate = "快单" Then
            '下面这句修改e799bee5baa6e997aee7ad94e59b9ee7ad94338如下
            j = WorksheetFunction.RoundUp((Worksheets("负荷统计").Cells(4, 7) + i) / Worksheets("负荷统计").Cells(10, 12), 0)
            If j < 6 Then
                D = Worksheets("订单明细").Cells(1, 2)
                Else  '修改
                D = Worksheets("订单明细").Cells(1, 2) + j - 6
            End If
            ActiveCell.Offset(0, 8) = D
            ActiveCell.Offset(0, 7) = D + 11
        Else  '修改
                '下面一句 修改
             j = WorksheetFunction.RoundUp((Worksheets("负荷统计").Cells(5, 7) + i) / Worksheets("负荷统计").Cells(10, 12), 0)
            If j < 6 Then
                D = Worksheets("订单明细").Cells(1, 2)
                Else '修改
                D = Worksheets("订单明细").Cells(1, 2) + j - 6
            End If
            ActiveCell.Offset(0, 8) = D
            ActiveCell.Offset(0, 7) = D + 11
        End If
        End Sub

这个不关VBA的事，是你Excel里面的数据问题，查看一下Excel里面的数量是来自于外部链接的

少打了一个zhidao&和一个"
正确的：版
ActiveWorkbook.SaveAs Filename:="P:\01 MCP operation\01 MCP Work Order\" & "12-" & ThisWorkbook.Sheets("c4").Value & "\" & ThisWorkbook.Sheets(1).Range("B3").Value & "-XL3_" & ThisWorkbook.Sheets(1).Range("B1").Value & "_" & ThisWorkbook.Sheets(1).Range("B2").Value & ".xlsx"
另外，这句ThisWorkbook.Sheets("c4").Value应该权是ThisWorkbook.Sheets("c4").range("???").value