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变量的文件