|
发表于 2017-4-15 12:51
|
显示全部楼层
本楼为最佳答案
小改一下
- Sub Macro1()
- Dim mypath$, wb$, s&
- mypath = ThisWorkbook.Path & ""
- wb = Dir(mypath & "*.txt")
- Do While wb <> ""
- s = s + 1
- Open mypath & wb For Input As #1
- w = Split(StrConv(InputB(LOF(1), #1), vbUnicode), Chr(10))
- Close #1
- Cells(1, s).Resize(UBound(w) + 1) = Application.Transpose(w)
- Erase w
- wb = Dir
- Loop
- End Sub
复制代码 |
|