如何用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'--------------------------------------------------------'在文件对话框对中，选择一个文件。

打开的代码是：'''''''''''''''''''比如要保证TEXTBOX1的最后一个字符为"\"

Private Sub CommandButton1_Click()

x = TextBox1

For i = 1 To 1000

If i = 1 Then

nm = Dir(x &"*.*")

ListBox1.AddItem nm

If nm = "" Then

Exit For

End If

Else

nm = Dir

ListBox1.AddItem nm

If nm = "" Then

Exit For

End If

End If

Next

End Sub

'''''''''''''''''''针对另存为按钮，我不太明白你的意思了。你遍历了所有文件。但是所有的文件都需要另存？这个可能没有意义。你是否需要其他的表达方式？来实现另存为。如添加勾选？或者双击粘贴路径到第二个textbox2？你考虑好了，加我好友。告诉我。我再一一添加代码。

---