摘要：
不知不觉都快要3个月没更新博客了，一是懒，二是没啥时间，三是主要原因——没啥好写的东西。相信很多博客主都和我一样，写着写着就没啥激情了，从一开始的每天更新，到每3天更新，然后每周更新，再然后个把月才更新一次，后来是随性而至，哪天突然想起就写上一篇。其实，更多时候不是不想写，而是写不出，随便写写吧，那种垃圾文章简直就是侮辱读者的眼球，不写吧，Google、百度权重越来越低，实在也是挺难的说。好了，废话聊完，来点正题吧。从年初开始CPA征途，到现在也有3个月了，搞来搞去，一直没盈利，还小亏了500多刀。总结了一下亏损的原因，也算给大家一个提醒吧：1、联盟不要太多：虽然split更容易测试offer 阅读全文
摘要：
今年开年，决定专注于国外CPA，经过半个多月的泡论坛+找资料+Google，大概也学了个差不多，所以从这个礼拜开始，陆续向几个评价不错的联盟递了申请。第一个是PeerFly联盟，在affpaying的评价是非常不错的，而且听说offer多、单价不错、AM人也蛮好，首先就申请了它。也怪我不好，LP没建的漂亮点，而且注册时候的介绍也写的简单了点，第二天就悲剧了。第二个是CubeCPA联盟，有个国人的AM在广告中国上发的贴，看到后就加了QQ联系了一下，AM人不错，简单的问了几句，然后等我POF帐号充值以后就帮我开通帐号了。第三个是ClickDealer，在affpaying的评价比PeerFly还要 阅读全文
摘要：
最近整理硬盘文件，发现一个Outlook里的全球通讯录到Excel的代码，但不知道这个文件是什么时候下的了，谨向原作者致敬。注意：1、这个代码是写在Excel的模块里的。2、通讯录中联系人个数多的话，可能时间有点长 阅读全文
摘要：
方法一：VBA代码法新建一个文件，然后拷贝以下代码到VBA模块中，运行代码，选择含有Flash的Excel文件确定，即可获取swf文件。方法二：UE修改法1、打开这个含有Flash的Excel文件，进入设计模式，选中这个Flash后拷贝到桌面，获取一个片段文件2、用ULraEdit32(UE)打开这个片段文件，查找“465753”字段3、把“465753”字段之前的文字全部剪切，然后把文件另存为”X.swf”4、OK 阅读全文
摘要：
Excel自带的CONCATENATE函数虽然能连接文本，但却不能连接内存数组，论效果还没&这个连接符方便，实在是Excel里的第一大鸡肋。所以今天就介绍给大家我一直在用的文本连接的自定义函数–contxt 。用法就如CONCATENATE函数差不多，以逗号,分隔，参数支持数组和单元格区域。原创作者为 chenjun （陈军），微软MVP，一个EH里传奇的人物，可惜我进EH的时... 阅读全文
摘要：
之前在VSTO里添加过几次Ribbon，没有发现什么问题。但前几天装了一个微软出品的VS的插件Productivity Power Tools后，只要一添加Ribbon，VS2010就崩溃掉。初步估计应该是由这个插件引起的，所以卸载这个插件，但VS2010还是崩溃，而且更让我崩溃的是：修复安装VS2010后问题依旧。在微软官方的VSTO论坛上发了个帖子，但估计没人碰到过，都几天了也没找到答案。如果... 阅读全文
摘要：
这个方法其实就是调用了F5定位里的columndifferences，但两者有一点不同的地方：定位里的ColumnDifferences只能够以所选区域的第一个单元格做参照，而本方法可以自己定义参照单元格，即代码中的Range["a2"]。 阅读全文
摘要：
Excel里有Vlookup函数，查找匹配数据非常方便，在VBA里，也可以用worksheetfunction.vlookup方法来调用，今天我介绍一个另一种使用字典(dictionary)+数组的方法，速度也非常快。数据源图片：代码：源文件：dictionary 阅读全文
摘要：
前几天有位朋友发邮件给我，问的这个问题，代码弄的差不多了，但碰到一个几天都没琢磨出来的问题：问题出在第四行，Locals里显示series.Values是一个object[]，但(object[])series.Values报Unable to cast object of type ‘System.Object[*]‘ to type ‘System.Obje... 阅读全文
摘要：
上次写一篇文章，不小心开了全角，结果文章编辑完，惨不忍睹，然后就想自编个宏一次性转换。起先想到的当然是像Excel一样使用ASC函数，但发现VBA的ASC不是全半角转换的功能，晕死，只能网上找答案，终于，找到一个狼版以前发的回帖，完美解决。代码如下： 阅读全文
摘要：
Sub ImportVFPData() Dim i%, sql$ Dim cn, rst Set cn = CreateObject("adodb.connection") Set rst = CreateObject("adodb.recordset") Dim sql As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Pr... 阅读全文
摘要：
Sub ExportChart() Dim myChart As Chart Dim myFileName As String Set myChart = Sheet1.ChartObjects(1).Chart myFileName = "myChart.jpg" On Error Resume Next Kill ThisWorkbook.Path & "\" & myFile... 阅读全文
摘要：
以关闭Winrar.exe为例，代码如下： 阅读全文
摘要：
private void button1_Click(object sender, EventArgs e){ Excel.Shape lineA = Globals.Sheet1.Shapes.AddLine(25, 140, 495, 140); Excel.Shape lineB = Globals.Sheet1.Shapes.AddLine(495, 140, 495, 305); Exc... 阅读全文
摘要：
这个代码就只有1行，但效率没和其他方法测试对比过，不过小数据量时候用这个应该没什么问题的。 阅读全文
摘要：
注：此代码只能压缩单个文件。压缩多个文件的需要传入一个压缩后的文件名，代码也差不多，不难，大家想想也就出来了。 阅读全文
摘要：
VBA里直接用“Calendar.Value”就可以获取日历控件的值了，但VSTO里竟然没有这个属性。找了半天，原来要这样搞才行：看来VBA和VSTO里的日历控件差异很大呀，总结一下：1、VBA里叫Calendar Control，VSTO里叫monthCalendar。2、VSTO的日历控件支持17XX年的日期，不过输入进EXCEL变成文本。2、VSTO里的日历控件更强大... 阅读全文
摘要：
当然，发推前FQ那是必要滴。 阅读全文
摘要：
private void button1_Click(object sender, EventArgs e){ for (int i = 1; i <= Application.CustomListCount; i++) { object obj = Application.GetCustomListContents(i); Array arr = obj as Array; Message... 阅读全文
摘要：
昨天一个同事问我，怎么在VSTO的控件上运行工作簿中的VBA代码。这个很简单，VSTO提供了一个Run方法，可以直接运行Marco，就和你在VBA的一个过程里调用另一个过程一样。VSTO里的代码：VBA代码：很简单吧。注意：我现在用的是VS2010，所以Run方法后面的可选参数可以省略。如果你用的还是VS2008，你还是得一个个的把”missing”写上。 阅读全文