|
本帖最后由 Ericcccccc 于 2020-3-12 17:33 编辑
求助各位大神,我用下面的代码获取test文件夹目录下所有html文件内容放到sheets中,但感觉效率好慢,等待的时间有点长,请问可以用其他方法优化吗?
Dim i As Long
Dim f As String '定义f读取一个文件夹下所有文件的文件名信息
Dim full As String '定义full用来存放文件夹下某个文件的URL
Dim ws As Worksheet
Set ws = Worksheets("sheet1") '存放读取结果
i = 1
f = Dir("C:\Users\excelhome\Desktop\test\") '获取文件夹下的文件名
Do While f <> "" '读取一个文件夹下所有文件
full = "C:\Users\excelhome\Desktop\test\" & f
Open full For Input As #1 '把full写入EXCEL
Do While Not EOF(1) 'full不为空
Line Input #1, s
ws.Cells(i, 1) = s
i = i + 1 '赋值
Loop
Close #1
i = i + 2 '下一文件数据的读取空两行
f = Dir '读取下一个txt文件
Loop
MsgBox "完成"
|
|