03 2010 档案

VSTO在EXCEL里列出所有文件夹及其文件
摘要：int i = 0, k = 0;DirectoryInfo dir = new DirectoryInfo(@"c:\windows");DirectoryInfo[] dirs = dir.GetDirectories();foreach (DirectoryInfo folder in dirs){i++;this.Range["a" + i, missing].Value2 = folde... 阅读全文
posted @ 2010-03-22 23:25 RobinLao 阅读(599) 评论(0) 推荐(0)
VSTO EXCEL中的NEWSHEET事件
摘要：VB.NET的代码如下同样是object类型的Sh,VB.NET里可以直接调用name属性，而在C#中需要把Sh强制转化为Excel.Worksheet后才能调用Sh的worksheet的属性。从VBA转到学习C#需要改变的观念真多，希望这点经验对和我一样的VSTO+C#的初学者有点用。 阅读全文
posted @ 2010-03-19 23:57 RobinLao 阅读(883) 评论(0) 推荐(0)
VSTO 列出所有EXCEL工作表的名称
摘要：private void button1_Click(object sender, EventArgs e) { StringBuilder sb = new StringBuilder(); foreach (Excel.Worksheet sht in Globals.ThisWorkbook.Worksheets) { sb.Append(sht.Name); sb.Append("\n")... 阅读全文
posted @ 2010-03-18 21:44 RobinLao 阅读(938) 评论(0) 推荐(0)
VSTO 禁止EXCEL工作表中的右击菜单
摘要：可能有人会问，除了ThisWorkbook_SheetActivate事件，为什么还要加上一个ThisWorkbook_ActivateEvent事件？这是因为，打开表的时候，当前表并不会激发ThisWorkbook_SheetActivate事件，所以还需要加上工作簿的激活事件。 阅读全文
posted @ 2010-03-18 21:36 RobinLao 阅读(1668) 评论(1) 推荐(1)
一个有趣的C#正则替换问题
摘要：9.1(2) ------ 9.119(3).5(1) ----- 999.589(2).7 ------ 899.7即把括号替换成括号前一数字的N次原帖见http://topic.csdn.net/u/20100317/19/e25694b8-ff80-427a-910b-04a666ce6cbc.html 阅读全文
posted @ 2010-03-17 23:27 RobinLao 阅读(1092) 评论(0) 推荐(0)
VSTO在EXCEL添加VBA模块代码
摘要：private void ThisWorkbook_Startup(object sender, System.EventArgs e) { string sCode = "Sub VBAMacro()\r\n" + "MsgBox \"Test\"\r\n" + "End Sub"; VBComponent oModule; oModule = Globals.ThisWorkbook.VBPr... 阅读全文
posted @ 2010-03-16 13:57 RobinLao 阅读(1260) 评论(0) 推荐(0)
VSTO中捕捉窗口缩放的事件
摘要：注意：1、这个事件是工作簿的事件，所以需要写在thisworkbook里　　　2、捕捉的是工作簿的缩放，而不是EXCEL程序的缩放 阅读全文
posted @ 2010-03-15 15:53 RobinLao 阅读(798) 评论(0) 推荐(0)
EXCEL里常用的几个正则表达式
摘要："^\d+$"　　//非负整数（正整数 + 0）"^[0-9]*[1-9][0-9]*$"　　//正整数"^((-\d+)|(0+))$"　　//非正整数（负整数 + 0）"^-[0-9]*[1-9][0-9]*$"　　//负整数"^-?\d+$"　　　　//整数"^\d+(\.\d+)?$"　　//非负浮点数（正浮点数 + 0）"^(([0-9]+\.[0-9]*[1-9][0-9]*)|([0... 阅读全文
posted @ 2010-03-13 23:42 RobinLao 阅读(9196) 评论(0) 推荐(0)
在EXCEL中列出OUTLOOK收件箱里所有的邮件
摘要：首先需引用你所用的OUTLOOK版本的库（2003为11.0，2007 12.0，2010 14.0） 阅读全文
posted @ 2010-03-11 23:56 RobinLao 阅读(865) 评论(0) 推荐(0)
VSTO C#数组填充EXCEL单元格
摘要：VS2005版的C#没有提供和VB.NET一样的RESIZE方法，所以经常看到很多用C#的同学在数组填充单元格的时候是通过定义一个Excel.Range再赋值Value2的方法来做的，其实VS2008中提供了一个get_Resize方法，无需那么麻烦了。 阅读全文
posted @ 2010-03-10 23:55 RobinLao 阅读(2022) 评论(0) 推荐(0)
删除整篇Word文档中的图文框
摘要：EH上看到有人问这个问题，其实只需要一句代码就行立即框输入以下代码后回车 阅读全文
posted @ 2010-03-09 12:24 RobinLao 阅读(2547) 评论(0) 推荐(0)
列出所有最近使用的工作簿
摘要：private void button1_Click(object sender, EventArgs e){ StringBuilder sb = new StringBuilder(); for (int i = 1; i < this.Application.RecentFiles.Count; i++) { sb.Append(this.Application.RecentFiles... 阅读全文
posted @ 2010-03-07 23:27 RobinLao 阅读(543) 评论(0) 推荐(0)
禁止在EXCEL中CTRL+C的复制快捷键
摘要：Private Sub Workbook_Open() Application.OnKey "^{c}", ""End SubPrivate Sub Workbook_Deactivate() Application.OnKey "^{c}"End Sub 阅读全文
posted @ 2010-03-06 23:39 RobinLao 阅读(949) 评论(0) 推荐(0)
123456789四则运算
摘要：代码说明：在123456789或987654321中插入+-*/四则符号来算出一个固定的值。asc为true时是123456789，反之为987654321。123456789算100，C#下时间为15秒，VBA下为56秒，快了3/4。版权说明：本文来自狼版http://blog.csdn.net/northwolves/archive/2009/11/20/4841068.aspx一文，试着用C... 阅读全文
posted @ 2010-03-05 13:43 RobinLao 阅读(1027) 评论(0) 推荐(0)
VSTO里取当前电脑所在域
摘要：C#里只需要这么一句话，而VBA环境里试了好几个方法，包括VBA本身功能、API、SHELL、注册表等，却都是只能取到本地机器名，无法取到公司里的域名。 阅读全文
posted @ 2010-03-04 22:49 RobinLao 阅读(706) 评论(1) 推荐(0)
EXCEL从ACCESS中取值
摘要：ACCESS数据库界面EXCEL的窗体界面窗体中的代码：原文件可以去下面地址下载：http://u.115.com/file/f7df8e035b 阅读全文
posted @ 2010-03-03 22:01 RobinLao 阅读(1192) 评论(1) 推荐(1)
取单元格红色字体的VBA自定义函数
摘要：代码效果如下图： 阅读全文
posted @ 2010-03-02 22:20 RobinLao 阅读(1157) 评论(0) 推荐(0)
用VBA实现OUTLOOK接收新邮件后的自动转发
摘要：OUTLOOK自带的规则虽然可以设置自动转发，但这个规则是建立在服务器上的，但有些公司为了防止机密外泄而设置了服务器自动转发限制。解决的方法可以用OUTLOOK事件的方法来实现：在本人的OUTLOOK 2007环境下测试通过，如果各位有谁实现不了，请留言。 阅读全文
posted @ 2010-03-01 22:27 RobinLao 阅读(1918) 评论(0) 推荐(0)
把WORD中的文本框批量转换为图文框
摘要：Sub test()Dim obj As ShapeFor Each obj In ActiveDocument.Shapes If obj.Name Like "Text Box*" Or obj.Name Like "文本框*" Then obj.ConvertToFrame End IfNextEnd Sub 阅读全文
posted @ 2010-03-01 22:26 RobinLao 阅读(800) 评论(0) 推荐(0)