1、选择单个文件

Sub SelectFile()'选择单一文件'www.okexcel.com.cnWith Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False'单选择.Filters.Clear'清除文件过滤器.Filters.Add "Excel Files", "*.xls;*.xlw".Filters.Add "All Files", "*.*"'设置两个文件过滤器If .Show = -1 Then'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。MsgBox "您选择的文件是：" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"End IfEnd With
End Sub

2、选择多个文件

Sub SelectFile()'选择多个文件'www.okexcel.com.cnDim l As LongWith Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = True'单选择.Filters.Clear'清除文件过滤器.Filters.Add "Excel Files", "*.xls;*.xlw".Filters.Add "All Files", "*.*"'设置两个文件过滤器.Show'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。For l = 1 To .SelectedItems.CountMsgBox "您选择的文件是：" & .SelectedItems(l), vbOKOnly + vbInformation, "智能Excel"NextEnd With
End Sub

3、选择文件夹

Sub SelectFolder()'选择单一文件'www.okexcel.com.cnWith Application.FileDialog(msoFileDialogFolderPicker)If .Show = -1 Then'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。MsgBox "您选择的文件夹是：" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"End IfEnd With
End Sub

【办公-excel】VBA 选择文件、文件夹相关推荐

Excel·VBA模板生成文件
不同于<python实现Excel邮件合并>,字符串内容替换生成文件,仅复制整行数据插入模板中生成工作表,单独保存为工作簿,但如果存在同名工作簿文件,则将工作表附加在该工作簿中 Sub 模 ...
Excel VBA选择文件、高容错性地打开文件
VBA选择文件 Sub SelectFile() Dim FileName As Variant '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant D ...
用Excel VBA选择文件、打开文件
介绍如何用VBA选择文件和用VBA打开文件. 点击打开文件会弹出一个windows文件打开对话框,在EXCEL中VBA怎么实现这个功能? Sub SelectFile() Dim FileNa ...
vba 服务器上删除文件夹,Excel vba 如何操作文件夹的创建以及删除
前景提要之前我们在上一系列也是学了一些关于VBA创建文件夹的相关操作,我们是通过dir()方法来实现的,如果是简单的文件夹的创建的话,我们完全可以通过这个方法,但是在进行VBA代码执行的过程中,如果 ...
Excel VBA 批量转换文件夹下的xlsx文件为pdf（多文件多sheet）
可以在excel工作表中通过宏将一个文件夹中的所有xlsx或类似的表格文件批量转换为pdf文件,遍历每个工作表的每个sheet并逐一转换. Sub TO_PDF()On Error Resume Ne ...
Excel VBA获取当文件下级子目录或目录中文件
'====================================================================== '功能: 查找指定文件夹含子文件夹内所有文件名或文件夹名 ...
【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格（友好版）
上一篇文章我们提到:更好的处理方式就是读取将每一行,按照空格再分为不同的单元格代码实现如下: Sub bb() Dim a, b, k%, i%, j%, q% Open "a.txt&q ...
【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格
我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下: 1111 222 222 333 333 444 接着我们进行文件的读取,并且写入到Excel中,代码如下: Sub bb() ...
EXCEL VBA读取DXF文件
因业务要求,需要读取DXF文件开发环境:Excel 2013 Option ExplicitDim dxfFile As StringDim linesCount As Integer 'Start ...
Excel VBA 导入txt文件内容
Sub import_from_txt() '根据sheet1第一列的文件名导入txt文件的内容到之后的sheet中,每个文件一个sheetDim file_name As String, my_pa ...

【办公-excel】VBA 选择文件、文件夹

1、选择单个文件

2、选择多个文件

3、选择文件夹

【办公-excel】VBA 选择文件、文件夹相关推荐

最新文章

热门文章