作者：乔山办公网日期：
返回目录：excel表格制作
在工作簿的OPEN事件中写上显示窗体的语句即可。假定窗体名为UserForm1，代码如下：
Private Sub Workbook_Open()UserForm1.ShowEnd Sub
一、首先你要确保你的宏的安全性的级别是低级别的
二、在VBA里的EXCEL文档打开的事件里面写入显示窗体事件
设置问题，找到EXCEL设置，在信任中心中找找看，有一个“是否信任VBA工程”，把前面的勾点上就好
代码一： 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 两段代专码效果是一样属的。