专栏名称: 完美Excel
Excel与VBA技术学习与实践
目录
相关文章推荐
今天看啥  ›  专栏  ›  完美Excel

用户窗体示例:保存并关闭已经打开的工作簿

完美Excel  · 公众号  · Excel  · 2024-07-17 05:30
    

文章预览

学习Excel技术,关注微信公众号: excelperfect 标签: 用户窗体 , VBA 当打开用户窗体时,会列出当前打开的所有工作簿,选择某工作簿,则会自动保存并关闭该工作簿,如下图 1 所示。 图 1 首先,打开 VBE ,插入一个用户窗体,在其中放置一个标签、一个列表框和一个按钮,如下图 2 所示。 图 2 然后,双击打开该用户窗体代码模块,输入下面的代码: Private Sub UserForm_Initialize() Dim j As Long For j = 1 To Workbooks.Count    If Workbooks(j).Name  < > ThisWorkbook.Name And Workbooks(j).Name  < > "PERSONAL.XLSB" Then _ ListBox1.AddItem Workbooks(j).Name Next j End Sub Private Sub ListBox1_Click() Dim j As Long Dim wb As Workbook Dim ListIndex As Long Application.ScreenUpdating = False Set wb = Workbooks(ListBox1.Value) wb.Close True ListBox1.Clear UserForm_Initialize Application.ScreenUpdating = True ………………………………

原文地址:访问原文地址
快照地址: 访问文章快照
总结与预览地址:访问总结与预览