apollokk的专栏

问题Excel中的日期自动变成整数 设置的边框等格式在重新打开后消失 操作反应变慢原因分析在Excel中多次的复制粘贴、修改样式会不断积累许多单元格的样式设置，当样式过多时就可能出现混乱的情况。解决办法经过实践，可以将样式删除后重新设置格式即可恢复正常。但普通的删除方法通过遍历处理可能会非常的慢，比如以下的代码，通过VBA来处理，有些文档样式几百上千个的时候慢得很：Ap...

思路首先在数据源中设置分页标识，比如加一列，当需要分页时值为1，不分页时值为其他的。邮件合并选择文档为“目录”，因为这种模式不会自动分页，信函什么的是一条数据一个文档（或分页），标签模式格式不好设置。在Word中添加if then域，判断指定值为1时则添加分页符，否则不添加内容数据源PageBreak是用于判断是否分页的条件列，根据公式设置邮件模板...

前端生成的html表格经常需要导出到excel中，利用JS和Office控件可以做到，但仅限于IE，还要启用安全设置。想找一个简单的办法将HTML内容直接转换成Excel文件，如果直接修改网页头信息输出，虽然可以导出，但打开时会提示格式不是Excel的，怎样才能导出真正的Excel文件？aspose.cells是个功能强大的控件，可以方便的生成excel文件。经考虑，将html发送

GET.DOCUMENT(type_num, name_text)Type_num    指明信息类型的数。下表列出 type_num 的可能值与对应结果。Type_num        返回1        如果工作簿中不只一张表，用文字形式以“［book1］sheet1”的格式返回工作表的文件名。否则，只返回工作簿的文件名。工作簿文件名不包括驱动器，目录或窗口编号。通常最好

GET是得到的意思CELL是单元格的意思 --->那么它的意思就是你想得到单元格的什么东西(信息) 函数定义: GET.CELL(类型号,单元格(或范围)) 其中类型号,即你想要得到的信息的类型号,可以在1-66(表示可以返回一个单元格里66种你要的信息)------------------------------------------------------------

用ExecuteExcel4Macro从未打开的Excel工作簿中读取数据(转载)从另外一个未打开的Excel文件中读取数据的函数下面这个函数调用XLM宏从未打开的工作簿中读取数据.*注意:  该函数不能用于公式.GetValue函数,需要以下四个变量path:  未打开的Excel文件的路径 (e.g., "d:\test") file:  文件名(e.g., "te

遇到一个PPT文件有24M，30多页，里面主要有一些图片。使用自带的图片压缩功能进行压缩，发现没有什么改变，后来找了一些工具软件压缩，最多也只能减少22%。后来另存为PPTX格式，减小到1.74M。大概是文档中的图片应用了不少高版本才有的样式，像倒影什么的，在2003格式中为了不失真另外生成了图片和一些其它的信息。

在工作中时常遇到Office文档损坏，用MS Office不能打开，有时候用LibreOffice

dim arr(9999,4) for i=0 to 9999 for j = 0 to 4 arr(i,j)=i*j next next set oXL = CreateObject("Excel.Application") oXL.Visible = true oXL.ScreenUpdating=false set oWB = oXL.Workbo

sub button1_onclick() ' Launch Excel dim app set app = createobject("Excel.Application") ' Make it visible app.Visible = true ' A

dim arr(9999,4) for i=0 to 9999 for j = 0 to 4 arr(i,j)=i*j next next set oXL = CreateObject("Excel.Application") oXL.Visible = true oXL.ScreenUpdating=false set oWB = oXL.Workbooks.Add

在Excel中将小写金额转换成人民币的大写金额的自定义函数及用法1、如何自定义：打开EXCEL,新建一个文件Book1,按ALT+F11进入VBA编程环境,选中这个BOOK1文件,插入模块,将下面的源代码复制到右边的模块代码区内,然后将此BOOK1保存,保存类型一定选加载宏,文件名嘛可自由发挥,我就填"中文大写",确定OK!然后回到EXCEL,工具--加载宏-找到"中文大写",打勾确定,我们这个自

假设对A1中的数字进行转换）,在B2单元格中输入=IF(ROUND(A1,2)另外几个公式： 公式一：SUBSTITUTE(SUBSTITUTE(IF(A1公式二：CONCATENATE(IF(A1公式三：IF(ROUND(A1,2)=0,"",IF(ROUND(ABS(A1),2)>=1,TEXT(INT(ROUND(ABS(A1),2)),"[DBNum2]")&"元","")&I

"打印的时候像Word一样自动分栏，可以用添加辅助表和使用INDIRECT()的办法实现：假如你的原表是Sheet1，新建一个工作表Sheet2，把表头设置成需要的分栏形式（注意表头行数要和原表一致，保证第一行数据和原表的行号相同，只是多了几个列），现在架设你的数据从第2行开始，并且每页打印5行数据（不含表头），每页打印3栏。请在Sheet2的A2单元格（第一行数据）输入如下公式即可返回She

Sub 替换超级链接地址()Dim hDim str1$str1 = "D:/Personal/My Documents/"For Each h In Worksheets(1).Hyperlinks    If InStr(h.Name, str1) NextEnd SubSub 取消所有超级链接()    ActiveSheet.Hyperlinks.DeleteEnd Sub