Сохранить как макрос для активного листа

Question

Привет, я обнаружил ошибку при попытке выполнить эту vba. В основном я пытаюсь сохранить активный лист с приведенным ниже кодом.

Sub Button1_Click()

Dim varResult As Variant
Dim dirPath, fileName As String


dirPath = Application.ActiveWorkbook.Path
fileName = ActiveSheet.Range("J5").Value 'ActiveSheet.Name


Application.ScreenUpdating = False
Application.DisplayAlerts = False


varResult = Application.GetSaveAsFilename(FileFilter:= _
                 "Microsoft Excel 97-2003 Worksheet (.xls) (*.xls), *.xls", Title:="Save As", _
                InitialFileName:=dirPath & "\" & fileName)

ActiveWorkbook.Worksheets("CBC").SaveCopyAs fileName:=varResult

Application.DisplayAlerts = True
Application.ScreenUpdating = True


End Sub

Answer 1

Я не могу написать комментарий (слишком низкая репутация) в качестве ответа. Я думаю, что вы пытаетесь сохранить рабочий лист, но SaveCopyAs можно использовать только с объектом Workbook. Попробуйте следующее: Макрос, чтобы сохранить только активный лист