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

按图所示：

用多级文件夹：打开D盘下面的d:/picture/

文件清单列姿激表：info_piclist.xls直接打开后复制到②对应的位置

设置保存路径：d:/image/为文件 *** 作后的移动后的储存位置

*** 举铅作方式用复制或者剪切，匹配方式选相同文件名

最后查找，就可以将文件迹答袜清单总库里的文件复制或者剪切到新的image里面去