VBA：Application.GetOpenFilename打开指定文件夹里的excel类型文件（xls、xlsx）

最新推荐文章于 2024-10-22 20:38:53 发布
原创 最新推荐文章于 2024-10-22 20:38:53 发布 · 4.7k 阅读 · 4 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#excel

本文介绍了如何在VBA中使用Application.GetOpenFilename方法，通过指定文件类型规则在Excel中打开文件选择窗口，获取用户选定的文件路径和名称。示例中的Subt1过程展示了如何限制选择的文件类型为Excel(.xls)。

'GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名。
'Application.GetOpenFilename(“文件类型筛选规则(就是说明)”,“优先显示第几个类型的文件”,“标题”,“是否允许选择多个文件名”)

打开类型只限excel文件

'“文件类型说明文字,*.文件类型后辍”

Sub t1()

Dim f

f = Application.GetOpenFilename("Excel文件,*.xls")

MsgBox f

End Sub
VBA打开文件的方式及各个方式的使用优劣 Application.GetOpenFilename、FileSystemObject（Scripting.FileSystemObject）：
偶尔想看云飞的博客
03-22 5916
VBA程序中打开文件和文件夹的函数汇总，以及对应的方法的优缺点
【vba】打开文件夹对里面的excel文件进行批处理
weixin_40112836的博客
11-19 4862
vba批量操作excel中数据
EXCEL-VBA：弹出对话框，打开文件（指定扩展名）两种方法
鞠勇鸿的技术专栏
04-26 1万+
EXCEL-VBA：弹出对话框，打开文件（指定扩展名）
Excel VBA教程：GetOpenFilename方法
sduzhijian的专栏
07-15 2万+
<br />显示标准的“打开”对话框，获取用户文件名，而不必真正打开任何文件。<br />expression.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)<br />expression   必需。该表达式返回一个 Application对象。<br />FileFilter   Variant类型，可选。一个指定文件筛选条件的字符串。<br />本字符串由一个文件筛选字符串与 MS-DOS 通配符表达的文
VBA打开其他Excel文件
hotkoko的博客
07-01 2896
本节会介绍通过VBA实现打开其他excel文件，包括模糊匹配文件名称、循环同时打开多个文件，并获取工作表及工作簿进行数据操作后，对打开的文件进行保存并关闭操作。
VBA:打开指定路径的文件
qq_40569163的博客
10-22 807
都是一些代码片段，忘记了方便查。
VBA中Application.GetOpenFilename的FileFilter参数
04-01
比如在引用[2]中，FileFilter参数的值是“所有文件 (*.*),*.*,Excel文件 (*.xls*),*.xls*”，这样用户在下拉菜单中可以选择不同的文件类型。 另外，FilterIndex参数的作用是设置默认选中的过滤器，比如在引用[2]中...
cad vba 打开excel并弹窗打开指定文件、通过fso弹窗打开dwg
03-21 931
若不想通过windows api方法 （代码太长），可通过引用office库，调用excel的fso函数弹窗返回路径名，然后可通过documents.open打开dwg文件。CAD vba 代码实现打开excel,并通过对话框选择xls文件，并打开此文件进行下一步操作。excel对象下activeworkbook,再往下是sheets对象，(1)为第一个表，thisworkbook是vba代码所在的工作簿。
VBA中Sub GetMultiFilePaths() Dim filePaths As Variant filePaths = Application.GetOpenFilename(MultiSelect:=True) End Sub 为什么打开了选择的文件
04-01
好的，我现在需要解决用户的问题：为什么在VBA中使用Application.GetOpenFilename方法后，选择文件时会自动打开所选文件，以及如何解决这个问题。用户提供的引用资料中有相关的代码示例，我需要仔细分析这些资料，找...
Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim wk1 As Workbook, sh1 As Worksheet, wk2 As Workbook, sh2 As Worksheet Filename = Application.GetOpenFilename(fileFilter:="Excel File (*.xlsx), *.xlsx,Excel File(*.xls), *.xls", FilterIndex:=2, Title:="请选择文件") If Filename = False Then Else Workbooks.Open (Filename) Set wk1 = ThisWorkbook Set sh1 = wk1.ActiveSheet Set wk2 = ActiveWorkbook Set sh2 = ActiveSheet sh2.[a:a].Copy sh1.[a:a] wk2.Close savechanges:=False MsgBox "数据导入成功！" End If End Sub
最新发布
07-03
3.使用GetOpenFilename方法让用户选择要打开的Excel文件（支持.xlsx和.xls格式）。4.如果用户没有选择文件（点击取消），则不执行任何操作。5.如果用户选择了文件，则打开该文件。6.设置wk1为当前工作簿...
VBA获取文件夹文件
11-26
使用VBA获取文件夹里的所有文件名和文件属性. 速度较快.
在word通过VBA打开excel数据文件
12-17
在word通过VBA打开excel数据文件 可以将excel的内容作为word doc文件读取的代码
VBA调用文件选择对话框并打开指定文件
神奇的BI
08-01 5002
实例需求：VBA开发的应用程序中，如何为用户提供文件选择对话框，选中PDF文档之后，使用默认程序打开PDF文件。
文件的读写基本操作
范高伦的博客
09-07 1万+
一、文件是计算机中数据持久化存储的表现形式 读写文件标准操作格式1： 1、打开文件：file1 = open('文件名','读写模式') 2、操作文件 3、关闭文件：file1.close() 文件操作完毕后必须关闭，否则长期保持对文件的连接状态，造成内存溢出的现象发生 读写文件操作格式2： # 1、打开文件 file1 = open('demo.txt','w') # 2、操作文件 file1.write('hello world') # 3、关闭文件 file1.close() 1、打开文件：wi
VBA下弹框打开excel文件并读取数据
热门推荐
nobody
05-02 2万+
Sub LoadExcelData() Dim wkbk As Workbook '定义一个工作薄 Dim myFileName As String '定义要读取的文件路径 Dim dataRow As Integer '定义数据的行 Dim dataColumn As Integer '定义数据的列 Dim rgRC As String '读
用Excel VBA选择文件、打开文件
sduzhijian的专栏
07-14 6130
介绍如何用VBA选择文件和用VBA打开文件。<br />点击打开文件会弹出一个windows文件打开对话框，在EXCEL中VBA怎么实现这个功能？ 复制内容到剪贴板代码:<br />Sub SelectFile()<br />    Dim FileName As Variant                        <br />     '打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant<br />    Dim sFileName As Stri
VBA自学-GetOpenFilename与FileDialog
weixin_74413962的博客
08-08 718
【代码】VBA自学-GetOpenFilename与FileDialog。
Application.GetOpenFilename 使用说明
weixin_30305735的博客
11-14 4216
Application.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect) 语法： 名称　　 说明 FileFilter　　 可选参数，代表指定文件筛选条件的字符串。如果省略该参数，默认为：“所有文件(*.*),*.*”。FilterInde...
VBA 打开文件
02-22 3097
用Excel VBA选择文件、打开文件介绍如何用VBA选择文件和用VBA打开文件。点击打开文件会弹出一个windows文件打开对话框，在EXCEL中VBA怎么实现这个功能？ 复制内容到剪贴板代码:Sub SelectFile()    Dim FileName As Variant                             '打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant    Dim sFileName As String         
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

rubyw

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值