VB弹出打开对话框，选择文件excel文件

Question

有这样一个思路，form1里有个command1，点击它就弹出一个“打开”对话框，像图那样的一个对话框，然后从电脑中选择我需要的excel文件，源代码怎样写？
PS：如果在command1里直接写打开某路径下的excel文件方式我会，现在需要的是有个“打开”对话框！提供示例追加分数

Answer 1

好吧，我来拿分，
VB6.0或者VBA中，对话框的命令是：Application.FileDialog(msoFileDialogOpen)
括号里的参数有几个，其中有另存为。。。等。
例子啊：
Dim Dia1 As Object ‘定义一个变量
Set Dia1 = Application.FileDialog(msoFileDialogOpen) ’变量设置为对话框
Dia1.Show ‘这就打开了一个“打开文件”对话框了。

如果你想设置其他的，比如窗口名字，筛选文件类别等，就只是用Dia1里的属性就行了。
什么，title啦，filters(筛选文件类别)等等。。。

如果是.net，就不是这个啦，不过也差不多，同样也是一个dialog，我猜你用command1应该是6.0吧。

给分给分~~~

Answer 2

引用common chart6然后会有一个commondialog控件，在命令按钮的事件里写，commonndialog1.filter=“.exl|*.exl”:commondialog1.showopen

Answer 3

额,两个问题一样的