vba - 为什么当我粘贴到另一个工作簿和 SaveAs 时 VBA 会给出对象错误

Question

出于某种不敬虔的原因，当我想 SaveAs 时，我得到一个“对象的方法 'SaveAs' _Workbook”。我知道这已经从堆栈溢出的多个角度进行了处理，但我就是无法理解。

我的代码非常简单。只需复制宏工作簿上（手动）选择的代码，然后从我的驱动器中打开一个无数据模板。然后我粘贴到范围“A2”中。我想另存为 ，但使用不同的名称，即今天的日期。

请指教，我几乎失去了所有希望。

该错误源于 saveas 方法。

Sub AutoEmail()

    Call trimFunction

    Dim sSaveFileName As String
    sSaveFileName = Format(Now(), "MM/DD/YYYY")

    Selection.Copy

    With Selection.Interior
             .Pattern = xlSolid
             .PatternColorIndex = xlAutomatic
             .Color = 10092543
             .TintAndShade = 0
             .PatternTintAndShade = 0
    End With

    Workbooks.Open Filename:="U:\FuturesClearing\Wires\Futures Wires Email _ 
        Templates\Brokerage to Futures TDA.xlsx"

    Worksheets("Sheet1").Range("A2").PasteSpecial Paste:=xlPasteValues

    ActiveWorkbook.SaveAs Filename:="U:\FuturesClearing\Wires\Futures Wires _ 
    Email Templates\Brokerage to Futures TDA " & sSaveFileName & ".xlsx"
End Sub

标签： vbasave-as