小攻城師的戰場筆記

因為同事辦活動，需要把一批電話名單整理後提供給廠商，讓廠商去發簡訊，把獎品兌換碼傳給得獎者。
電話的格式常見的狀況有：

有一台 MacBook Pro 需要拿來執行台灣經濟新報資料庫 (以下簡稱 TEJ 資料庫），但是研究了一下，因為 Office for Mac 無法跑指定的增益集等程式功能，所以還是要裝 Windows 版的 Office。
【安裝 Office】

產出的資料中，有 "01234" 這樣的資料代碼欄位，由於開頭的 0 是有意義的，但是 Excel 開啟 CSV 時會自動去掉 0，變成 "1234"。
已經試著在產出的 CSV 中將資料包上雙引號，但是沒有用。同事幫我找了一個方法，是把資料開頭加上等號 (=)，再包上雙引號，也就是 ="01234"。

業務單位這一批電腦升級到 Windows 7 + Office 2013 後，最近常常傳出災情，說無法開啟某些網站系統產製的 Excel 檔案。
經確認後發現這些無法開啟的 Excel 檔案，都是直接套版做出 HTML table，再直接將 HTML code 另存成副檔名為 XLS 的檔案。

原本以為會很難，原來只要把網頁資料當作是資料來源取進來就可以了，比想像中還要歡樂一點？
Dim webURL As String
webURL = "URL;http://xxx.xxx.xxx.xxx/123.htm"
With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A1"))
        ' xlOverwriteCells 表示覆蓋欄位
        .RefreshStyle = xlOverwriteCells
        ' 抓取網頁的第三個表格作為匯入資料
        .WebTables = "3"
        .Refresh BackgroundQuery:=False
End With

今天在從 Excel 抓資料要匯進程式裡時出問題了。某欄數值資料在開頭幾筆剛好都是 1，都可以成功轉入，但遇到大於 1 的值時，DataTable 裡的值卻是 DBNull，取用時要做加總就拋出了 Exception 了。
問題發生的原因是，某一欄的資料如果輸入數值 "1"，是可以成功轉型為 double 的，但是輸入大於 1 的數值後，Excel 的儲存格左上角會出現綠色的三角形，提示「此儲存格內的數字其格式為文字或開頭為單引號」，要求使用者更正這種數字。
我參考了 "OleDB incorrectly returning DBNull for an Excel Column"，解決這個問題的方法如下：
1. 修改 Regedit，把 Hkey_Local_Machine/Software/Microsoft/Jet/4.0/Engines/Excel 的 TypeGuessRows 的值改成 0。（原本是 8，代表抓取前 8 列的值來判斷儲存格內的資料型態；改成 0 則表示搜尋整欄的儲存格來判斷資料型態）
2. 在 Connection String 加入 "IMEX=1;"。
以我的程式為例，關於 Excel 讀檔的片段寫起來就長成這個樣子：

有時候我們會希望可以在某一個儲存格計算結果，在這個計算值的儲存格旁邊又能列出所使用的公式內容。例如說，A2設了公式，在A1顯示出A2的公式內容、A2則顯示運算的結果。
原本想的滿麻煩的，想說用 VBA 去抓內容、再把內容加上一個逗點輸出在別的儲存格……不過找到了《Excel妙用-公式結果我都要》，不過第一種方法我試不出來、第二種方法又必須手動更新，因此後來又在 CSDN 上面找到了一篇《自動顯示公式計算過程》，回文裡有把兩種方法結合的建議，就利用回文中建議的「定義」來做。

寫了一個自訂函數，負責取得活頁簿（XLS 檔）最後存檔時間。
設計的時候考慮到自訂函數是不會自動更新的，因此在用的時候輸入 TODAY()、NOW() 之類會經常自動計算的函數，整個活頁簿中有異動的時候，這個函數也就會因為它裡頭包的內容異動了而跟著執行一次。
今天一開始在 Excel 2007，還一度找不到要去哪裡編輯 VBA，好險有快速鍵：Alt-F11。打開一個 Excel 檔案，按下 Alt-F11 叫出 Visual Basic 編輯器，左手邊「專案」視窗中，會看到目前開啟的 Excel 檔案這個專案底下掛了哪些東西。在「專案」視窗按滑鼠右鍵→「插入」→「模組」，就可以開始編輯以下程式碼了。

前幾天在 msn 上接到一個小需求，
希望可以找個辦法把 Excel 上輸入的資料轉換為指定的純文字格式。
資料在 Excel 中的內容大概是長成這樣：