vb程序中怎样用对话框选择需要打开的文件

也可以使用DirListBox 、 FileListBox和DriveListBox 这几个控件各一个

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

其中filelistbox 的pattern属性用于过滤文件扩展名，设为*.XLS，表示选择XLS文件

再用SET XLBOOK=XLAPP。WORKBOOKS.OPEN("" & Dir1.Path & "\" & File1.FileName & " ")

打开的。改的测试语句如下：

Private Sub Command1_Click()

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

'Set xlBook = xlApp.Workbooks.Open("D:\TEST.xls") '打开已经存在的EXCEL工件簿文件

Set xlBook = xlApp.Workbooks.Open("" &Dir1.Path &"\"模握裂 &File1.FileName &" ")

xlApp.Visible = True '设置EXCEL对象可见（或不可见）

Set xlsheet = xlBook.Worksheets("sheet1") '设置活动工作表

'Set xlBook = xlApp.Workbooks.Open("D:\TEST.xls") '怎样把这一句改成在系统中选择文件，而旦闭不是直接打开指定的文皮坦件

End Sub

在列表框中选择参考文件查询方法如下：

1、打开程序或应用程序，找到涉及到选择参考文件的功能模块。

2、根据提示，点击相应按钮或进入相应页面，打开文件选择对话框。

3、在文件选择对话框笑烂岩中，浏览文件目录，选择想要使用作为参考的文件。

4、点击“确定”或历笑“打开”等按钮，将所选文件添加至参考文件列表框中。

5、在程序或应用程序中对所选参考文件进行相应 *** 作，如查碰御看、修改、导入。

打开我的电脑闭棚渗>工具>文件夹选项>文件类型 在这个里面设置关联

至于和唯cad的图标 我的位置是d:\Program Files\AutoCAD 2007\acadficn.dll

你找到你的cad安装目录的acadficn.dll就轿脊行了

应该行的

---