已解决，如何将文件夹中几百个表，指定合并到一张工作表中

韬韬他妈

我每个月要将几百个银行的流水复制到一个工作表，求哪位老师帮我写个代码。将我点击一下接键，实现自动导入



第一步   从数据源中找到《工行金太阳》的表格
第二步    全选数据，复制
第三步    打开《银行流水导入模型2312》找到  与工作金太阳同名的工作表《工行金太阳》
第四步    从F1开始粘贴
第五步    从数据源中找到下一张工作薄
重复

乐铁松

需要将数据放到同一个工作簿中去，然后用TOCOL和VSTACK函数合并到同一个表格中。

3190496160

几百个文件，还是考虑用代码吧，基础操作很难完成的

css207

学习Excel的Power Query技术

css207

可以买这个EXCEL推出的教程学习
http://club.excelhome.net/thread-1567329-1-1.html

韬韬他妈

css207 发表于 2024-1-14 10:58
可以买这个EXCEL推出的教程学习
http://club.excelhome.net/thread-1567329-1-1.html

谢谢老曹，我先把16年买的 《别怕，EXCEL其实好简单》学起来，学完了再学这个，示例文件下载下来怎么要密码？

韬韬他妈

3190496160 发表于 2024-1-13 21:36
几百个文件，还是考虑用代码吧，基础操作很难完成的

好的好的，我先学起来

韬韬他妈

乐铁松 发表于 2024-1-13 21:14
需要将数据放到同一个工作簿中去，然后用TOCOL和VSTACK函数合并到同一个表格中。

谢谢，我认真学了一下这两个公式，的确很有用，只是目前解决不了我现在的问题

changhong8

Sub Main()
    Dim spath, fn, sht As Worksheet, sSht As Worksheet, wb As Workbook
    Dim shtName, d, firstCellAdr$, lastCellAdr$
    Set d = CreateObject("scripting.dictionary")
    d("工行") = "A2"
    d("建行") = "A1"
    d("交行") = "A2"
    d("农行") = "A3"
    d("招行") = "A13"
    d("中行") = "A9"
    spath = ThisWorkbook.Path & "\数据源\"
    fn = Dir(spath & "*.xls*")
    Do While fn <> ""
        shtName = Left(fn, InStrRev(fn, ".") - 1)
        For Each sht In Sheets
            If sht.Name = shtName Then
                sht.Activate
                Range("F1:XFD" & Rows.Count).ClearContents
                If d.exists(Left(fn, 2)) Then
                    firstCellAdr = d(Left(fn, 2))
                    Set wb = Workbooks.Open(spath & fn)
                    Set sSht = wb.Sheets(1)
                    lastCellAdr = sSht.Cells.SpecialCells(xlCellTypeLastCell).Address
                    sSht.Range(firstCellAdr, lastCellAdr).Copy sht.[f1]
                    wb.Close False
                End If
                Exit For
            End If
        Next
        fn = Dir()
    Loop
End Sub

changhong8