第一种办法:=CONCATENATE(A1,B1,C1)第二种办法:Private Sub CommandButton1_Click() Dim sfoder As String With Application.FileDialog(msoFileDialogFolderPicker) .Show '打开文件选择对话框 If .SelectedItems.Count Then TextBox1.Text = .SelectedItems(1) '将选中的文件夹名称赋给textbox1 sfoder = .SelectedItems(1) '将选中的文件夹名称赋给sfoder With Applicati...