用vba打开浏览框选择文件就可以了

Sub abc()    With Application.FileDialog(msoFileDialogFilePicker)        .AllowMultiSelect = False        If .Show = -1 Then            myfile = .SelectedItems(1)        End If    End With    Workbooks.Open myfileEnd Sub

打开工作簿后需要如何操作就可以自己发挥了。

需要选择工作表搞个窗体也是很简单的，注：工作表名称不管如何变化均会自动导入复合框

A1单元格自动创建数据有效性

msgbox达不到你想要的效果，除非你做一个窗口加上文本框。其实我一般是这样处理的，建立一个工作表，将程序运行所要查询的条件设置在表中，再根据这些条件进行编程。比如你这个问题，就是建立一个表，例如是sheet1的[A1]是本次程序运行所需的工作表名称，设置好后，运行程序，就是对该工作表名称对应的工作表的内容进行修改。跟程序运行过程中使用选择选取是一样的。