VBA Excel中获取文件路径 - 不工作

Question

我一直在使用下面的代码在Excel中指定的文件夹路径：

Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker) 
diaFolder.AllowMultiSelect = False 
diaFolder.Show 

我会导出PDF文件（通过VBA代码），这条道路。当我在Windows XP上运行Excel 2007时，此代码完美无瑕。我最近升级了我的操作系统和办公版本，现在我的Excel 2010在Windows 7上运行。代码不再像以前那样工作，问题是每次运行代码时路径都会一直向上移动一个级别。

例如，假设我选择以下路径：

\users\AK\Desktop\Projects\ProjectM

实际的PDF文件被保存在\users\AK\Desktop\Projects\

如果我选择：\users\AK\Desktop\Projects\ PDF文件被保存在\users\AK\Desktop\

如果我继续运行代码，它会一直跳到一个级别，所以让我说我连续运行3次（没有选择我的路径）我的PDF文件将存储在：\ users \ AK \

我不知道它是一个Excel 2010问题或Windows 7问题。有没有人遇到过这个？

编辑：包括全码：

Private Sub CODERUN() 
    ' Define values 
    FN_A = Cells(2, 2).Value 

    ' Print PDF version 
    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker) 
    diaFolder.AllowMultiSelect = False 
    diaFolder.Show 

    ' Print PDF version 
    Sheets("Part A").Select 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=FN_A & "_A", _ 
            Quality:=xlQualityStandard, _ 
            IncludeDocProperties:=True, _ 
            IgnorePrintAreas:=False, _ 
            OpenAfterPublish:=False 
End Sub 

Answer 1

我明白你问什么，因为我已经打了同样的问题。我相信你的问题是，如果你运行你有的代码，然后在对话框中点击取消或确定，那么下次运行代码时，初始路径与前一个初始路径相距一个水平。发生这种情况的原因是因为对话框没有放在尾部\，然后截断到下一个\的路径。因此，每次使用对话框时，都会在路径中失去一个级别。

以下代码应该适用于您，并且您可以接受或取消，直到您的心在没有初始目录更改的情况下为止。

Private Sub CODERUN() 
    Dim sFilePath as String 

    ' Define values 
    FN_A = Cells(2, 2).Value 

    ' Print PDF version 
    With Application.FileDialog(msoFileDialogFolderPicker) 
     .AllowMultiSelect = False 
     If .Show = -1 Then 
      sFilePath = .SelectedItems(1) & "\" 
      .InitialFileName = sFilePath '<--Remove this line to see the problem 
     End If 
    End With 

    ' Print PDF version 
    Sheets("Part A").ExportAsFixedFormat Type:=xlTypePDF, filename:=sFilePath & FN_A & "_A", _ 
            Quality:=xlQualityStandard, _ 
            IncludeDocProperties:=True, _ 
            IgnorePrintAreas:=False, _ 
            OpenAfterPublish:=False 
End Sub