水月居幸福遊記

上次遇到了同一個檔案中多個工作表合併到一個工作表裏，這次因為工作的關係又去找了多個不同的檔案，所有的工作表合併到同一個檔案中。 工作環境︰ Windows 10 M$ Office 2010 Sub CombineSheets() '活頁簿存放路徑，可自行修改存放路徑 Path = "D:\資料夾名稱\" Filename = Dir(Path & "*.xl*") '避免工作表名字相同，重新命名 i = 1 Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) ActiveSheet.Name = i i = i + 1 Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub 收工！

Excel 好像沒有檢查工作表是否存在的原生函式，所以，到網站上找了一個，在跑巨集的時侯可以用 Function sheetExists(sheetToFind As String) As Boolean     sheetExists = False     For Each Sheet In Worksheets         If sheetToFind = Sheet.Name Then             sheetExists = True             Exit Function         End If     Next Sheet End Function 收工！

假如你的工作表都長得一樣，都是從A1開始建立的，都在同一個檔案中，你可以新增一個巨集，幫你把所有的工作表合併到同一個工作表中。 Sub Combine()     Dim J As Integer       On Error Resume Next     Sheets(1).Select     Worksheets.Add     Sheets(1).Name = "Combine"     Sheets(2).Activate     Range("A1").EntireRow.Select     Selection.Copy Destination:=Sheets(1).Range("A1")       For J = 2 To Sheets.Count         Sheets(J).Activate         Range("A1").Select         Selection.CurrentRegion.Select         Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select         Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)     Next End Sub 檢視 》 巨集 》 檢視巨集 》 第一個Combine  》 執行 所有的資料全部都會合併到第一個工作表「Combine」裏面 如此就不用 [Ctrl] + [C] X [Ctrl] + [V] N 次了 收工！

最近實作抓取網頁內容，也遇到一些問題，為免那和我不好的記憶力和我分手，把重點記一下。 環境： Windows Php 5     Curl     Regular expression     Pho simple html dom 如同以往，抓取網頁之後就是要擷取特定模板（pattern) 內容，這個過程，一直以來並沒有不同。 有些情況發生了，雖然大多數的網頁用 GET 就能下載了（ curl, file_get_html），有些網頁，要用 POST 方式，需要把 POST 參數代入(例如 curl: CURLOPT_POSTFIELDS)，才能順利取得網頁的內容，否則一片空白，畢竟抓到這些資料來源，才能有下一步。 抓下來的資料，（十年）之前使用土法煉鋼的方式，用遁序漸進的方式，不斷的使用關鍵字炸開（explode）的方式，來取得目標的內容，雖然這等方式在現在也能達成目的，總是希望有點長進，果然，讀別人的程式碼是很有用地 XD。 如果時間上可行，測出正規表示法的比對模板，是很好的解決方式，不需要其他工具或是程式的導入，可惜，這些符號，和我真的很不熟（超生硬），有些真的花非常多的時間還測不出來，超需要慧根（是什麼，能吃嗎？），只能山不轉路轉了。 jQuery 對於擷取 DOM 有其長處，因為想直接在 PHP 上面實作，所以先把 jQuery 擱著，所幸找到了 simple html dom 的工具（$html -> find(' TAG_NAME ', 0) -> plaintext;），讓這個工作變得有效率了，超級開心。 收工！

程式的開發者，例如：PHP 的開發者，PHPStorm 和 Sublime Text 相信常被提及用作開發的編輯器，前者是商用軟體，後者註冊後移除問侯視窗，當然還有 eclipse… 之類的PHP開發工具，不勝枚舉，這次發現的這款 Atom 編輯器 ，強大， 介紹也很有趣 。 Atom 是可以考慮的編輯器，雖然有些訊息指出，Atom 可能會耗用較多的系統資源，但是它具備很多上述編輯器的特質，跨平台，整合開發環境，支援多種程式語言，功能面大致上都已經具備，另外像是版面風格(配置字型、色彩)、自動完成提示、程式碼模版、版本管理、專案管理、外掛…等常用功能，都具備高度可自訂性，幫助使用者減少開發的時間。 用過發現，可以很快可以上手！ 免費！馬上省下1xx美金，令人心動啊~~