将pdf保存为具有多个单元的单元名称

我正在尝试保存一个名为info的信息的pdf，但名称涉及多个单元格。 单元格有input的公式，因为它们是从我的电子表格中的单独表格中拉出来的。 我怎么能这样做呢？ 这是在单元格中的公式，我想拉从PDF的名称：

=VLOOKUP('Work Order'!F26,'Fort McMurray File Services'!A2:AJ1515,6,FALSE) =VLOOKUP('Work Order'!F26,'Fort McMurray File Services'!A2:AJ1515,6,FALSE) 

这是我在vba中使用的代码：

 Private Sub filename_cellvalue() 'Update 20141112 Dim Path As String Dim filename As String Path = "C:\Users\meghan lewis\Desktop\MASS DEMO" filename = .Range("C7").Value & .Range("D7").Value & _ .Range("E7").Value & .Range("F7").Value & _ .Range("G7").Value & .Range("H7").Value & .Range("I7").Value ActiveWorkbook.SaveAs filename:=Path & filename & ".PDF", FileFormat:=xlNormal End Sub Sub SaveAsPDF() Dim fName As String With Worksheets("WORK ORDER") fName = .Range("C7").Value & .Range("D7").Value & _ .Range("E7").Value & .Range("F7").Value & _ .Range("G7").Value & .Range("H7").Value & _ .Range("I7").Value End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _ "C:\Users\meghan lewis\Desktop\MASS DEMO & fName", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub 

当我尝试保存时，将pdf保存为大量演示而不是从单元格拉出来。 请指教。

Answer 1

1. 你的代码如何编译？ 你有不合格的范围地址像.Range("C7").Value ， .Range("D7").Value等在Sub filename_cellvalue .Range("D7").Value

2. 在Sub SaveAsPDF() ，将"C:\Users\meghan lewis\Desktop\MASS DEMO & fName"更改为"C:\Users\meghan lewis\Desktop\MASS DEMO" & fName

报价中的fname将performance为一个String而不是一个variables。