曾经沧海

本文所述加载宏是指使用EXCEL VBA制作的加载宏，这类文件的后缀默认为xla，因此又称XLA加载宏。内容划分为五部分，第一部分为概述，简单介绍加载宏的一般知识；第二部分至第四部分介绍制作加载宏函数、过程和事件主要技巧；第五部分为制作加载宏的其它方面。一、概述 1．制作加载宏的一般步骤（1）创建一个新的工作薄，在其中添加代码。（2）在“文件”菜单上单击“属性”。在“文件名 属

1) 每个线程必须先::CoInitialize(NULL);,退出时必须::UnCoInitialize(NULL);,2) pDlg->m_pXlOper,即线程使用m_pXl内Excel对象,必须遵守COM/COM+规范,简单说,对象接口指针必须遵守一个规范:计数增一,退出时计数减一3)多线程共享接口指针,还有很多要注意的地方,比如套间等,不能象C/C++程序自己设计的对象指针那么简

VARIANT变量是COM组件之间互相通信的重要的参数变量之一，它可以容纳多种不同的类型，如short、long、double等，包括各类指针和数组。组件之间的互相调用是比较耗时的，尤其带当组件位于不同进程中时，因此，减少传递次数是提高效率的一种有效方法。其中，Excel表格的操作就可能涉及到大量数据，一次传递一个二维数组是提高对Excel表的操作效率。下面以两种不同方式来实现VARIANT二维数

1.在公式后面添加“&""”2.在选项里设置，工具——选项——视图，去掉“零值”前的勾

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

财务金额小写转大写：1 先在vbe里新建模块，并写入代码：Function xxzdx(M)y = Int(Round(100 * Abs(M)) / 100)j = Round(100 * Abs(M) + 0.00001) - y * 100f = Round((j / 10 - Int(j / 10)) * 10)A = IIf(y b = IIf(j > 9.4

对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

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

本sheet中复制：　　Sub Macro1()　　    Range("A1").Copy Range("B1")　　End Subsheet间复制： 　　Sub mycopy()　　   Workbooks("book1").Sheets(1).[a1:a10].Copy _　　   Workbooks("book2").Sheets(1).[b1:b10]

仅在a列出现数据菜单：thisworkbook代码：Option ExplicitPrivate Sub Workbook_Deactivate()    Call DeleteMycellEnd Subsheet1 代码：Option ExplicitPrivate Sub Worksheet_BeforeRightClick(ByVal Target A

QT 操作excel 类封装(转载)原链接:http://blog.csdn.net/liliming1234/article/details/7054941pro file[plain] view plaincopyCONFIG += qaxcontainer    QT       +=