汇总文件夹里的表到总表。

ws1420

按照附件要求汇总。

rui12138

楼主，建议你使用power qurey来实现，因为pq可以实现文件夹内的文件汇总，并且会创建链接，能为后续工作节省大量时间．本想上传附件的，但我这边上传附件时，提示错误，不清楚什么原因．．．

ws1420

rui12138 发表于 2018-5-21 10:00
楼主，建议你使用power qurey来实现，因为pq可以实现文件夹内的文件汇总，并且会创建链接，能为后续工作节 ...

vba 如何实现呢？

ws1420

rui12138 发表于 2018-5-21 10:00
楼主，建议你使用power qurey来实现，因为pq可以实现文件夹内的文件汇总，并且会创建链接，能为后续工作节 ...

power qurey没有接触过

魂断蓝桥

Option Explicit

Sub 查询()
Dim cnn As Object, MYF$, n%
Dim Sql As String
Set cnn = CreateObject("ADODB.CONNECTION")
MYF = Dir(ThisWorkbook.Path & "\Rawdata\*.xlsx")
Do While MYF <> ""
    n = n + 1
    If n = 1 Then
        cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.Path & "\Rawdata\" & MYF
        Sql = "SELECT 姓名,年龄,性别,学号,成绩,""" & Left(MYF, Len(MYF) - 5) & """  FROM [Sheet1$a1:e] WHERE 姓名 IS NOT NULL"
    Else
           Sql = Sql & " UNION ALL SELECT 姓名,年龄,性别,学号,成绩,""" & Left(MYF, Len(MYF) - 5) & """  FROM [Excel 12.0;Database=" & ThisWorkbook.Path & "\Rawdata\" & MYF & "].[Sheet1$a1:e] WHERE 姓名 IS NOT NULL "
    End If
    MYF = Dir()
Loop
[a2:f999] = ""
[a2].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing
End Sub

opiona

总有一款适合你：http://club.excelhome.net/thread-1409141-1-1.html

ws1420

朱荣兴 发表于 2018-5-21 10:16
Sub huiZOng()
Application.ScreenUpdating = False
Set sht = ThisWorkbook.Worksheets("汇总")

首先谢谢大佬回复，自己跑了一下，发现表头的内容没复制过来，文件名也复制的不对最后一行会多一个 ，估计
sht.Cells(ws, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
sht.Cells(ws, UBound(arr, 2) + 1).Resize(UBound(arr), 1) = Split(wb.Name, ".")(0)
这两句的问题吧。

ws1420

魂断蓝桥 发表于 2018-5-21 10:26
Option Explicit

Sub 查询()

谢谢大佬回复，暂时还不会sql的使用。留着后面慢慢学

ws1420

opiona 发表于 2018-5-21 10:42
总有一款适合你：http://club.excelhome.net/thread-1409141-1-1.html

陈独秀同学你真的很优秀，谢谢分享