Question

把相同格式的许多excel文件内的某些内容汇总到一个excel文件中

在贴吧找的一段VBA代码如下图：

执行的时候，有一个问题：这段代码只读取“csv文件”下的第一个csv文件，其他文件不读取，循环不停止，求大神改改代码。
代码如下：
Sub 宏1()
Application.ScreenUpdating = False
p = "E:\专业相关\论文相关\论文\论文\实验数据\织物风格\KES实验数据\FB4\csv文件\"
f = Dir(p & "*.csv")
r = 1
With ThisWorkbook.Sheets(1)
Do While f <> ""
Set w = Workbooks.Open(p & f)
r = r + 1
.Cells(r, 2) = w.Sheets(1).[B19]
.Cells(r, 3) = w.Sheets(1).[C19]
.Cells(r, 4) = w.Sheets(1).[D19]
w.Close False
Loop
End With
Application.ScreenUpdating = True
End Sub

Answer 1

只读取csv文件的原因是f = Dir(p & "*.csv")这句指定了csv，改为相应的后缀。
然后确认一下代码中的路径是否为Excel文件所在的实际路径

追问

其实我让excel读取的就是几十个csv文件，那个目录下确实有几十个csv文件

其实我让excel读取的就是几十个csv文件，那个目录下确实有几十个csv文件

追答

那运行中出现了什么问题？