1、首先我们打开一个工作样表作为例子。 2、我们使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码: Sub openWorkbook1() Workbooks.Open "<需打开文件的路径>\<文件名>" End Sub 3、看代码写的很明白了,比如我要打开桌面上的一个工作薄,那么我们就是输入文件的路径,查找路径的...
2、使用alt+f11组合键打开vbe编辑器,新建一个模块,在模块编辑窗中输入以下代码: Option Explicit Sub 隐藏() Dim i As Integer For i = 1 To Sheets.Count If Sheets(i).Name <> "源数据" Then Sheets(i).Visible = 0 End If Next x End Sub ...