EXCE VBA之预算应用

 

Sub xx()
    Dim pth, fn, i, j, n
    pth = ThisWorkbook.Path & "\"
    fn = Dir(pth & "*.xls")
    Do While fn <> ""
, ,为注释符 
      If fn <> ThisWorkbook.Name Then
        Application.Workbooks.Open pth & fn
        n = Workbooks(fn).Sheets.Count
        For j = 2 To 4
          Workbooks(fn).Sheets(j).Unprotect "2b7b5b1b3b5b7"
        Next
        Application.Workbooks(fn).Close True
      End If
      fn = Dir
    Loop

[Excel VBA] 为什么输入VBA代码时不会自动显示出对象的成员项列表？

Q：为什么输入VBA代码时不会自动显示出对象的成员项列表？

A：因为“自动列出成员”选项处于关闭状态，开启方法如下：

在VBE窗口中单击“工具”菜单→“选项”→“编辑器”→勾选“自动列出成员”复选框→单击“确定”退出“选项”对话框。

A：因为“自动列出成员”选项处于关闭状态，开启方法如下：

在VBE窗口中单击“工具”菜单→“选项”→“宏”→“逐语句”

右键单击：“工具栏”空白处——点击选择“调试”工具条——点击“调试”工具条按钮“本地窗口”，也会有各语句执行结果。