Excel пытается сохранить как PDF, используя значение ячейки для пути и имени файла

Question

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

Например: Путь: - D:\Collections\March\Region 1\ - Ссылка в ячейке D3

Имя файла: LN, FN (мм / дд / гг) - ссылка в ячейке D4

Значения, выделенные жирным шрифтом, меняются в зависимости от формул поиска в Excel. Текущий код, который я использую для сохранения.XLS это:

Sub SaveASXLS()

Dim FName As String
Dim FPath As String

FPath = "D:\Collections\March\Region 5\Cerritos"
FName = Sheets("Sheet1").Range("D4").Text
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName, FileFormat:=56

End Sub

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

И код, который я использую для экспорта файла в PDF:

Sub SavePDF()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("D4").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

Я использую оба отдельно один в качестве модуля и один базовый макрос, есть ли способ объединить обе эти функции вместе.

Большое спасибо заранее за вашу помощь.

Answer 1

Это прекрасно работает для меня

Option Explicit

Sub SaveASXLS()

Dim FName As String
Dim FPath As String

FPath = Range("E1").Value
FName = Range("I1").Value
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName, FileFormat:=56

End Sub

Использовать Value не text

Чтобы объединить их нужно позвонить им

Sub TwoMacros()
    SaveASXLS
    SavePDF
End Sub

Или позвоните одному из другого:

Option Explicit

Sub SaveASXLS()

Dim FName As String
Dim FPath As String

FPath = Range("E1").Value
FName = Range("I1").Value
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName, FileFormat:=56

SavePDF

End Sub