VBA

用vba实现将记录集输出到Excel模板 2016-04-02

代码如下:'************************************************  '** 函数名称:  ExportTempletToExcel  '** 函数功能:  将记录集输出到 Excel 模板  '** 参数说明:  '**            strExcelFile         要保存的 Excel 文件  '**      ...

VBA将excel数据表生成JSON文件 2016-03-24

本文给大家汇总介绍了几种使用VBA处理EXCEL并生成JSON文件的方法和思路,非常的实用,有需要的小伙伴可以参考下.ADODB.Stream创建UTF-8+BOM编码的文本文件. 然后遍历数据区,格式化数据,输出即可. 小数据还行,大数据没测试. 另,使用fso创建的文本文件编码为ANSI,ajax解析json时出现乱码无法正常解析. Sub ToJson() '创建UT ...

excelvba高亮显示当前行代码 2016-01-12

用条件格式设置高亮显示当前行,难的是如何确定当前行.用VBA就很简单,鼠标右击工作表标签,选择"查看代码",将下面的代码粘贴到VBE窗口中代码: 代码如下: Private Sub Worksheet_SelectionChange(ByVal Target As Range) ThisWorkbook.Names.Add "XM", ...

VBA解决Windows空当接龙的617局 2016-01-02

本文给大家分享的是使用VBA解决Windows空当接龙的617局的方法和思路,有需要的小伙伴可以参考下.Windows的自带游戏空当接龙,其中第617局是比较难解的,需要尝试的次数比较多,而且经常忘记解法和步骤. 原本希望使用AutoIt或AutoHotkey.AAuto一类的工具,写一段自动化脚本快速解决这一局,但这些工具需要安装,而且容易被当做病毒.通过Office中的 ...

UserAccessList集合的功能(VBA) 2015-10-26

可用 ProtectedRange 对象的 Users 属性返回一个 UserAccessList 集合.返回一个 UserAccessList 集合后,便可用 Count 属性来确定访问受保护区域的用户数量.在下例中,Microsoft Excel 将访问第一个受保护区域的用户的数量通知给用户.本示例假定受保护的区域位于活动工作表上. 代码如下:Sub UseDelete ...

vba获取PPT幻灯片中的所有标题的代码 2015-09-25

有时候需要获取PPT幻灯片中的所有标题,如果手工的复制肯定很慢,那么可以用vba批量获取,提高工作效率. 代码如下: Private Sub CommandButton1_Click() Me.Enabled = False getTitles Me.Enabled = True End Sub Sub getTitles() On Error Resume Next Di ...

VBAUsedObjects集合用法 2015-07-14

可用 Application 对象的 UsedObjects 属性返回一个 UsedObjects 对象.返回一个 UsedObjects 集合后,便可用 Count 属性来确定 Microsoft Excel 应用程序中所用对象的个数. 在本示例中,Microsoft Excel 确定已分配的对象的个数,并通知用户.本示例假定在应用程序中执行重新计算,并且在完成前中断重新 ...