Excel 2007 VBA讀TXT檔並轉置 part 2
- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 219
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-9-8
               
|
回復 1# alexsas38 - Sub ex()
- Dim Mystr$
- Cells.Clear '清除內容
- '標題
- ay = Array("營業人統一編號", "負責人姓名", "營業人名稱", "營業（稅籍）登記地址", "資本額(元)", "組織種類", "設立日期", "登記營業項目")
- k = 1
- Cells(k, 1).Resize(, 8) = ay '寫入標題列
- fd = ThisWorkbook.Path & "\" '文字檔目錄
- Set fso = CreateObject("Scripting.FileSystemObject")
- fs = Dir(fd & "*.txt") '檔名
- Do Until fs = ""
- Set f = fso.OpenTextFile(fd & fs)
- Mystr = f.readall '讀取內容
- For Each a In ay '取消標題文字
- Mystr = Replace(Mystr, a, "")
- Next
- ar = Split(Mystr, Chr(10)) '以分行符號切割內容
- k = k + 1
- Cells(k, 1).Resize(, UBound(ar) + 1) = ar '寫入儲存格
- f.Close '關閉文字檔
- fs = Dir '下一個檔名
- Loop
- End Sub
|
|
|
學海無涯_不恥下問
|
|
|
|
|
發表於 2013-6-27 14:44
| 