发布网友 发布时间:2022-10-11 01:09
共1个回答
热心网友 时间:2023-10-10 06:41
代码一: Private Sub CommandButton1_Click() Dim Filename Filename = Application.GetOpenFilename(FileFilter:="Excel文件(*.xla; *.xls),*.xla;*.xls", Title:="选择Excel文档") If Filename = False Then Exit Sub Workbooks.Open Filename:=Filename End Sub 代码二: Private Sub CommandButton2_Click() ThisWorkbook.Application.Dialogs(1).Show '打开电子表 End Sub 两段代码效果是一样的。