Question

我有一个巨大的带有宏的excel文件，它在Windows上可以完美运行，但是在MacOs上会给我一个错误1004。有人可以帮助我翻译以下代码，使其在Macos上运行吗？或者实际上，有人可以将其翻译为可在Excel（Macos）上使用，因为我对编码绝对不了解。如果有人可以帮助我，则无需在Mac上安装Windows ：）

Sub SaveAsPdf(train)
    'On Error Resume Next
    'Windows(ThisWorkbook.Name).Activate

    Application.Goto reference:="date"
    days = Year(ActiveCell.Value) & Month(ActiveCell.Value) & Day(ActiveCell.Value)

    Application.Goto reference:="path"
    Path = ActiveCell.Value
    If Right(Path, 1) <> "\" Then
        Path = Path & "\"
    End If

    ws = "Train " & train & " Production schedule"

    Sheets(ws).Select
    Time_Stamp = Format(Now(), "yyyymmdd_HhNn")

    TNimi = Path & ws & Time_Stamp & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    TNimi, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

    ws = "General Schedule " & train
    fname = "General Schedule Train " & train
    Sheets(ws).Select
    Time_Stamp = Format(Now(), "yyyymmdd_HhNn")

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Path & fname & "_" & Time_Stamp & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

    Sheets("Break Plan Input").Select
End Sub

Sub SaveQSheet(train)
    Sheets("Break Plan Input").Select
    Application.Goto reference:="date"
    days = Year(ActiveCell.Value) & Month(ActiveCell.Value) & Day(ActiveCell.Value)

    Application.Goto reference:="path"
    Path = ActiveCell.Value
    If Right(Path, 1) <> "\" Then
        Path = Path & "\"
    End If
    Time_Stamp = Format(Now(), "yyyymmdd_HhNn")
    Sheets("Inspection and Sold Info").Select
    Sheets("Inspection and Sold Info").Copy
    Range("A2").Select
    ActiveWorkbook.SaveAs Filename:=Path & "Train " & train & " Inspection and Sold Info " & Time_Stamp & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Sheets("Break Plan Input").Select
End Sub

Path defined

Mac上的VBA Excel：打印/导出为PDF

0 个答案: