HowtoopenfiledialogforsingleormultiplefilesinVBA(forexcel,word,etc)SubSelectFile()DimFileNameAsVariant'打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为VariantDimsFileNameAsString'从FileName中提取的文件名DimsPathNameAsString'从FileName中提取的路径名DimaFileAsVariant'数组，提取文件名sFileName时使用DimwsAsWorksheet'存储文件路径名和文件名的工作表Setws=Worksheets("Sheet1")'设置工作表FileName=Application.GetOpenFilename("Excel文件(*.xls),*.xls")'调用Windows打开文件对话框IfFileName<>FalseThen'如果未按“取消”键aFile=Split(FileName,"\")'在全路径中，以“\”为分隔符，分成数据sPathName=aFile(0)'取盘符Fori=1ToUBound(aFile)-1'循环合成路径名sPathName=sPathName&"\"&aFile(i)NextsFileName=aFile(UBound(aFile))'数组的最后一个元素为文件名ws.Cells(1,2).Value=sPathName'保存路径名ws.Cells(2,2).Value=sFileName'保存文件名EndIfEndSubVBA文件对话框的应用（VBA打开文件、VBA选择文件、VBA选择文件夹）在VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。用MicrosoftOffice提供的文件对话框比较方便。用法如下Application.FileDialog(fileDialogType)fileDialogTypeMsoFileDialogType类型，必需。文件对话框的类型。MsoFileDialogType可为以下MsoFileDialogType常量之一。msoFileDialogFilePicker允许用户选择文件。msoFileDialogFolderPicker允许用户选择一个文件夹。msoFileDialogOpen允许用户打开文件。用Excel打开。msoFileDialogSaveAs允许用户保存一个文件。分别举例如下：1、msoFileDialogFilePicker1）选择单个文件复制内容到剪贴板代码:SubSelectFile()'选择单一文件'www.okexcel.com.cnWithApplication.FileDialog(msoFileDialogFilePicker).AllowMultiSelect=False'单选择.Filters.Clear'清除文件过滤器.Filters.Add"ExcelFiles","*.xls;*.xlw".Filters.Add"AllFiles","*.*"'设置两个文件过滤器If.Show=-1Then'FileDialog对象的Show方法显示对话框，并且返回-1（如果您按OK）和0（如果您按Cancel）。MsgBox"您选择的文件是："&.SelectedItems(1),vbOKOnly+vbInformation,"智能Excel"EndIfEndWithEndSub2）选择多个文件复制内容到剪贴板代码:SubSelectFile()'选择多个文件'www.okexcel.com.cnDimlAsLongWithApplication.FileDialog(msoFileDialogFilePicker).AllowMultiSelect=True'单选择.Filters.Clear'清除文件过滤器.Filters.Add"ExcelFiles","*.xls;*.xlw".Filters.Add"AllFiles","*.*"'设置两个文件过滤器.Show'FileDialog对象的Show方法显示对话框，并且返回-1（如果您按OK）和0（如果您按Cancel）。Forl=1To.SelectedItems.CountMsgBox"您选择的文件是："&.SelectedItems(l),vbOKOnly+vbInformation,"智能Excel"NextEndWithEndSub2、msoFileDialogFolderPicker复制内容到剪贴板代