Как сохранить лист и PDF в VBA

Я создал рабочую книгу, в которой будет диаграмма для ввода данных и сохраненная в той же рабочей книге. Мне удалось создать путь сохранения, в котором будет храниться файл PDF, но мне также нужен код для сохранения листа в той же книге в качестве продолжения в том же коде.

Это то, что я придумал до сих пор только для сохранения в формате PDF.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:" & Range("H60").Value & Format(Date, "ddmmyyyy")

Если бы кто-то мог мне помочь, был бы очень признателен.


excel excel-formula vba
person Earndilz    schedule 18.05.2020    source источник
comment
Можете ли вы объяснить, что вы подразумеваете под сохранением листа в той же книге в качестве продолжения?   -  person BigBen    schedule 18.05.2020
comment
Что есть в H60? Путь к файлу (т. е. имя папки и т. д.) или имя файла?   -  person Steven Byrne    schedule 18.05.2020
comment
Что вы подразумеваете под в которой будет диаграмма для ввода данных и хранения в той же книге? Вы действительно имеете в виду диаграмму здесь? Диаграмма — это графика, и вы не можете вводить туда данные. Вы имеете в виду форму? Или даже пользовательская форма?   -  person Pᴇʜ    schedule 18.05.2020
comment
Возможно, это поможет: подпапки папки и дополнительные подпапки"> stackoverflow.com/questions/61060302/   -  person Steven Byrne    schedule 18.05.2020
comment
Извините за мою плохую формулировку. В диаграмме я имею в виду таблицу. Таблица содержит ячейки, которые будут заполнены такой информацией, как имена, описания, время и т. д. Поэтому в основном я хочу, чтобы таблица сохранялась двумя способами. Первый внешний по определенному пути в виде файла PDF и в той же книге, где будет моя таблица. Я добавил кнопку, которая удаляет все заполненные ячейки и повторно использует таблицу для следующего проекта. Таким образом, в конце у меня будет один файл excel с сохраненными данными, а по внешнему пути у меня будет таблица в формате PDF. Надеюсь, описание поможет еще немного :)   -  person Earndilz    schedule 19.05.2020

Ответы (1)


arrow_upward
0
arrow_downward

Предположим, что путь находится на листе1

dim path as string 'path variable that stores the path

path="D:" & sheet1.Range("H60").Value & Format(Date, "ddmmyyyy")

'sheets to export
'they must be selected before exporting.
'ThisWorkbook.Sheets(Array("Sheet1", "Sheet2",...)).Select

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= path, _
     Quality:= xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True

Я надеюсь, что это поможет вам

person merlinkes    schedule 18.05.2020