原创 用VBA來關閉其他程序
以關閉Winrar.exe爲例，代碼如下： Sub closeWinrar() Dim oWMT As Object, oProcess As Object Set oWMT = GetObject("winmgmts:/
2018-09-04 00:36:51
原创 成功申請到ClickDealer聯盟
今年開年，決定專注於國外CPA，經過半個多月的泡論壇+找資料+Google，大概也學了個差不多，所以從這個禮拜開始，陸續向幾個評價不錯的聯盟遞了申請。 第一個是PeerFly聯盟，在affpaying的評價是非常不錯的，而且聽說off
2018-09-04 00:36:51
原创 VSTO/Excel：快速找出某一列中與指定單元格不同的數據
private void button1_Click(object sender, EventArgs e) { Excel.Range rng = null; rng = ((Excel.Range)this.Colum
2018-09-04 00:36:50
原创 VBA用字典來替代函數的Vlookup
Excel裏有Vlookup函數，查找匹配數據非常方便，在VBA裏，也可以用worksheetfunction.vlookup方法來調用，今天我介紹一個另一種使用字典(dictionary)+數組的方法，速度也非常快。 數據源圖片：
2018-09-04 00:36:50
原创 VSTO運行VBA代碼
昨天一個同事問我，怎麼在VSTO的控件上運行工作簿中的VBA代碼。這個很簡單，VSTO提供了一個Run方法，可以直接運行Marco，就和你在VBA的一個過程裏調用另一個過程一樣。 VSTO裏的代碼： private void butt
2018-09-04 00:36:50
原创 畫四條直線然後組合成矩形
private void button1_Click(object sender, EventArgs e) { Excel.Shape lineA = Globals.Sheet1.Shapes.AddLine(25, 140,
2018-09-04 00:36:50
原创 VBA導入VFP的.dbf文件
Sub ImportVFPData() Dim i%, sql$ Dim cn, rst Set cn = CreateObject("adodb.connection") Set rst = Crea
2018-09-04 00:36:50
原创 提取Excel、Word、PPT文件中的Flash文件的兩種方法
方法一：VBA代碼法 新建一個文件，然後拷貝以下代碼到VBA模塊中，運行代碼，選擇含有Flash的Excel文件確定，即可獲取swf文件。 Sub ExtractFlash() Dim tmpFileName As S
2018-09-04 00:36:50
原创 在Excel裏發Twitter
Sub sendTweets() Dim xml, sUsername$, sPassword$, sTweets$ Set xml = CreateObject("MSXML2.XMLHTTP") sUserna
2018-09-04 00:36:50
原创 聊聊最近的CPA心得吧
不知不覺都快要3個月沒更新博客了，一是懶，二是沒啥時間，三是主要原因——沒啥好寫的東西。 相信很多博客主都和我一樣，寫着寫着就沒啥激情了，從一開始的每天更新，到每3天更新，然後每週更新，再然後個把月才更新一次，後來是隨性而至，哪天突然想起
2018-09-04 00:36:49
原创 Word裏全角轉換成半角
上次寫一篇文章，不小心開了全角，結果文章編輯完，慘不忍睹，然後就想自編個宏一次性轉換。起先想到的當然是像Excel一樣使用ASC函數，但發現VBA的ASC不是全半角轉換的功能，暈死，只能網上找答案，終於，找到一個狼版以前發的回帖，完美
2018-09-04 00:36:49
原创 用VBA導出Excel裏的圖表爲JPG文件
Sub ExportChart() Dim myChart As Chart Dim myFileName As String Set myChart = Sheet1.ChartObjects(1).Char
2018-09-04 00:36:49
原创 介紹一個文本連接的自定義函數：contxt
Excel自帶的CONCATENATE函數雖然能連接文本，但卻不能連接內存數組，論效果還沒&這個連接符方便，實在是Excel裏的第一大雞肋。 所以今天就介紹給大家我一直在用的文本連接的自定義函數–contxt 。 Function C
2018-09-04 00:36:48
2
原创 用Shell來運行dos下的ping命令
Sub test() Shell "cmd.exe", vbNormalFocus SendKeys " ping mrvsto.com" & "{ENTER}", 1 End Sub
2018-09-04 00:36:48
1