请问大神如何将不同表单中的相关信息筛选后导入一张表单

billyhha · 发表于 2018-8-29 17:06

情况如下：
有多张表单，不同表单关键信息的位置字段不同。

表单每月更新，每月只需要汇总更新的动态。

希望将不同表单中的关键信息筛选后汇总到一张总表上。

比如8月动态，就是把8月上下船的人员动态变化汇总到总表上。

billyhha · 发表于 2018-8-30 09:16

求大神帮忙解答

LMY123 · 发表于 2018-8-30 10:57

billyhha 发表于 2018-8-30 09:16
求大神帮忙解答

Sub 合并指定工作薄_工作表_字段名_参考()
  Sheets("结果").Range("a2:z1048576") = ""
  arr = Sheets("条件").UsedRange
  Set conn = CreateObject("adodb.connection")
  For i = 2 To UBound(arr)
  conn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=no';Data Source=" & ThisWorkbook.Path & "/" & arr(i, 1) & arr(i, 9) & ""
  Sql = "select " & arr(i, 4) & "," & arr(i, 5) & "," & arr(i, 6) & "," & arr(i, 7) & "," & arr(i, 8) & ",'" & arr(i, 1) & "','" & arr(i, 2) & "' from [" & arr(i, 2) & "$" & arr(i, 3) & "]  where MONTH(F3)=8 AND YEAR(F3)=2017"
  Sheets("结果").[a1048576].End(xlUp).Offset(1, 0).CopyFromRecordset conn.Execute(Sql)
  conn.Close
  Next i
  Set conn = Nothing
End Sub

LMY123 · 发表于 2018-8-30 10:58

billyhha 发表于 2018-8-30 09:16
求大神帮忙解答

汇总数据.rar (389.12 KB, 下载次数: 6)

		自动登录	找回密码
密码			免费注册

[求助] 请问大神如何将不同表单中的相关信息筛选后导入一张表单