With Application.FileDialog(msoFileDialogFolderPicker)
'Application.FileDialog(msoFileDialogFilePicker)
.Title = "选择保存位置..."
.ButtonName = "选择此文件夹"
If .Show = True Then
MyPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
Sheet1.Range("F7:P34").ExportAsFixedFormat xlTypePDF, MyPath & "\" & format(Sheet1.Range("o11").Value,"YYYY-MM-DD") & Sheet1.Range("H11").Value & ".pdf", , , False