VBA保存path困境

我有以下的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：\分区支持\ RVU程序\ 2015年1月1日\工资支付表\

相反，它是保存：S：\分区支持\ RVU程序\工资2015年\瑞克的MOCK文件夹

任何帮助将不胜感激！

Answer 1

您不在导出部分使用SAVE_PATHvariables。 尝试：

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