存档

文章标签 ‘VBA’

VBA“对于指定的操作,该主题不受信任。”的解决方法

2010年3月6日

在使用Excel VBE向窗体中添加MSHFlexGrid控件时,出现警告:“对于指定的操作,该主题不受信任。”

原因:windows的更新补丁限制了一些activex控件的使用。

解决办法:安装一个针对vb控件的更新包(Microsoft Visual Basic 6.0 Service Pack 6 Cumulative Update),安装完之后,那些不能使用的控件就可以重新使用了。重启后可能某些原来可以使用的部件现在又不能使用,用regsvr32重新注册一下即可。

下载地址:http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=cb824e35-0403-45c4-9e41-459f0eb89e36

Excel2007中用DIR函数批量获取指定目录下所有文件名

2009年12月24日

由于 Excel2007 及 Excel2010 版本都取消了对 Application 对象的 FileSearch 方法的支持,所以在 Excel2007 版本以后不能用 FileSearch 来批量获取指定目录下的所有文件名了,虽然少了 FileSearch 但还可以用内置的 Dir 函数。代码如下: 阅读全文…

作者: 分类: Excel 标签: , , ,

批量获取指定目录下文本文件内容VBA代码

2009年12月24日

  今天帮一位网友弄的,A列为文件名,B列为对应的文本文件内容。此代码只适用于Excel2003及以下版本,因FileSearch方法被微软阉割了。
阅读全文…

作者: 分类: Excel 标签: , ,

Excel VBA:工作表保护

2009年8月11日

实例:保护工作表,并禁止选定锁定的单元格,同时允许VBA在后台对工作表中被保护的单元格进行修改,而不弹出对话框。当blnEnabledIt=0时解除工作表保护。代码如下:

1
2
3
4
5
6
7
8
9
10
11
12
Sub ProtectIt(Optional blnEnabledIt As Boolean = True)
   ' blnEnabledIt = False
    With ActiveSheet
        If blnEnabledIt Then
            .EnableSelection = xlUnlockedCells
            .Protect Contents:=True, UserInterfaceOnly:=True
        Else
            .EnableSelection = xlNoRestrictions
            .Unprotect
        End If
    End With
End Sub
作者: 分类: Excel 标签: , ,

Excel VBA代码:去除工作表所有对象

2009年5月15日

结合Excel VBA代码:批量插入指定目录下图片使用,十分方便。代码如下:


GeSHi Error: GeSHi could not find the language vba (using path /home/enonecom/public_html/pootor.com/wp-content/plugins/codecolorer/lib/geshi/) (code 2)
作者: 分类: Excel 标签: ,

Excel VBA代码:批量插入指定目录下图片

2009年5月15日

公司的MM们给客户的订单经常要插入产品图片,一张一张的插入,而且还要调整大小十分的麻烦,于是写了这个VBA代码。
使用方法:在要插入图片的文件夹里新建一个Excel文件,打开这个Excel文件,在要插入图片的单元格里填上图片文件名(不要扩展名),选中要插入图片的单元格,修改单元格的大小,运行宏代码。代码如下:
阅读全文…

作者: 分类: Excel 标签: , ,

Excel VBA代码:批量获取指定目录下所有文件名

2009年5月15日

在Excel中获取指定目录下的所有文件名,请自行修改输出的格式,配合Excel VBA代码:批量插入指定目录下图片代码使用,事半功倍!代码如下:
阅读全文…

作者: 分类: Excel 标签: ,