|
本帖最后由 fleaaa 于 2017-2-25 15:14 编辑
批量提取txt各行数据到EXCEL,请帮忙解决,多谢!
本来直接使用FSO对象就完事了,你的txt文件是UTF-8编码的,相对麻烦一点,重新修改了一下程序!
- Sub 提取数据()
- Dim myFso As New FileSystemObject
- Dim myFolder As Folder
- Dim myFile As File
- Dim myTs As New ADODB.Stream
- Dim str As String, myFiles, i As Integer, j As Integer
- Set myFolder = myFso.GetFolder(ThisWorkbook.Path)
- Set myFiles = myFolder.Files
- For Each myFile In myFiles
- j = 1
- If myFso.GetExtensionName(myFile.Name) = "txt" Then
- i = i + 1
- Sheet1.Cells(i, j) = myFile.Name
- With myTs
- .Type = adTypeText
- .Charset = "UTF-8"
- .LineSeparator = adLF
- .Open
- .LoadFromFile (myFile.Path)
- Do While Not (.EOS)
- j = j + 1
- Sheet1.Cells(i, j) = myTs.ReadText(adReadLine)
- Loop
- End With
- myTs.Close
- End If
- Next
- End Sub
复制代码
|
|