可以呀。以的行方式来读文本就可以了。
你读一行然后分析一行,如果符合则那一行的内容由你指定。
这不就行了吗?
rt0 = "文件路径和名字"
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(rt0) = 0 Then Exit Function
Set rt1 = fso.opentextfile(rt0, 1)
Do While rt1.atendofstream > -1
rt100 = rt1.readline
'在这里添加你的分析,如果适合就把rt100改成你指定的
rt10 = rt10 & vbCrLf & rt100
Loop
'然后在这里把rt10写进去就好了
CSV就是纯文本文件,而且很有规律,每个字段间用逗号隔开,你就按文本方式读入一行处理一行好了。