和这个没有关系。
FileSys.ReadAllText是一次性读入内存的，文件新增对已经读入的数据不可能有影响。
Dim 行 As Row=Tables("消息记录").AddNew()
if Values0.length = 7 then
行("时间")=Values0(1).Replace(" 类型","")
行("类型")=Values0(2).Replace(" 接收者","")
行("接收者")=Values0(3).Replace(" 发送者","")
If Values0(2).Replace(" 接收者","")="好友" Then
行("发送者")=Values0(4).Replace(" 内容","")
行("内容")=Values0(5)
Else
行("发送者")=Values0(4).Replace(" 群号","")
行("群号")=Values0(5).Replace(" 内容","")
If shu >=6 Then
行("内容")=Values0(6)
End If
End If
end if
或者逐个判断
Dim 行 As Row=Tables("消息记录").AddNew()
if Values0.length >1 then 行("时间")=Values0(1).Replace(" 类型","")
if Values0.length >2 then 行("类型")=Values0(2).Replace(" 接收者","")
if Values0.length >3 then 行("接收者")=Values0(3).Replace(" 发送者","")
加好友 
发短信
Post By：2021/1/30 10:00:00 [显示全部帖子]
