从细胞选择保存路径

我有以下代码：从细胞选择保存路径

Const SAVE_PATH = "S:\Divisional Support\RVU Programs\Payroll 2015\2015-04 April\PDF's\Baptist Easley" 

'paste file destination in the above location' 

    Dim cell As Range 
    Dim wsSummary As Worksheet 
    Dim counter As Long 

    Set wsSummary = Sheets("PERFORM. SUM. - EASLEY") 

    For Each cell In Worksheets("NAME KEY").Range("$H:$H") 
     If cell.Value <> "" Then 

     'progress in status bar 
     counter = counter + 1 
     Application.StatusBar = "Processing file: " & counter & "/1042" 

     With wsSummary 
      .Range("$A$4").Value = cell.Value 
      .ExportAsFixedFormat _ 
        Type:=xlTypePDF, _ 
        Filename:=SAVE_PATH & "\" & cell.Value & ".pdf", _ 
        Quality:=xlQualityStandard, _ 
        IncludeDocProperties:=True, _ 
        IgnorePrintAreas:=False, _ 
        OpenAfterPublish:=False 
     End With 
     End If 
    Next cell 


    Set wsSummary = Nothing 
End Sub

我的问题很简单，而不必步入代码以更改它的保存位置：Const SAVE_PATH = "S:\Divisional Support\RVU Programs\Payroll 2015\2015-04 April\PDF's\Baptist Easley"

我想能够在单元格J2中发布该位置，我将如何编码？

来源

2015-05-28 user3666237

我希望能够在单元格J2中发布该位置，我将如何编码？

这很简单，其实

替换行

FileName:=SAVE_PATH & "\" & cell.Value & ".pdf"

与

FileName:=Thisworkbook.Sheets("Sheet1").Range("J2").Value & _ 
      "\" & cell.Value & ".pdf"

更改Thisworkbook和Sheet1到相关的工作簿或工作表。

来源

2015-05-28 20:28:21

这不就是改变它保存的名称吗？我想将宏指向我希望保存pdf的位置。 – user3666237

我假设单元格'J2'有'S：\ Divisional Support \ RVU Programs \ Payroll 2015 \ 2015-04 April \ PDF'\ Baptist Easley'' –

假设单元格'J2'包含完整路径到您想要的位置为了保存文件，这将完全符合你的要求。当然，危险在于'cell.value'指的是_currently active_cell，所以不知道文件名是什么。 – FreeMan

从细胞选择保存路径

回答

相关问题