Question

我正在尝试在单元格中保存名称为info的pdf，但名称涉及多个单元格。单元格输入公式，因为它们是从我的电子表格中的单独表格中提取的。我怎么能这样做？这是单元格中的公式，我想从中提取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

您的代码如何编译？您在.Range("C7").Value

.Range("D7").Value

Sub filename_cellvalue

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

fname将表现为String，而不是变量。

将pdf保存为包含多个单元格的单元名称

1 个答案: