将CSV格式文件数据汇总，谢谢！

king38425

将指定文件下两个CSV格式文件数据汇总，sheet1工作表中数据为最终效果。

microyip

直接逐个文件打开，读到数组里整理一下就是你要的结果啦

king38425

microyip 发表于 2019-10-8 16:36
直接逐个文件打开，读到数组里整理一下就是你要的结果啦

您好，读到数组后，但是数据会有出现对不上或是显示不完全的异常。

约定的童话

搞定了没楼主？

king38425

约定的童话 发表于 2019-10-9 10:15
搞定了没楼主？

您好，暂时还没。

liulang0808

1. Sub 按钮1_Click()
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Set sh = ActiveSheet
   
4.     Application.ScreenUpdating = False
   
5.     sh.UsedRange.Offset(1).ClearContents
   
6.     For Each f In fso.getfolder(ThisWorkbook.Path).Files
   
7.         If LCase(Right(f.Name, "4")) = ".csv" Then
   
8.             With Workbooks.Open(f)
   
9.                
   
10.                 ActiveSheet.UsedRange.Offset(5).Copy sh.Cells(Rows.Count, 2).End(3).Offset(1)
    
11.                 .Close False
    
12.             End With
    
13.             r1 = sh.Cells(Rows.Count, 1).End(3).Row + 1
    
14.             r2 = sh.Cells(Rows.Count, 2).End(3).Row
    
15.             If r2 > r1 Then sh.Cells(r1, 1).Resize(r2 - r1 + 1).Value = f.Name
    
16.         End If
    
17.     Next f
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

约定的童话

岳支/韵支填写判断依据是啥啊？

liulang0808

第一列的银行，对应关系没有整清楚，楼主结合附件自己整理看看吧

king38425

liulang0808 发表于 2019-10-9 13:16
第一列的银行，对应关系没有整清楚，楼主结合附件自己整理看看吧

感谢您的帮助，谢谢，第一列银行我稍改了一下代码就可以了。