По какой-то безбожной причине, когда я хочу сохранить как, я получаю "Метод 'Сохранить как' объекта '_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