曾经沧海

在thisworkbook中加入：Option ExplicitPrivate Sub Workbook_Activate()    Call myToolsEnd SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)    'Call DelmyToolsEnd SubPrivate Sub Workbook

删除文件夹假设我在C区建立一个文件夹aaaa, 以下是删除该文件的程序Sub ssssss()Set fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder("c:\aaaa")f.Delete End Sub-----------可以通过api函数来取得文件夹的位置,再进行删除.D

对sheet 进行保护：Sub 保护()Dim Sh As WorksheetFor Each Sh In WorksheetsSh.Protect'加密码123Sh.Protect "123"NextMsgBox "OK"End SubSub 撤销保护()Dim Sh As WorksheetFor Each Sh In Worksheet

一、简介加载宏可以扩展Excel的功能，与Excel的内置功能一致，是为Excel提供自定义命令或自定义功能的补充程序。某些加载宏还提供了可用于公式中的新的工作表函数。使用某加载宏必须已安装，且须在加载宏对话框中进行调用。加载宏默认安装在Microsoft Office/Office 文件夹中的 Library 文件夹或 Addins 文件夹，或它们的子文件夹中。其中，Ex

1、显示用户窗体用于以编程方式显示用户窗体的语法是：UserFormName.Show若要显示用户窗体名为 UserForm1，使用以下代码：UserForm1.Show时可以加载到内存用户窗体而不实际显示它。 可能需要复杂的用户窗体几秒钟才显示。 可以预用户窗体加载到内存中，因为您可以决定何时引发此开销。但不显示加载到内存的 UserForm1，使用以下代码：Load

两个API函数，这两个函数分别是SHGetSpecialFolderLocation和SHGetPathFromIDList，这就是我们用来获得各种路径的武器。函数声明:Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As

创建新工作簿更好的方法是将其分配给一个对象变量。下例中，由 Add 方法返回的 Workbook 对象分配给了对象变量 newBook。然后，又设置了 newBook 的若干属性。使用对象变量可以很容易地控制新工作簿。Sub AddNew()Set NewBook = Workbooks.Add    With NewBook        .Title = "All Sa

Private Sub Workbook_Open()With Application '禁止自动填充 .CellDragAndDrop = False '屏蔽常用工具栏剪切、复制、粘贴 .CommandBars(3).Controls("剪切(&T)").Enabled = False .CommandBars(3).C

_cdecl 是CDeclaration的缩写，表示C语言默认的函数调用方法：所有参数从右到左依次入栈，这些参数由调用者清除，称为手动清栈。被调用函数无需要求调用者传递多少参数，调用者传递过多或者过少的参数，甚至完全不同的参数都不会产生编译阶段的错误。_stdcall 是StandardCall的缩写，是C++的标准调用方式：所有参数从右到左依次入栈，如果是调用类成员的话，最后一个入栈的是

VBA 操作excel菜单 在thisworkbook中加入：Option ExplicitPrivate Sub Workbook_Activate()    Call myToolsEnd SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)    'Call DelmyToolsEnd Sub