cad的vba窗体

在VBA窗口双击左侧列表框的thisworkbook在右边窗口粘贴下面的代码PrivateSubWorkbook_Open()userform1show'如果你更改了窗体的名称那就改为窗体名称showEndSub这样打开这个工作薄就直接调用你建的窗体还有一种就是创建一个过程宏调用,可以写在任意工作表的代码中或者模块中调用sub加载 *** 作窗体()userform1showendsub

获取指定的工作簿中工作表名称而非本工作簿中表的名称，下面的代码可以使用：

Sub 提取name()

Dim wk As Workbook

Dim sh As Worksheet

Dim rw As Byte

Set wk = WorkbooksOpen("D:\函数习题\第1章 函数基础xls")

For Each sh In Workbooks(2)Worksheets

rw = rw + 1

ThisWorkbookSheets(1)Range("a" & rw) = shName

Next sh

wkClose True

End Sub

新建一个工作簿，在VBA中新建一个模块，将上面的代码复制进去。记住要根据自己指定的工作簿改变一下workbooksopen后面的路径。结果会在新建工作簿中sheets1a列罗列出工作表名称。

针对ThisWorkbook对象的BeforeClose事件添加如下代码

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim fileStr As String

    fileStr = "$111xls$333xls$“ ‘头尾都用$分隔，循环判断文件名

    For I = Workbookscount To 1 Step -1

        If InStr(fileStr, Workbooks(I)Name) <> 0 Then

            Workbooks(I)Close False ‘False是不保存关闭 true是保存并关闭

        End If

    Next

End Sub

关闭时就会遍历所有打开的excel文件，执行不保存 *** 作，并关闭

以上就是关于cad的vba窗体全部的内容，包括:cad的vba窗体、如何利用VBA获取指定工作簿中的工作表名称、excel vba如何获取所有打开的excel文件名等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！