2020年10月24日 星期六

Excel VBA:批次檔案處理 (TXT 純文字檔案;操作)

 延續 Excel VBA:批次檔案處理 (TXT 純文字檔案;架構) 這一篇,與

Excel VBA入門:開啟純文字檔(txt);Workbooks.OpenText

大概已經知道整個處理流程;

本篇就是操作面做說明。

前處理:筆者用 EXCEL VBA 開啟檔案 FileDialog應用 做使用。

資料處理:以有使用的行與列判斷資料位置。

輸出資料處理結果:直接貼在工作表2中。簡單處理。

以上流程僅需要2個命令按鈕跟2個工作表。

原始資料:

image

image

第一個按鈕(commandbutton1):清除工作表2資料與格式

Private Sub CommandButton1_Click()

 Sheets("工作表2").Cells.Clear
    
End Sub

第二個按鈕(commandbutton1):txt檔案批次處理。


執行結果:

image

缺點:OpenText開檔速度慢了點。

待續:txt其實有時候會存在轉碼問題。

其他:Csv、.Xls.Xlsm等比較簡單,另篇說明。

沒有留言:

張貼留言

職場毒癌:你憑什麼以為你十年寒窗,抵得我三代從商

你憑什麼以為你十年寒窗,抵得我三代從商——這句話已經記不得是從哪裡看到的,可能是某部劇,也可能是某篇 FB 文章標題。 但最近,特別有感。 為什麼會有這種感觸? 職場上有個同事,一路慢慢升到課長,好歹也是管理職,雖說不上鐵飯碗,但在多數人眼裡也算穩定。 結果呢?輾轉換了兩個製造課...