2 批量读取text文本到excel中

一、步骤：

1 01 使用VBA程序打开文本文件

2 读取一行内容

3 判断是否已经到末尾

4 关闭文本文件

二、案例

f=dir（“d:\demo2\”）

以反斜杠“\”结尾代表文件夹，否则会被当做一个文件，即demo2
文件

### 成功案例

Option Explicit
Sub dirdemo()

Application.ScreenUpdating = False   '禁止屏幕刷新
Application.Calculation = xlCalculationManual   '计算模式为手动

Dim t As Date
t = Timer


    Dim f As String
    
    f = Dir("D:\周报数据\第九军团\聊天记录\聊天记录\")   '文件实际路径
    
    Do While f <> ""     '在此处对名字为f的文件进行打开和读取操作
    
        Call readfromfile("D:\周报数据\第九军团\聊天记录\聊天记录\" & f)
    
    f = Dir
   Loop
 
 
MsgBox "运行" & Format((Timer - t), "0.00000") & "秒"

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
 
 End Sub


 
 Sub readfromfile(fullname As String)
 
  
 ' 读取文件名为fullname变量的文件，
 '取出每行的城市名和电话号码，写入一张新建的工作表中
 
 Dim ws As Worksheet, i&, s$
 
 '创建新工作表，并且将表名字改为文件名字，instrrev函数与InStr函数的功能相同，不过是从最右边开始查找字符。
 
 
 Set ws = Worksheets.Add
 
 ws.Name = Mid(fullname, InStrRev(fullname, "\") + 1)
 
 Open fullname For Input As #1
 
 i = 1
 
 Do While Not EOF(1)
 
    Line Input #1, s
    
    ws.Cells(i, 2) = Left(s, 2)
    
        
    Loop
    
    Close #1
    
   End Sub