VBA сохранить путь дилемма

Question

У меня есть следующий код VBA:

Sub Button1_Click() 

Const SAVE_PATH = "S:\Divisional Support\RVU Programs\Payroll 2015\2015-01 January\Provider Performance PDF's" 

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

    Set wsSummary = Sheets("PERFORMANCE ANALYSIS") 

    For Each cell In Worksheets("MEMORIAL HOSPITAL OF YORK").Range("$A$200:$A$226") 
     If cell.Value <> "" Then 

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

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

    Set wsSummary = Nothing 
End Sub 

По некоторым причинам я не могу объяснить это не экономить на месте: S: \ дивизионного Support \ RVU Программа \ Payroll 2015 \ 2015-01 Январь \ результаты Провайдерa Performance PDF в

Вместо этого он бережет: S: \ дивизионный Support \ RVU Программы \ Payroll 2015 \ ПРОБНОЙ Папка для Райана

Любая помощь будет оценен по достоинству!

Answer 1

Вы не используете SAVE_PATH переменную в экспорте. Попробуйте:

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