使用 VBA 将 Excel 工作表导出为 PDF

Question

我一直遇到错误9。

Dim SavePath    As String
Dim SaveAs      As String
Dim FileName    As String
Dim sDate       As String

'// Save it Path
SavePath = "P:\Price book\SQF Food Safety Management System\Records - Monitoring Forms\Production Records\"

'// File Name
FileName = " - Production Record"

'// Format the on "N2" to YYYY-MM-DD
sDate = Format(ThisWorkbook.Sheets("Sheet8").Range("N1"), YYY.MM.DD)

'// Save with File Name & Date & .pdf
SaveAs = sDate & FileName & ".pdf"
Application.DisplayAlerts = True

'// Export Active Sheet as pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
  SavePath & SaveAs

Application.DisplayAlerts = True

sDate 超出范围。

我想将工作表导出为 PDF，日期位于单元格 N1 中，最后是“-生产记录”。

Answer 1

请尝试以这种方式更改sDate定义行：

sDate = Format(ThisWorkbook.Sheets("Sheet8").Range("N1").value, "YYY.MM.DD")