Question

excel多个文件合并成一个Sheet1文件(内容)

网络上教程一般就是 将多个文件名显示在Sheet1当中 点击文件名字才显示内容。 我的要求是将 多个文件内容在Sheet1中直接显示出来有高手吗？谢谢 没有分了，不好意思

Answer 1

使用VBA代码可以实现，利用DIR()函数获取文件地址，大楷读取就好了

追问

老师，加我一下好吗13223618

追答

按Alt+F11 新建一个模块，将如下代码贴入运行即可：

Sub aaa()
Dim Wb As Workbook
Dim Temp As String, Temp2 As String
Dim i As Integer, j As Integer
j = 1
Temp = InputBox("input the path")
Temp2 = Dir(Temp)
While Len(Temp2) 0
Temp = Temp & "\" & Temp2
i = 1
Set Wb = GetObject(Temp)
Wb.Windows(1).Visible = False
While Wb.Windows(1).Cells(i, 1) ""
ThisWorkbook.Sheets(1).Cells(i, j) = Wb.Windows(1).Cells(i, 1)
i = i + 1
Wend
j = j + 1
Wend
Temp2 = Dir
End Sub