Paladin.Lao的VSTO/VBA专栏

欢迎光临我的个人网站 http://mrvsto.com

欢迎光临我的个人网站 http://mrvsto.com

欢迎光临我的个人网站 http://mrvsto.com

2010-03-18 21:21:00

阅读数 878

评论数 4

聊聊最近的CPA心得吧

不知不觉都快要3个月没更新博客了,一是懒,二是没啥时间,三是主要原因——没啥好写的东西。 相信很多博客主都和我一样,写着写着就没啥激情了,从一开始的每天更新,到每3天更新,然后每周更新,再然后个把月才更新一次,后来是随性而至,哪天突然想起就写上一篇。其实,更多时候不是不想写,而是写不出,随便写写...

2013-06-14 19:23:06

阅读数 1178

评论数 0

成功申请到ClickDealer联盟

今年开年,决定专注于国外CPA,经过半个多月的泡论坛+找资料+Google,大概也学了个差不多,所以从这个礼拜开始,陆续向几个评价不错的联盟递了申请。 第一个是PeerFly联盟,在affpaying的评价是非常不错的,而且听说offer多、单价不错、AM人也蛮好,首先就申请了它。也怪我不好...

2013-03-07 23:37:29

阅读数 4303

评论数 0

导出Outlook里的全球通讯录到Excel

<br /> <br />最近整理硬盘文件,发现一个Outlook里的全球通讯录到Excel的代码,但不知道这个文件是什么时候下的了,谨向原作者致敬。<br />注意:<br />1、这个代码是写在Excel的模块里的。<br />2、通...

2011-02-16 11:29:00

阅读数 3705

评论数 2

提取Excel、Word、PPT文件中的Flash文件的两种方法

<br /> 方法一:VBA代码法<br />新建一个文件,然后拷贝以下代码到VBA模块中,运行代码,选择含有Flash的Excel文件确定,即可获取swf文件。<br /> <br /> <br />Sub ExtractFlash()...

2011-02-10 20:04:00

阅读数 1804

评论数 0

介绍一个文本连接的自定义函数:contxt

<br />Excel自带的CONCATENATE函数虽然能连接文本,但却不能连接内存数组,论效果还没&这个连接符方便,实在是Excel里的第一大鸡肋。<br /><br />所以今天就介绍给大家我一直在用的文本连接的自定义函数–contxt 。<...

2010-11-10 10:35:00

阅读数 3047

评论数 0

VSTO/Excel:快速找出某一列中与指定单元格不同的数据

<br />private void button1_Click(object sender, EventArgs e) { Excel.Range rng = null; rng = ((Excel.Range)this.Columns[1]).ColumnDi...

2010-08-29 21:47:00

阅读数 1491

评论数 0

VBA用字典来替代函数的Vlookup

<br />Excel里有Vlookup函数,查找匹配数据非常方便,在VBA里,也可以用worksheetfunction.vlookup方法来调用,今天我介绍一个另一种使用字典(dictionary)+数组的方法,速度也非常快。<br /> <br />数据源...

2010-08-07 11:05:00

阅读数 9657

评论数 5

Word里全角转换成半角

<br /> 上次写一篇文章,不小心开了全角,结果文章编辑完,惨不忍睹,然后就想自编个宏一次性转换。起先想到的当然是像Excel一样使用ASC函数,但发现VBA的ASC不是全半角转换的功能,晕死,只能网上找答案,终于,找到一个狼版以前发的回帖,完美解决。<br />代码如下...

2010-07-26 23:21:00

阅读数 907

评论数 0

VBA导入VFP的.dbf文件

<br /> Sub ImportVFPData() Dim i%, sql$ Dim cn, rst Set cn = CreateObject("adodb.connection") Set rst = CreateObj...

2010-07-26 23:20:00

阅读数 1486

评论数 0

用VBA导出Excel里的图表为JPG文件

<br /> Sub ExportChart() Dim myChart As Chart Dim myFileName As String Set myChart = Sheet1.ChartObjects(1).Chart myFileNam...

2010-07-17 13:07:00

阅读数 2036

评论数 10

用VBA来关闭其他程序

<br />以关闭Winrar.exe为例,代码如下:<br />Sub closeWinrar() Dim oWMT As Object, oProcess As Object Set oWMT = GetObject("winmgmts:/...

2010-07-13 20:22:00

阅读数 1473

评论数 0

画四条直线然后组合成矩形

<br />private void button1_Click(object sender, EventArgs e) { Excel.Shape lineA = Globals.Sheet1.Shapes.AddLine(25, 140, 495, 140); ...

2010-06-08 22:09:00

阅读数 810

评论数 0

C#与TXT文件的读写操作

static void Main(string[] args) { string path = @"d:/1.txt"; File.WriteAllText(path, "test1", Encoding.Default); ...

2010-06-07 10:42:00

阅读数 694

评论数 0

VBA用shell命令来压缩文件

<br />Sub zipFile() Dim winrarPath$, fullname$, filename$, filePath winrarPath = "c:/program files/winrar/winrar.exe a -afzip &q...

2010-06-06 23:06:00

阅读数 1332

评论数 0

用Shell来运行dos下的ping命令

<br />Sub test() Shell "cmd.exe", vbNormalFocus SendKeys " ping mrvsto.com" & "{ENTER}", 1 End Su...

2010-06-03 22:06:00

阅读数 1547

评论数 0

获取日历控件的选取值

VBA里直接用“Calendar.Value”就可以获取日历控件的值了,但VSTO里竟然没有这个属性。找了半天,原来要这样搞才行:

2010-05-31 23:59:00

阅读数 3319

评论数 0

在Excel里发Twitter

Sub sendTweets() Dim xml, sUsername$, sPassword$, sTweets$ Set xml = CreateObject("MSXML2.XMLHTTP") sUsername = "" ...

2010-05-07 23:47:00

阅读数 487

评论数 0

获取Excel中的自定义序列

 private void button1_Click(object sender, EventArgs e){ for (int i = 1; i <= Application.CustomListCount; i++) { object obj = Applic...

2010-05-06 21:10:00

阅读数 660

评论数 0

VSTO运行VBA代码

 昨天一个同事问我,怎么在VSTO的控件上运行工作簿中的VBA代码。这个很简单,VSTO提供了一个Run方法,可以直接运行Marco,就和你在VBA的一个过程里调用另一个过程一样。VSTO里的代码:private void button1_Click(object sender, EventArg...

2010-04-28 23:12:00

阅读数 2184

评论数 0

提示
确定要删除当前文章?
取消 删除
关闭
关闭