如何用VBA打开选择文件和选择路径的对话框

'在文件对话框对中返回选择一个文件夹的路径.Public Function ChooseFolder() As StringDim dlgOpen As FileDialogSet dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)With dlgOpenIf .Show = -1 ThenChooseFolder = .SelectedItems(1)End IfEnd WithSet dlgOpen = NothingEnd Function'--------------------------------------------------------'在文件对话框对中，选择一个文件。

Sub SelectFile()

Application.DisplayAlerts = False

fil = ThisWorkbook.Name

Filename = Application.GetOpenFilename("Excel 文件 ,*.xls*.xlsx")

If Filename <>False Then

aFile = Split(Filename, "\")

sfilename = aFile(UBound(aFile))

End If

Workbooks.Open (Filename)

Workbooks(sfilename).Sheets(1).Cells.Copy Workbooks(fil).Sheets(1).Cells

Workbooks(sfilename).Close

Application.DisplayAlerts = True

End Sub

---