a200271071的部落格

這段時間比較有空來更新更新了。

在前一篇"Excel vba 文書自動化(SPC 管制圖自動化)"中提到2個切入點：

1.自動讀檔工具 2.管制圖自動化

這邊筆者就先簡單說明，如果是要收集EXCEL檔案的資料，從另外一篇"EXCEL VBA 開啟檔案 FileDialog應用"提到的語法先掌握：

Workbooks.Open Filename:=FILE_OPEN_PATH '開啟案路徑

WORKNAME = Excel.ActiveWorkbook.NAME '儲存新開檔案的檔案名稱

我們就可以打開檔案了，要如何讀取資料哩?先思考要抓的資料範圍，如抓單一儲存格還是一個範圍，資料有無連續等都需要先規劃一下。

作法1：TEMP=ACTIVESHEET.RANGE("A1")  '抓取目前啟用的工作表中的A1儲存格，適合單一儲存格

作法2：TEMP=ACTIVESHEET.RANGE("A1:A10")   '抓取目前啟用的工作表中的A1到A10儲存格，適合連續與範圍的儲存格

作法3：如果你想用迴圈方式抓10次當然也行。

DIM TENP(9)

FOR I=1 TO 10 STEP 1

TEMP(I)=ACTIVESHEET.RANGE("A" & I)

NEXT 1

透過以上3個方式，搭配開啟檔案的迴圈機制，就可以協助我們收集到大量的資料。