EXCEL-VBA：弹出对话框，打开文件（指定扩展名）两种方法

最新推荐文章于 2024-05-03 11:48:00 发布

小鸿叔

最新推荐文章于 2024-05-03 11:48:00 发布

阅读量1.5w

点赞数 3

分类专栏： VBA OFFICE-EXCEL 文章标签： EXCE VBA 对话框打开文件扩展名

本文链接：https://blog.csdn.net/jyh_jack/article/details/70799151

版权

OFFICE-EXCEL 同时被 2 个专栏收录

52 篇文章 5 订阅

订阅专栏

VBA

42 篇文章 17 订阅

订阅专栏

'方法一：
Dim FileName As String
FileName = Application.GetOpenFilename("Excel 文件 ,*.xls;*.xlsx")


'方法二：
With Application.FileDialog(msoFileDialogOpen)
	.AllowMultiSelect = True
	.InitialFileName = "D:\"  '打开时默认的目录
	.Filters.Clear
	.Filters.Add "Excel文件", "*.xls;*.xlsx"
	.Title = "请选择文件"
	.Show
	For i = 1 To .SelectedItems.Count
		MsgBox .SelectedItems(i)
	Next
End With