20120801 用Python與Excel VBA抓證交所上市股票的交易明細

執行環境 : 有線網路12M/4M, 雙核心雙執行緒2G Hz CPU, 4G RAM, XP OS SP3
結果 : python執行的時間2603秒, Excel VBA執行時間7598秒(優化前),兩者相差約2.9倍

Python執行結果

 Excel VBA執行結果

用VBA呼叫pyhon執行指令

相關的程式碼如下, 有需要了解python或討論的可以相互切磋

Sub ExcelVBACallPython1()
    Dim PyScript: Set PyScript = CreateObject("MSScriptControl.ScriptControl") '直接宣告一個使用 Microsoft Script control 1.0的物件
    PyScript.Language = "python" '選擇所要使用的Script語言,可以使用的Script,如JavaScript, VBScript
    PyScript.ExecuteStatement ("b=2+5*3") '給python的執行指令
    MsgBox PyScript.Eval("b") '顯示要python的執行指令的結果
End Sub

也可以使用以下的寫法

Sub ExcelVBACallPython2()
    Dim PyScript: Set PyScript = CreateObject("MSScriptControl.ScriptControl") '直接宣告一個使用 Microsoft Script control 1.0的物件
    PyScript.Language = "python" '選擇所要使用的Script語言,可以使用的Script,如JavaScript, VBScript
    MsgBox PyScript.Eval("2+5*3") '顯示要python的執行指令的結果
End Sub 

以Access VBA方式匯入CSV

以VBA方式將Excel文件(csv不包涵在內)匯入Access,在Access VBA裡需要用到的語法 DoCmd.TransferSpreadsheet

Set acApp = CreateObject("Access.application")
acApp.OpenCurrentDatabase "F:\stock_database\sale_otc\stock.mdb"
acApp.DoCmd.TransferSpreadsheet acImport, 8, "abc", "C:\123.csv", True, "1102_20120209!A1:o1173"
acApp.Quit
Set acApp = Nothing

相關資料參考 MSDN相關內容 : http://msdn.microsoft.com/en-us/library/bb214134(v=office.12).aspx


以VBA方式將文字檔(csv包涵在內)匯入Access,在Access VBA裡需要用到的語法DoCmd.TransferText,另外還需要使用到schema.ini
其相關格式可參考http://access911.net/fixhtm/77FAB01E16DC_big5.htm

Set acApp = CreateObject("Access.application")
acApp.OpenCurrentDatabase "F:\stock_database\sale_otc\stock.mdb"
acApp.DoCmd.TransferText acImportFixed, schema.ini, "s123", "C:\1102_20120209.csv", True
acApp.Quit
Set acApp = Nothing

相關資料參考 MSDN相關內容 : http://msdn.microsoft.com/en-us/library/bb214141(v=office.12).aspx

安裝了Apache HTTP Server以後不能啟動服務，出現：The requested operation has failed！對話視窗

 1. 未安裝php而發生錯誤的原因

 (1) 防火牆沒有打開一個可供Apache使用的port

可由「控制台」\「系統及安全性」\「Windows 防火牆」中新增一個給Apache使用的port即可

 (2) 連接埠port 80被其他程式使用

需將httpd.conf中Listen 80改為Listen 8080或是使用一個不被其他程是使用到的port即可

 2. 有安裝php而發生錯誤的原因

 (1) php5apache2_2.dl路徑設定錯誤

開起「命令提示字元」進入到apache的bin目錄，執行httpd.exe -w -n "Apache2.2" -k start，即會出現Cannot load C:/php/ php5apache2_2.dll into server，之後改httpd.conf文件中的LoadModule php5_module "c:/php/ php5apache2_2.dll "一句為LoadModule php5_module "c:/php/php5apache2_2.dll" 找到了本機的php安裝的正確路徑，重新啟動apache！

 (2)當PHPIniDir 路徑設定是空，即PHPIniDir ""

PHPIniDir此為php安裝後php.ini所存放的路徑，這裡將PHPIniDir設定為 "C:/php" (注意斜線的方向)，即PHPIniDir "C:/php"，再重新啟動apache！ 

刪除無法刪除的檔案

今天幫親戚整理筆電時，要將資料做備份，結果Ghost一開始沒多久後就發生錯誤，而在備份的過程中產生了無法刪除的檔案，導致系統顯示"檔案或目錄損毀而且無法讀取"，如下圖的情況

後來google了一下找到了可以使用windows系統內建指令來刪除該檔案，指令為chkdsk /r，記住chkdsk /f是無效的指令，要下chkdsk /r才行