У меня возникла проблема с сохранением нескольких рабочих листов в формате pdf. Я просмотрел этот сайт (и другие) и нашел аналогичный код тому, что я использовал. Тем не менее, код, который я модифицировал, чтобы более точно напоминать Save multiple sheets to .pdf и http://www.vbaexpress.com/kb/getarticle.php?kb_id=160 вместе.Сохранить рабочий лист как PDF
Однако, я столкнулся с ошибкой в моей последней строке «424: Object Required». Если бы вы могли направить меня в правильном направлении, это было бы очень признательно!
Sub SaveAs()
Dim Fname As String
Dim Fpath As String
Fname = Sheets("Sheet1").Range("FT5").Text 'The Cell I want to use as my file name
Fpath = "C:" 'my location
ThisWorkbook.Sheets(Array("Sheet 1", "Sheet 2")).Select 'My selected tabs
ActiveSheets.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=Fpath & "\" & Fname & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True 'My issue is with this line....
End Sub
Я выбрал ваш правильный ответ; однако просто удалить «s» с конца ActiveSheets было всем, что мне нужно было сделать. Спасибо, что помог мне с Питером! – user2437803
Полезно знать! На самом деле, снова посмотрев на ваш код, я бы рекомендовал просто объединить две последние строки в 'ThisWorkbook.Sheets (Array (« Лист 1 »,« Лист 2 »)). ExportAsFixedFormat (...' –
Спасибо, за давая мне знать, я могу это сделать! Я думаю, что я оставлю это так, как есть. Я хочу, чтобы иметь возможность легко редактировать свой массив! – user2437803