錄製巨集

Sub data_input_f()
Dim datapath As String
For i = 1 To 20
With Worksheets.Add
.Name = "t" & i
End With
Worksheets("t" & i).Activate
datapath = "text;E:\kdata_50\t" & i & "\nodout"
With ActiveSheet.QueryTables.Add(Connection:=datapath, Destination:=Range("$a$1"))

---

範例是將20個相似路徑的檔案資料匯入20個新命名的excel工作表(節錄)

---

初學者使用excel工作時，

因不熟析函數使用或函數不能滿足大量資料處理

常有重複動作、指令一直出現的困擾

這時如果能撰寫簡單的小程式，例如使用excel內建的VBA

就可以省下非常多的時間



當然，如果沒有基本的程式背景，也不要害怕

開啟[錄製巨集]的功能，可以把你在excel工作過程錄製下來

當需要的時候播放執行，則可重現同樣的動作指令

若依需要適當修改巨集內容，就可以一直執行不同的重複工作

---

VBA與VB稍有不同。

最明顯的，VBA只能使用在Office軟體