有點突破了

在買了博碩文化引進的office即戰力系列 "經理人提升工作自動化效率的excel VBA活用技巧"這本書後，當中有很多實用的技巧和程式碼 一般的書大多以介紹語法和觀念為主 常常有一堆不知道用途的函式 ,屬性或是方法 這個系列以實用為出發 也很淺顯易懂
需要一個"active按鈕"啟動click事件
檔案系統控制
啟動檔案IO功能
字串處理
使用excel儲存格
這四個項目的要求都達到了
出乎意料的是寫出來程式碼非常的短阿
雖然還有一些需要修改或是增加的功能
不過雛形出來了 已經很接近當初看到的功能
Private Sub 載入_Click()
Dim d(30)
For num = 1 To 10
root1 = ActiveWorkbook.Path & "\" & "try" & num & ".txt"
Open root1 For Input As #1
Do Until EOF(1)
For n = 1 To 30
Input #1, d(n)
Cells(num + 5, n + 1).Value = d(n)
Next
Loop
Close #1
Next
End Sub
大致上程式的架構就是這樣
按鈕->取得要處理資料夾路徑->載入文字檔案資料
過程中還寫了一個亂數生成10個內含30筆資料檔案副程式
提供實驗
接下來只要再做細部修改就完成拉